|
- <!DOCTYPE html>
- <html>
- <head>
- <meta http-equiv="X-UA-Compatible" content="IE=9" />
- <title>MassMailer</title>
- <HTA:APPLICATION ID="MassMailer" APPLICATIONNAME="MassMailer" BORDER="thick" SCROLL="yes" SINGLEINSTANCE="yes" />
- <style type="text/css">
- body { margin: 0; font: 15px Segoe UI, Arial, sans-serif; color: #243145; background: #f4f6f8; }
- header { background: #17324e; color: #fff; padding: 22px 28px; }
- h1 { margin: 0; font-size: 24px; }
- header p { margin: 7px 0 0; color: #d2dfec; }
- main { padding: 24px 28px; }
- .tabbar { margin: 0 0 20px; border-bottom: 2px solid #cbd7e2; }
- .tab-button { margin: 0 4px 0 0; padding: 11px 15px; background: transparent; color: #17324e; border: 1px solid transparent; border-bottom: 0; font-weight: bold; }
- .tab-button:hover, .tab-button:focus { background: #e8eff5; }
- .tab-button.active { background: white; border-color: #cbd7e2; color: #105b88; }
- .tab-pane { display: none; }
- .tab-pane.active { display: block; }
- .notice { padding: 14px 17px; background: #fff7e3; border-left: 4px solid #ca8f13; margin-bottom: 22px; }
- .cards { display: table; width: 100%; border-spacing: 10px; margin-left: -10px; }
- .card { display: table-cell; width: 25%; background: white; padding: 18px; border: 1px solid #dbe1e7; }
- .number { display: block; margin-top: 8px; font-size: 28px; color: #17324e; }
- .details { background: white; padding: 18px; border: 1px solid #dbe1e7; line-height: 1.7; }
- .details strong { display: inline-block; width: 135px; }
- button { background: #176b9b; color: white; border: 0; padding: 9px 16px; cursor: pointer; margin-top: 17px; }
- button:disabled { background: #a7b3bd; cursor: default; }
- .panel { background: white; padding: 18px; border: 1px solid #dbe1e7; margin-top: 18px; }
- .panel h2 { margin: 0 0 12px; font-size: 19px; }
- .field { display: block; margin: 12px 0; }
- .field input, .field select { display: block; width: 95%; max-width: 640px; padding: 7px; margin-top: 4px; }
- table { border-collapse: collapse; width: 100%; margin-top: 15px; }
- th, td { border-bottom: 1px solid #e4e8ec; padding: 7px; text-align: left; }
- .bad { color: #9c2929; }
- .good { color: #235e37; }
- #error { color: #9c2929; white-space: pre-wrap; margin-top: 12px; }
- #templatePreview, #campaignPreview { width: 100%; height: 440px; border: 1px solid #dbe1e7; background: white; margin-top: 12px; }
- </style>
- <script language="JScript" src="src/contacts.js"></script>
- <script language="JScript" type="text/javascript">
- var pendingCsvText = null;
- var pendingPreview = null;
- var pendingSource = "";
- var pendingPath = "";
- var pendingCampaignReview = null;
- var campaignTestAccepted = false;
- var recipientSelection = {};
- var dispatchSessionPid = 0;
- var dispatchSessionToken = "";
- var dispatchSessionPath = "";
- var dispatchReady = false;
- var dispatchProcess = null;
- var dispatchTimerId = null;
-
- function projectRoot() {
- var path = decodeURIComponent(window.location.pathname);
- if (path.charAt(0) === "/" && path.charAt(2) === ":") path = path.substring(1);
- path = path.replace(/\//g, "\\");
- return new ActiveXObject("Scripting.FileSystemObject").GetParentFolderName(path);
- }
- function readSettings(filePath) {
- var stream = new ActiveXObject("ADODB.Stream");
- stream.Type = 2;
- stream.Charset = "utf-8";
- stream.Open();
- stream.LoadFromFile(filePath);
- var data = stream.ReadText();
- stream.Close();
- var result = {};
- var lines = data.replace(/\r\n?/g, "\n").split("\n");
- for (var i = 0; i < lines.length; i++) {
- var line = lines[i].replace(/^\s+|\s+$/g, "");
- if (!line || line.charAt(0) === "#" || line.charAt(0) === ";") continue;
- var equalAt = line.indexOf("=");
- if (equalAt > 0) result[line.substring(0, equalAt).replace(/\s/g, "").toUpperCase()] =
- line.substring(equalAt + 1).replace(/^\s+|\s+$/g, "");
- }
- return result;
- }
- function countRows(db, tableName) {
- var rows = db.Execute("SELECT COUNT(*) AS N FROM [" + tableName + "]");
- var result = rows.Fields("N").Value;
- rows.Close();
- return result;
- }
- function openDatabase() {
- var fs = new ActiveXObject("Scripting.FileSystemObject");
- var root = projectRoot();
- var config = readSettings(fs.BuildPath(root, "config.ini"));
- var dbPath = config.DB_PATH;
- if (fs.GetDriveName(dbPath) === "") dbPath = fs.BuildPath(root, dbPath);
- dbPath = fs.GetAbsolutePathName(dbPath);
- var db = new ActiveXObject("ADODB.Connection");
- db.Open("Provider=" + config.DB_PROVIDER + ";Data Source=" + dbPath + ";");
- return { db: db, config: config, path: dbPath };
- }
- function refreshStatus() {
- var db = null;
- try {
- var opened = openDatabase();
- db = opened.db;
- document.getElementById("contacts").innerText = countRows(db, "Contact");
- document.getElementById("suppressed").innerText = countRows(db, "Suppression");
- document.getElementById("templates").innerText = countRows(db, "TemplateVersion");
- document.getElementById("campaigns").innerText = countRows(db, "Campaign");
- document.getElementById("database").innerText = opened.path;
- document.getElementById("provider").innerText = opened.config.DB_PROVIDER;
- document.getElementById("interval").innerText = opened.config.QUEUE_INTERVAL + " seconds";
- document.getElementById("testTo").innerText = opened.config.SMTP_TEST_TO || "Not configured";
- document.getElementById("error").innerText = "";
- } catch (error) {
- document.getElementById("error").innerText = "Status refresh failed: " + error.message;
- } finally {
- if (db !== null && db.State === 1) db.Close();
- }
- }
- function readCsvFile(path) {
- var fs = new ActiveXObject("Scripting.FileSystemObject");
- if (!fs.FileExists(path)) throw new Error("CSV file not found: " + path);
- if (fs.GetFile(path).Size > 2097152) throw new Error("CSV exceeds the 2 MB import limit");
- var stream = new ActiveXObject("ADODB.Stream");
- stream.Type = 2;
- stream.Charset = "utf-8";
- stream.Open();
- stream.LoadFromFile(path);
- var text = stream.ReadText();
- stream.Close();
- return text;
- }
- function emailLookup(db, tableName) {
- var found = {};
- var rows = db.Execute("SELECT [EmailKey] FROM [" + tableName + "]");
- while (!rows.EOF) {
- found[String(rows.Fields("EmailKey").Value).toLowerCase()] = true;
- rows.MoveNext();
- }
- rows.Close();
- return found;
- }
- function renderPreview(preview) {
- document.getElementById("previewCount").innerText = preview.accepted.length +
- " ready, " + preview.rejected.length + " rejected";
- var body = document.getElementById("previewBody");
- while (body.firstChild) body.removeChild(body.firstChild);
- var items = preview.accepted.concat(preview.rejected);
- items.sort(function (a, b) { return a.line - b.line; });
- for (var i = 0; i < items.length; i++) {
- var tr = document.createElement("tr");
- var values = [items[i].line, items[i].email, items[i].businessName,
- items[i].source, items[i].reason || "Ready"];
- for (var j = 0; j < values.length; j++) {
- var td = document.createElement("td");
- td.innerText = values[j];
- if (j === 4) td.className = items[i].reason ? "bad" : "good";
- tr.appendChild(td);
- }
- body.appendChild(tr);
- }
- document.getElementById("commitImport").disabled = preview.accepted.length === 0;
- }
- function previewContacts() {
- var db = null;
- document.getElementById("importMessage").innerText = "";
- document.getElementById("commitImport").disabled = true;
- try {
- var path = document.getElementById("csvPath").value;
- pendingPath = path;
- pendingSource = document.getElementById("sourceFallback").value.replace(/^\s+|\s+$/g, "");
- pendingCsvText = readCsvFile(path);
- var opened = openDatabase();
- db = opened.db;
- pendingPreview = MassMailerContacts.preview(pendingCsvText, pendingSource,
- emailLookup(db, "Contact"), emailLookup(db, "Suppression"));
- renderPreview(pendingPreview);
- } catch (error) {
- pendingPreview = null;
- document.getElementById("importMessage").innerText = error.message;
- } finally {
- if (db !== null && db.State === 1) db.Close();
- }
- }
- function utcNowSql() {
- return "DateAdd('n'," + new Date().getTimezoneOffset() + ",Now())";
- }
- function importOne(db, row) {
- var dateSql = utcNowSql();
- if (row.acquiredAt) {
- dateSql = "DateSerial(" + Number(row.acquiredAt.substring(0, 4)) + "," +
- Number(row.acquiredAt.substring(5, 7)) + "," +
- Number(row.acquiredAt.substring(8, 10)) + ")";
- }
- var cmd = new ActiveXObject("ADODB.Command");
- cmd.ActiveConnection = db;
- cmd.CommandText = "INSERT INTO [Contact] ([EmailOriginal],[EmailKey],[BusinessName]," +
- "[SourceReference],[AcquiredAtUtc],[Country],[EligibilityBasis],[CreatedAtUtc]) " +
- "VALUES (?,?,?,? ," + dateSql + ",'US','public_listing'," + utcNowSql() + ")";
- cmd.Parameters.Append(cmd.CreateParameter("email", 202, 1, 254, row.email));
- cmd.Parameters.Append(cmd.CreateParameter("key", 202, 1, 254, row.emailKey));
- cmd.Parameters.Append(cmd.CreateParameter("business", 202, 1, 200, row.businessName));
- cmd.Parameters.Append(cmd.CreateParameter("source", 203, 1, Math.max(1, row.source.length), row.source));
- cmd.Execute();
- }
- function commitContacts() {
- if (!pendingPreview || !pendingPreview.accepted.length) return;
- var db = null, inTransaction = false, succeeded = false;
- try {
- if (document.getElementById("csvPath").value !== pendingPath)
- throw new Error("CSV file selection changed. Preview it again.");
- if (document.getElementById("sourceFallback").value.replace(/^\s+|\s+$/g, "") !== pendingSource)
- throw new Error("Source reference changed. Preview the CSV again.");
- var opened = openDatabase();
- db = opened.db;
- var current = MassMailerContacts.preview(pendingCsvText, pendingSource,
- emailLookup(db, "Contact"), emailLookup(db, "Suppression"));
- if (current.accepted.length !== pendingPreview.accepted.length ||
- current.rejected.length !== pendingPreview.rejected.length)
- throw new Error("Contacts or suppressions changed. Preview the CSV again.");
- for (var check = 0; check < current.accepted.length; check++) {
- if (current.accepted[check].emailKey !== pendingPreview.accepted[check].emailKey)
- throw new Error("Contacts changed. Preview the CSV again.");
- }
- db.BeginTrans();
- inTransaction = true;
- for (var i = 0; i < current.accepted.length; i++) importOne(db, current.accepted[i]);
- db.CommitTrans();
- inTransaction = false;
- document.getElementById("importMessage").innerText =
- "Imported " + current.accepted.length + " contacts. Rejected rows were not saved.";
- pendingPreview = null;
- document.getElementById("commitImport").disabled = true;
- succeeded = true;
- } catch (error) {
- if (inTransaction) db.RollbackTrans();
- document.getElementById("importMessage").innerText = "Import failed: " + error.message;
- } finally {
- if (db !== null && db.State === 1) db.Close();
- if (succeeded) { refreshStatus(); refreshRecipients(); }
- }
- }
- function addSuppression() {
- var db = null, succeeded = false;
- try {
- var email = document.getElementById("suppressEmail").value.replace(/^\s+|\s+$/g, "");
- if (!MassMailerContacts.isEmail(email)) throw new Error("Enter a valid email address");
- var key = MassMailerContacts.emailKey(email);
- var reason = document.getElementById("suppressReason").value;
- var evidence = document.getElementById("suppressEvidence").value.replace(/^\s+|\s+$/g, "");
- var opened = openDatabase();
- db = opened.db;
- if (emailLookup(db, "Suppression")[key]) throw new Error("Address is already suppressed");
- var cmd = new ActiveXObject("ADODB.Command");
- cmd.ActiveConnection = db;
- cmd.CommandText = "INSERT INTO [Suppression] ([EmailKey],[Reason],[RecordedAtUtc]," +
- "[EvidenceReference]) VALUES (?, ?, " + utcNowSql() + ", ?)";
- cmd.Parameters.Append(cmd.CreateParameter("email", 202, 1, 254, key));
- cmd.Parameters.Append(cmd.CreateParameter("reason", 202, 1, 40, reason));
- cmd.Parameters.Append(cmd.CreateParameter("evidence", 203, 1, Math.max(1, evidence.length), evidence));
- cmd.Execute();
- document.getElementById("suppressMessage").innerText = "Suppressed " + key;
- document.getElementById("suppressEmail").value = "";
- succeeded = true;
- } catch (error) {
- document.getElementById("suppressMessage").innerText = "Suppression failed: " + error.message;
- } finally {
- if (db !== null && db.State === 1) db.Close();
- if (succeeded) { refreshStatus(); refreshRecipients(); }
- }
- }
- function powerShellHost() {
- var fs = new ActiveXObject("Scripting.FileSystemObject");
- var shell = new ActiveXObject("WScript.Shell");
- var root = shell.ExpandEnvironmentStrings("%SystemRoot%");
- var settings = readSettings(fs.BuildPath(projectRoot(), "config.ini"));
- var folder = (settings.DB_BITNESS || "").toLowerCase() === "x64" ? "System32" :
- (fs.FolderExists(root + "\\SysWOW64") ? "SysWOW64" : "System32");
- return root + "\\" + folder + "\\WindowsPowerShell\\v1.0\\powershell.exe";
- }
- function quoted(value) { return '"' + value + '"'; }
- function writeJsonFile(path, value) {
- var stream = new ActiveXObject("ADODB.Stream");
- try {
- stream.Type = 2;
- stream.Charset = "utf-8";
- stream.Open();
- stream.WriteText(JSON.stringify(value));
- stream.SaveToFile(path, 2);
- } finally { if (stream.State === 1) stream.Close(); }
- }
- function readJsonFile(path) {
- var stream = new ActiveXObject("ADODB.Stream");
- try {
- stream.Type = 2;
- stream.Charset = "utf-8";
- stream.Open();
- stream.LoadFromFile(path);
- return JSON.parse(stream.ReadText().replace(/^\uFEFF/, ""));
- } finally { if (stream.State === 1) stream.Close(); }
- }
- function finishHiddenTool(job) {
- var fs = new ActiveXObject("Scripting.FileSystemObject");
- var result;
- try {
- if (!fs.FileExists(job.resultPath)) throw new Error("Helper exited without a result");
- result = readJsonFile(job.resultPath);
- } finally {
- if (fs.FileExists(job.requestPath)) fs.DeleteFile(job.requestPath);
- if (fs.FileExists(job.resultPath)) fs.DeleteFile(job.resultPath);
- }
- if (!result.Success) throw new Error(result.Error || "Helper failed");
- return result.Output || "";
- }
- function startHiddenTool(scriptName, parameters, wait) {
- var fs = new ActiveXObject("Scripting.FileSystemObject");
- var folder = fs.BuildPath(projectRoot(), "temp");
- if (!fs.FolderExists(folder)) fs.CreateFolder(folder);
- var requestPath = fs.BuildPath(folder, fs.GetTempName() + ".request.json");
- var job = { requestPath: requestPath, resultPath: requestPath + ".result.json",
- startedAt: new Date().getTime(), warned: false };
- var bridge = fs.BuildPath(projectRoot(), "tools\\run-hidden-tool.ps1");
- var command = quoted(powerShellHost()) + " -NoProfile -ExecutionPolicy Bypass -File " +
- quoted(bridge) + " -RequestPath " + quoted(job.requestPath) +
- " -ResultPath " + quoted(job.resultPath);
- writeJsonFile(job.requestPath, { ScriptName: scriptName,
- ConfigPath: fs.BuildPath(projectRoot(), "config.ini"), Parameters: parameters || {} });
- try {
- new ActiveXObject("WScript.Shell").Run(command, 0, wait);
- return wait ? finishHiddenTool(job) : job;
- } catch (error) {
- if (fs.FileExists(job.requestPath)) fs.DeleteFile(job.requestPath);
- throw error;
- }
- }
- function configurePassword() {
- try {
- var fs = new ActiveXObject("Scripting.FileSystemObject");
- var script = fs.BuildPath(projectRoot(), "tools\\set-smtp-password.ps1");
- var command = quoted(powerShellHost()) + " -NoProfile -ExecutionPolicy Bypass -File " + quoted(script);
- var status = new ActiveXObject("WScript.Shell").Run(command, 1, true);
- document.getElementById("transportMessage").innerText = status === 0 ?
- "SMTP password setup completed." : "SMTP password setup failed. Review the console error.";
- } catch (error) {
- document.getElementById("transportMessage").innerText = "Setup failed: " + error.message;
- }
- }
- function sendInternalTest() {
- try {
- var fs = new ActiveXObject("Scripting.FileSystemObject");
- var settings = readSettings(fs.BuildPath(projectRoot(), "config.ini"));
- if (!settings.SMTP_TEST_TO) throw new Error("Set SMTP_TEST_TO in config.ini first");
- if (!window.confirm("Send one internal SMTP test to " + settings.SMTP_TEST_TO + "?")) return;
- document.getElementById("transportMessage").innerText =
- runTemplateTool("test-smtp-message.ps1", { Send: true });
- } catch (error) {
- document.getElementById("transportMessage").innerText = "Test failed: " + error.message;
- }
- }
- function refreshTemplates() {
- var db = null;
- try {
- db = openDatabase().db;
- var rows = db.Execute("SELECT [Id],[TemplateName],[VersionNumber] FROM [TemplateVersion] WHERE [ValidationStatus]='validated' ORDER BY [Id] DESC");
- var select = document.getElementById("templateVersion");
- var campaignSelect = document.getElementById("campaignTemplateVersion");
- while (select.options.length) select.remove(0);
- while (campaignSelect.options.length) campaignSelect.remove(0);
- while (!rows.EOF) {
- var value = String(rows.Fields("Id").Value);
- var label = String(rows.Fields("TemplateName").Value) + " — version " +
- String(rows.Fields("VersionNumber").Value);
- var option = document.createElement("option");
- option.value = value;
- option.text = label;
- select.add(option);
- var campaignOption = document.createElement("option");
- campaignOption.value = value;
- campaignOption.text = label;
- campaignSelect.add(campaignOption);
- rows.MoveNext();
- }
- rows.Close();
- invalidateCampaignReview();
- } catch (error) {
- document.getElementById("templateMessage").innerText = "Template list failed: " + error.message;
- } finally {
- if (db !== null && db.State === 1) db.Close();
- }
- }
- function runTemplateTool(scriptName, parameters) {
- return startHiddenTool(scriptName, parameters, true);
- }
- function importTemplate() {
- try {
- var path = document.getElementById("templatePath").value;
- if (!path || path.indexOf('"') !== -1) throw new Error("Select a template file");
- var result = runTemplateTool("import-template.ps1", { Path: path });
- document.getElementById("templateMessage").innerText = result;
- refreshTemplates();
- refreshStatus();
- } catch (error) {
- document.getElementById("templateMessage").innerText = "Import failed: " + error.message;
- }
- }
- function previewTemplate() {
- try {
- var id = document.getElementById("templateVersion").value;
- if (!/^[1-9][0-9]*$/.test(id)) throw new Error("Select an imported template");
- var file = runTemplateTool("preview-template.ps1", { TemplateId: Number(id) });
- document.getElementById("templatePreview").src = file;
- document.getElementById("templateMessage").innerText =
- "Showing the imported snapshot. This preview does not include the campaign footer yet.";
- } catch (error) {
- document.getElementById("templateMessage").innerText = "Preview failed: " + error.message;
- }
- }
- function refreshCampaigns() {
- var db = null;
- try {
- db = openDatabase().db;
- var rows = db.Execute("SELECT [Id],[Name],[Status] FROM [Campaign] ORDER BY [Id] DESC");
- var body = document.getElementById("campaignBody");
- while (body.firstChild) body.removeChild(body.firstChild);
- var select = document.getElementById("dispatchCampaign");
- var reportSelect = document.getElementById("reportCampaign");
- var selectedCampaign = select.value;
- var selectedReport = reportSelect.value;
- while (select.options.length) select.remove(0);
- while (reportSelect.options.length) reportSelect.remove(0);
- while (!rows.EOF) {
- var tr = document.createElement("tr");
- var values = [rows.Fields("Id").Value, rows.Fields("Name").Value,
- rows.Fields("Status").Value];
- for (var i = 0; i < values.length; i++) {
- var td = document.createElement("td");
- td.innerText = String(values[i]);
- tr.appendChild(td);
- }
- body.appendChild(tr);
- var reportOption = document.createElement("option");
- reportOption.value = String(values[0]);
- reportOption.text = "#" + values[0] + " " + values[1];
- reportSelect.add(reportOption);
- var status = String(values[2]);
- if (status === "approved_paused" || status === "running") {
- var option = document.createElement("option");
- option.value = String(values[0]);
- option.text = "#" + values[0] + " " + values[1] + " (" + status + ")";
- select.add(option);
- }
- rows.MoveNext();
- }
- rows.Close();
- for (var d = 0; d < select.options.length; d++) {
- if (select.options[d].value === selectedCampaign) select.selectedIndex = d;
- }
- for (var r = 0; r < reportSelect.options.length; r++) {
- if (reportSelect.options[r].value === selectedReport) reportSelect.selectedIndex = r;
- }
- refreshUncertain();
- } catch (error) {
- document.getElementById("campaignMessage").innerText = "Campaign list failed: " + error.message;
- } finally {
- if (db !== null && db.State === 1) db.Close();
- }
- }
- function selectedRecipientIds() {
- var ids = [];
- for (var id in recipientSelection) {
- if (recipientSelection.hasOwnProperty(id) && recipientSelection[id]) ids.push(Number(id));
- }
- return ids;
- }
- function updateRecipientCount() {
- var total = 0;
- for (var id in recipientSelection) if (recipientSelection.hasOwnProperty(id)) total++;
- document.getElementById("recipientCount").innerText =
- selectedRecipientIds().length + " of " + total + " eligible contacts selected";
- }
- function toggleRecipient(box) {
- recipientSelection[box.value] = box.checked;
- updateRecipientCount();
- invalidateCampaignReview();
- }
- function setVisibleRecipients(checked) {
- var boxes = document.getElementById("recipientList").getElementsByTagName("input");
- for (var i = 0; i < boxes.length; i++) {
- if (boxes[i].parentNode.parentNode.style.display === "none") continue;
- boxes[i].checked = checked;
- recipientSelection[boxes[i].value] = checked;
- }
- updateRecipientCount();
- invalidateCampaignReview();
- }
- function filterRecipients() {
- var needle = document.getElementById("recipientFilter").value.toLowerCase();
- var rows = document.getElementById("recipientList").getElementsByTagName("tr");
- for (var i = 0; i < rows.length; i++) {
- rows[i].style.display =
- rows[i].getAttribute("data-text").indexOf(needle) === -1 ? "none" : "";
- }
- }
- function refreshRecipients() {
- var db = null;
- try {
- db = openDatabase().db;
- var rows = db.Execute("SELECT c.[Id],c.[EmailOriginal],c.[BusinessName] FROM [Contact] AS c " +
- "LEFT JOIN [Suppression] AS s ON c.[EmailKey]=s.[EmailKey] WHERE s.[EmailKey] IS NULL " +
- "AND c.[Country]='US' AND c.[EligibilityBasis]='public_listing' ORDER BY c.[Id]");
- var body = document.getElementById("recipientList");
- while (body.firstChild) body.removeChild(body.firstChild);
- var known = recipientSelection;
- recipientSelection = {};
- while (!rows.EOF) {
- var id = String(rows.Fields("Id").Value);
- var email = String(rows.Fields("EmailOriginal").Value);
- var business = rows.Fields("BusinessName").Value;
- business = business === null ? "" : String(business);
- recipientSelection[id] = known.hasOwnProperty(id) ? known[id] : true;
- var tr = document.createElement("tr");
- tr.setAttribute("data-text", (email + " " + business).toLowerCase());
- var boxCell = document.createElement("td");
- var box = document.createElement("input");
- box.type = "checkbox";
- box.value = id;
- box.checked = recipientSelection[id];
- box.onclick = function () { toggleRecipient(this); };
- boxCell.appendChild(box);
- var emailCell = document.createElement("td");
- emailCell.innerText = email;
- var businessCell = document.createElement("td");
- businessCell.innerText = business;
- tr.appendChild(boxCell);
- tr.appendChild(emailCell);
- tr.appendChild(businessCell);
- body.appendChild(tr);
- rows.MoveNext();
- }
- rows.Close();
- updateRecipientCount();
- filterRecipients();
- } catch (error) {
- document.getElementById("campaignMessage").innerText = "Recipient list failed: " + error.message;
- } finally {
- if (db !== null && db.State === 1) db.Close();
- }
- }
- function invalidateCampaignReview() {
- pendingCampaignReview = null;
- campaignTestAccepted = false;
- document.getElementById("sendCampaignTest").disabled = true;
- document.getElementById("approveCampaign").disabled = true;
- document.getElementById("confirmReceived").checked = false;
- document.getElementById("confirmReceived").disabled = true;
- document.getElementById("campaignReview").innerText = "";
- document.getElementById("campaignPreview").src = "about:blank";
- }
- function campaignRequest() {
- return {
- Name: document.getElementById("campaignName").value,
- Subject: document.getElementById("campaignSubject").value,
- TemplateId: document.getElementById("campaignTemplateVersion").value,
- ContactIds: selectedRecipientIds(),
- ReviewToken: pendingCampaignReview ? pendingCampaignReview.Token : "",
- TestReceived: document.getElementById("confirmReceived").checked
- };
- }
- function withCampaignRequest(scriptName, extraParameters) {
- var fs = new ActiveXObject("Scripting.FileSystemObject");
- var folder = fs.BuildPath(projectRoot(), "temp");
- if (!fs.FolderExists(folder)) fs.CreateFolder(folder);
- var path = fs.BuildPath(folder, fs.GetTempName());
- var stream = new ActiveXObject("ADODB.Stream");
- try {
- stream.Type = 2;
- stream.Charset = "utf-8";
- stream.Open();
- stream.WriteText(JSON.stringify(campaignRequest()));
- stream.SaveToFile(path, 2);
- stream.Close();
- var parameters = extraParameters || {};
- parameters.RequestPath = path;
- return runTemplateTool(scriptName, parameters);
- } finally {
- if (stream.State === 1) stream.Close();
- if (fs.FileExists(path)) fs.DeleteFile(path);
- }
- }
- function reviewCampaign() {
- invalidateCampaignReview();
- try {
- var data = JSON.parse(withCampaignRequest("review-campaign.ps1"));
- pendingCampaignReview = data;
- document.getElementById("campaignReview").innerText =
- data.Count + " eligible recipients. From: " + data.From + ". Reply-to: " +
- data.ReplyTo + ". Postal address: " + data.PostalAddress +
- ". Template: " + data.TemplateName + " v" + data.TemplateVersion +
- ". Subject: " + data.Subject + ".";
- document.getElementById("campaignPreview").src = data.PreviewPath;
- document.getElementById("sendCampaignTest").disabled = false;
- document.getElementById("campaignMessage").innerText =
- "Review the full message, then send it to the internal test inbox.";
- } catch (error) {
- document.getElementById("campaignMessage").innerText = "Review failed: " + error.message;
- }
- }
- function sendReviewedCampaignTest() {
- if (!pendingCampaignReview) return;
- if (!window.confirm("Send this campaign test to " + pendingCampaignReview.TestTo + "?")) return;
- try {
- var result = withCampaignRequest("send-campaign-test.ps1", { Send: true });
- campaignTestAccepted = true;
- document.getElementById("confirmReceived").disabled = false;
- document.getElementById("campaignMessage").innerText = result;
- } catch (error) {
- document.getElementById("campaignMessage").innerText = "Campaign test failed: " + error.message;
- }
- }
- function updateApprovalButton() {
- document.getElementById("approveCampaign").disabled =
- !pendingCampaignReview || !campaignTestAccepted ||
- !document.getElementById("confirmReceived").checked;
- }
- function approveReviewedCampaign() {
- if (!pendingCampaignReview || !campaignTestAccepted ||
- !document.getElementById("confirmReceived").checked) return;
- if (!window.confirm("Approve " + pendingCampaignReview.Count +
- " recipients? The campaign will remain paused.")) return;
- try {
- var result = withCampaignRequest("approve-campaign.ps1");
- document.getElementById("campaignMessage").innerText = result;
- invalidateCampaignReview();
- refreshStatus();
- refreshCampaigns();
- } catch (error) {
- document.getElementById("campaignMessage").innerText = "Approval failed: " + error.message;
- }
- }
- function htaProcessId() {
- var service = new ActiveXObject("WbemScripting.SWbemLocator")
- .ConnectServer(".", "root\\cimv2");
- var rows = new Enumerator(service.ExecQuery(
- "SELECT ProcessId,CommandLine FROM Win32_Process WHERE Name='mshta.exe'"));
- var path = projectRoot().toLowerCase();
- for (; !rows.atEnd(); rows.moveNext()) {
- var row = rows.item();
- var command = String(row.CommandLine).toLowerCase();
- if (command.indexOf("massmailer.hta") !== -1 && command.indexOf(path) !== -1)
- return Number(row.ProcessId);
- }
- throw new Error("Could not identify this HTA process for the open-window send guard");
- }
- function writeHeartbeat() {
- if (!dispatchReady) return;
- var fs = new ActiveXObject("Scripting.FileSystemObject");
- var file = fs.CreateTextFile(dispatchSessionPath, true);
- file.Write(dispatchSessionToken);
- file.Close();
- }
- function startup() {
- try {
- showTab("overview");
- refreshStatus();
- refreshTemplates();
- refreshCampaigns();
- refreshRecipients();
- initializeDispatch();
- } catch (error) {
- document.getElementById("dispatchMessage").innerText =
- "Startup failed: " + error.message;
- }
- }
- function showTab(name) {
- var panes = document.querySelectorAll(".tab-pane");
- var buttons = document.querySelectorAll(".tab-button");
- for (var i = 0; i < panes.length; i++) {
- var paneActive = panes[i].getAttribute("data-tab") === name;
- var paneBase = panes[i].getAttribute("data-tab") === "overview" ? "" : "panel ";
- panes[i].className = paneBase + (paneActive ? "tab-pane active" : "tab-pane");
- panes[i].setAttribute("aria-hidden", paneActive ? "false" : "true");
- }
- for (var j = 0; j < buttons.length; j++) {
- var buttonActive = buttons[j].getAttribute("data-tab") === name;
- buttons[j].className = buttonActive ? "tab-button active" : "tab-button";
- buttons[j].setAttribute("aria-selected", buttonActive ? "true" : "false");
- }
- window.scrollTo(0, 0);
- }
- function initializeDispatch() {
- if (dispatchReady) return;
- try {
- var fs = new ActiveXObject("Scripting.FileSystemObject");
- var folder = fs.BuildPath(projectRoot(), "temp");
- if (!fs.FolderExists(folder)) fs.CreateFolder(folder);
- document.getElementById("dispatchMessage").innerText =
- runTemplateTool("dispatch-control.ps1", { Action: "Recover" });
- dispatchSessionPid = htaProcessId();
- dispatchSessionToken = "";
- for (var i = 0; i < 32; i++)
- dispatchSessionToken += "0123456789abcdef".charAt(Math.floor(Math.random() * 16));
- dispatchSessionPath = fs.BuildPath(folder, "session-" + dispatchSessionPid + ".txt");
- dispatchReady = true;
- writeHeartbeat();
- if (dispatchTimerId === null)
- dispatchTimerId = window.setInterval(dispatchTick, 5000);
- document.getElementById("retryDispatch").disabled = true;
- document.getElementById("reviewOptOut").disabled = false;
- document.getElementById("resumeCampaign").disabled = false;
- document.getElementById("pauseAll").disabled = false;
- document.getElementById("cancelCampaign").disabled = false;
- refreshCampaigns();
- refreshDispatchStatus();
- } catch (error) {
- dispatchReady = false;
- document.getElementById("dispatchMessage").innerText =
- "Dispatcher did not initialize: " + error.message;
- }
- }
- function shutdownDispatch() {
- dispatchReady = false;
- try {
- if (dispatchTimerId !== null) window.clearInterval(dispatchTimerId);
- var fs = new ActiveXObject("Scripting.FileSystemObject");
- if (dispatchSessionPath && fs.FileExists(dispatchSessionPath))
- fs.DeleteFile(dispatchSessionPath);
- runTemplateTool("dispatch-control.ps1", { Action: "PauseAll" });
- } catch (ignored) { }
- }
- function refreshDispatchStatus() {
- if (!dispatchReady || dispatchProcess) return;
- try {
- var status = JSON.parse(runTemplateTool("dispatch-control.ps1", { Action: "Status" }));
- document.getElementById("sendState").innerText = status.Paused ?
- "Paused" : "Running " + status.RunningCampaigns + " campaign(s)";
- document.getElementById("dispatchSummary").innerText =
- "Pending " + status.Counts.pending + ", accepted " + status.Counts.accepted +
- ", uncertain " + status.Counts.uncertain + ", suppressed " +
- status.Counts.suppressed + ". Next allowed attempt (UTC): " +
- (status.NextAllowedAttemptUtc || "Now") + ".";
- } catch (error) {
- document.getElementById("dispatchMessage").innerText =
- "Dispatch status failed: " + error.message;
- }
- }
- function dispatchTick() {
- if (!dispatchReady) return;
- try {
- writeHeartbeat();
- var fs = new ActiveXObject("Scripting.FileSystemObject");
- if (dispatchProcess) {
- if (!fs.FileExists(dispatchProcess.resultPath)) {
- if (!dispatchProcess.warned &&
- new Date().getTime() - dispatchProcess.startedAt > 60000) {
- dispatchProcess.warned = true;
- document.getElementById("dispatchMessage").innerText =
- "Sending helper has not returned. No further attempts will start until it finishes; pause and review the campaign.";
- }
- return;
- }
- var finished = dispatchProcess;
- dispatchProcess = null;
- try {
- document.getElementById("dispatchMessage").innerText = finishHiddenTool(finished);
- } catch (error) {
- document.getElementById("dispatchMessage").innerText =
- "Dispatch error: " + error.message;
- }
- refreshStatus();
- refreshCampaigns();
- refreshDispatchStatus();
- return;
- }
- var db = openDatabase().db;
- var running = 0;
- try {
- var rows = db.Execute("SELECT COUNT(*) AS N FROM [Campaign] WHERE [Status]='running'");
- running = Number(rows.Fields("N").Value);
- rows.Close();
- } finally { db.Close(); }
- if (!running) return;
- dispatchProcess = startHiddenTool("dispatch-once.ps1", { Send: true,
- SessionPid: dispatchSessionPid, SessionToken: dispatchSessionToken }, false);
- } catch (error) {
- document.getElementById("dispatchMessage").innerText =
- "Dispatch tick failed: " + error.message;
- }
- }
- function dispatchControl(action, campaignId, deliveryId) {
- try {
- var parameters = { Action: action };
- if (campaignId) parameters.CampaignId = Number(campaignId);
- if (deliveryId) parameters.DeliveryId = Number(deliveryId);
- var result = runTemplateTool("dispatch-control.ps1", parameters);
- document.getElementById("dispatchMessage").innerText = result;
- refreshCampaigns();
- refreshUncertain();
- refreshDispatchStatus();
- } catch (error) {
- document.getElementById("dispatchMessage").innerText =
- "Control failed: " + error.message;
- }
- }
- function reviewOptOutMailbox() {
- if (window.confirm("Have you checked the monitored reply mailbox and recorded all opt-outs?"))
- dispatchControl("ReviewOptOut", 0);
- }
- function selectedDispatchCampaign() {
- var id = document.getElementById("dispatchCampaign").value;
- if (!/^[1-9][0-9]*$/.test(id)) throw new Error("Select an approved campaign");
- return id;
- }
- function resumeSelectedCampaign() {
- try {
- var id = selectedDispatchCampaign();
- if (window.confirm("Start sending campaign #" + id +
- " to approved business contacts while this HTA stays open?"))
- dispatchControl("Resume", id);
- } catch (error) { document.getElementById("dispatchMessage").innerText = error.message; }
- }
- function testApprovedCampaign() {
- try {
- var id = selectedDispatchCampaign();
- var fs = new ActiveXObject("Scripting.FileSystemObject");
- var settings = readSettings(fs.BuildPath(projectRoot(), "config.ini"));
- if (!settings.SMTP_TEST_TO) throw new Error("Set SMTP_TEST_TO in config.ini first");
- if (!window.confirm("Send a test of approved campaign #" + id +
- " to " + settings.SMTP_TEST_TO + " only?")) return;
- document.getElementById("dispatchMessage").innerText =
- runTemplateTool("send-approved-campaign-test.ps1", { CampaignId: Number(id), Send: true });
- } catch (error) {
- document.getElementById("dispatchMessage").innerText =
- "Approved campaign test failed: " + error.message;
- }
- }
- function cancelSelectedCampaign() {
- try {
- var id = selectedDispatchCampaign();
- if (window.confirm("Cancel all pending deliveries in campaign #" + id + "?"))
- dispatchControl("Cancel", id);
- } catch (error) { document.getElementById("dispatchMessage").innerText = error.message; }
- }
- function refreshUncertain() {
- var db = null;
- try {
- db = openDatabase().db;
- var rows = db.Execute("SELECT [Id],[CampaignId],[EmailKey],[AttemptCount] FROM [Delivery] WHERE [Status]='uncertain' ORDER BY [Id]");
- var select = document.getElementById("uncertainDelivery");
- var selectedDelivery = select.value;
- while (select.options.length) select.remove(0);
- while (!rows.EOF) {
- var option = document.createElement("option");
- option.value = String(rows.Fields("Id").Value);
- option.text = "Delivery #" + option.value + " / campaign #" +
- rows.Fields("CampaignId").Value + " / " + rows.Fields("EmailKey").Value +
- " / attempts " + rows.Fields("AttemptCount").Value;
- select.add(option);
- rows.MoveNext();
- }
- rows.Close();
- for (var i = 0; i < select.options.length; i++) {
- if (select.options[i].value === selectedDelivery) select.selectedIndex = i;
- }
- } catch (error) {
- document.getElementById("dispatchMessage").innerText =
- "Uncertain list failed: " + error.message;
- } finally {
- if (db !== null && db.State === 1) db.Close();
- }
- }
- function reconcileDelivery(action) {
- var id = document.getElementById("uncertainDelivery").value;
- if (!/^[1-9][0-9]*$/.test(id)) {
- document.getElementById("dispatchMessage").innerText = "Select an uncertain delivery.";
- return;
- }
- var prompt = action === "ResolveAccepted" ?
- "Have you verified delivery #" + id + " was accepted by the provider?" :
- "Have you checked that delivery #" + id + " was not sent and authorize one retry?";
- if (window.confirm(prompt)) dispatchControl(action, 0, id);
- }
- function exportSelectedReport() {
- try {
- var id = document.getElementById("reportCampaign").value;
- if (!/^[1-9][0-9]*$/.test(id)) throw new Error("Select a campaign to report");
- document.getElementById("reportMessage").innerText =
- runTemplateTool("export-report.ps1", { CampaignId: Number(id) });
- } catch (error) {
- document.getElementById("reportMessage").innerText =
- "Report export failed: " + error.message;
- }
- }
- </script>
- </head>
- <body onload="startup()" onunload="shutdownDispatch()">
- <header><h1>MassMailer</h1><p>9 x 12 postcard marketing campaign workspace</p></header>
- <main>
- <div class="tabbar" role="tablist" aria-label="Application sections">
- <button type="button" class="tab-button" data-tab="overview" role="tab" onclick="showTab('overview')">Overview</button>
- <button type="button" class="tab-button" data-tab="smtp" role="tab" onclick="showTab('smtp')">SMTP</button>
- <button type="button" class="tab-button" data-tab="contacts" role="tab" onclick="showTab('contacts')">Contacts</button>
- <button type="button" class="tab-button" data-tab="templates" role="tab" onclick="showTab('templates')">Templates</button>
- <button type="button" class="tab-button" data-tab="campaigns" role="tab" onclick="showTab('campaigns')">Campaigns</button>
- <button type="button" class="tab-button" data-tab="sending" role="tab" onclick="showTab('sending')">Sending</button>
- <button type="button" class="tab-button" data-tab="reports" role="tab" onclick="showTab('reports')">Reports</button>
- </div>
- <div class="tab-pane" data-tab="overview" role="tabpanel">
- <div class="notice"><strong>Campaigns start only when you explicitly resume them.</strong> Sending stops when this window closes. Review replies and record opt-outs before resuming.</div>
- <div class="cards">
- <div class="card">Contacts<span class="number" id="contacts">—</span></div>
- <div class="card">Suppressed<span class="number" id="suppressed">—</span></div>
- <div class="card">Templates<span class="number" id="templates">—</span></div>
- <div class="card">Campaigns<span class="number" id="campaigns">—</span></div>
- </div>
- <div class="details">
- <div><strong>Database</strong><span id="database">Checking…</span></div>
- <div><strong>Provider</strong><span id="provider">Checking…</span></div>
- <div><strong>Send interval</strong><span id="interval">Checking…</span></div>
- <div><strong>Internal test to</strong><span id="testTo">Checking…</span></div>
- <div><strong>Send state</strong><span id="sendState">Initializing…</span></div>
- <button onclick="refreshStatus()">Refresh status</button>
- <div id="error"></div>
- </div>
- </div>
- <div class="panel tab-pane" data-tab="smtp" role="tabpanel">
- <h2>SMTP setup and internal test</h2>
- <p>The password entry opens a local console and stores a protected value in the MDB. The test sends one HTML message with an inline image to the configured test inbox.</p>
- <button onclick="configurePassword()">Set or rotate SMTP password</button>
- <button onclick="sendInternalTest()">Send one internal test</button>
- <div id="transportMessage"></div>
- </div>
- <div class="panel tab-pane" data-tab="contacts" role="tabpanel">
- <h2>Import business contacts</h2>
- <p>UTF-8 CSV needs an <code>email</code> header. Optional headers: <code>business_name</code>, <code>source_reference</code>, and <code>acquired_at</code> (YYYY-MM-DD). Every accepted row needs a source reference.</p>
- <label class="field">CSV file <input id="csvPath" type="file" accept=".csv" /></label>
- <label class="field">Source URL or reference for rows without one
- <input id="sourceFallback" type="text" maxlength="2048" /></label>
- <button onclick="previewContacts()">Preview import</button>
- <button id="commitImport" onclick="commitContacts()" disabled="disabled">Import ready contacts</button>
- <div id="importMessage"></div>
- <p id="previewCount"></p>
- <table><thead><tr><th>CSV row</th><th>Email</th><th>Business</th><th>Source</th><th>Result</th></tr></thead>
- <tbody id="previewBody"></tbody></table>
- </div>
- <div class="panel tab-pane" data-tab="templates" role="tabpanel">
- <h2>HTML templates</h2>
- <p>Choose a well-formed HTML file inside the configured template folder. Images must use relative PNG, JPEG, or GIF paths. Imports create a new version and copy image bytes into the database.</p>
- <label class="field">Template file <input id="templatePath" type="file" accept=".html,.htm" /></label>
- <button onclick="importTemplate()">Import template version</button>
- <label class="field">Imported version <select id="templateVersion"></select></label>
- <button onclick="previewTemplate()">Preview selected version</button>
- <div id="templateMessage"></div>
- <iframe id="templatePreview" APPLICATION="no" title="Template preview"></iframe>
- </div>
- <div class="panel tab-pane" data-tab="campaigns" role="tabpanel">
- <h2>Review and approve a campaign</h2>
- <p>Approval captures the contacts you select below (from currently eligible, unsuppressed contacts) and the selected template version. It requires a complete postal address in config.ini, a campaign-specific internal test, and your confirmation that you received it. Approved campaigns stay paused until you resume them.</p>
- <label class="field">Campaign name <input id="campaignName" type="text" maxlength="200" oninput="invalidateCampaignReview()" /></label>
- <label class="field">Email subject <input id="campaignSubject" type="text" maxlength="240" oninput="invalidateCampaignReview()" /></label>
- <label class="field">Template version <select id="campaignTemplateVersion" onchange="invalidateCampaignReview()"></select></label>
- <h3>Recipients</h3>
- <label class="field">Filter by email or business <input id="recipientFilter" type="text" oninput="filterRecipients()" /></label>
- <button onclick="setVisibleRecipients(true)">Select shown</button>
- <button onclick="setVisibleRecipients(false)">Clear shown</button>
- <button onclick="refreshRecipients()">Reload contacts</button>
- <div id="recipientCount"></div>
- <div style="max-height:220px;overflow:auto;border:1px solid #dbe1e7;background:white">
- <table style="margin-top:0"><tbody id="recipientList"></tbody></table>
- </div>
- <button onclick="reviewCampaign()">Review message and recipients</button>
- <div id="campaignReview"></div>
- <iframe id="campaignPreview" APPLICATION="no" title="Full campaign preview"></iframe>
- <button id="sendCampaignTest" onclick="sendReviewedCampaignTest()" disabled="disabled">Send reviewed message to internal test inbox</button>
- <label class="field"><input id="confirmReceived" type="checkbox" disabled="disabled" onchange="updateApprovalButton()" style="display:inline;width:auto" /> I received and checked the campaign test message.</label>
- <button id="approveCampaign" onclick="approveReviewedCampaign()" disabled="disabled">Approve campaign (paused)</button>
- <div id="campaignMessage"></div>
- <table><thead><tr><th>ID</th><th>Campaign</th><th>Status</th></tr></thead><tbody id="campaignBody"></tbody></table>
- </div>
- <div class="panel tab-pane" data-tab="sending" role="tabpanel">
- <h2>Open-window sending</h2>
- <p>Check the reply mailbox daily. A send starts only while this HTA is open, after you explicitly resume an approved campaign. The configured interval applies across campaigns. Uncertain results pause sending for review.</p>
- <button id="reviewOptOut" onclick="reviewOptOutMailbox()" disabled="disabled">I reviewed replies and recorded opt-outs</button>
- <label class="field">Approved campaign <select id="dispatchCampaign"></select></label>
- <button onclick="testApprovedCampaign()">Send selected campaign test to internal inbox</button>
- <button id="resumeCampaign" onclick="resumeSelectedCampaign()" disabled="disabled">Resume selected campaign</button>
- <button id="pauseAll" onclick="dispatchControl('PauseAll',0)" disabled="disabled">Pause all</button>
- <button id="cancelCampaign" onclick="cancelSelectedCampaign()" disabled="disabled">Cancel selected campaign</button>
- <div id="dispatchSummary"></div>
- <div id="dispatchMessage"></div>
- <button id="retryDispatch" onclick="initializeDispatch()">Retry dispatcher initialization</button>
- <label class="field">Uncertain delivery <select id="uncertainDelivery"></select></label>
- <button onclick="reconcileDelivery('ResolveAccepted')">Mark verified accepted</button>
- <button onclick="reconcileDelivery('AuthorizeRetry')">Authorize one retry</button>
- </div>
- <div class="panel tab-pane" data-tab="contacts" role="tabpanel">
- <h2>Suppress an address</h2>
- <p>Add unsubscribe replies here before the next send. Suppression applies across all campaigns.</p>
- <label class="field">Email address <input id="suppressEmail" type="text" maxlength="254" /></label>
- <label class="field">Reason <select id="suppressReason"><option value="opt-out">Opt-out reply</option><option value="manual">Manual</option><option value="bounce">Hard bounce</option><option value="complaint">Complaint</option></select></label>
- <label class="field">Evidence or note <input id="suppressEvidence" type="text" maxlength="2048" /></label>
- <button onclick="addSuppression()">Suppress address</button>
- <div id="suppressMessage"></div>
- </div>
- <div class="panel tab-pane" data-tab="reports" role="tabpanel">
- <h2>Campaign reports</h2>
- <p>Export delivery statuses and attempt history to CSV files in the configured report folder. SMTP acceptance means the server accepted a message; it does not confirm inbox delivery.</p>
- <label class="field">Campaign <select id="reportCampaign"></select></label>
- <button onclick="exportSelectedReport()">Export campaign CSV reports</button>
- <div id="reportMessage"></div>
- </div>
- </main>
- </body>
- </html>
|