[snow]

表示中のテキストファイルをそのままメール送信します。
1行目に「to:(宛先メールアドレス)」を入れ、1行空けて本文を書きます。
toの他、subject、cc、bcc、from、attachも同様に。
（attachはファイルのフルパスで）
x-mailerを指定しようとしたところ、上書きできないようでした。

var SMTP_HOST = “SET YOUR SMTP”;
var SMTP_PORT = 25;
var FROM_DEFAULT = “SET YOUR MAILADDRESS”;
var SUBJECT_DEFAULT = “（無題）”;

(function () {
var msg = new ActiveXObject(“CDO.Message”);
msg.From = FROM_DEFAULT;
msg.Subject = SUBJECT_DEFAULT;
var fld = msg.Configuration.Fields;
fld(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2;
fld(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = SMTP_HOST;
fld(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = SMTP_PORT;
fld.Update();

var i = 1;
var n = document.getLines();
for (var s, p; i < n; i++) { s = document.getLine(i); if (!s) break; var p = s.indexOf(':'); switch (s.substring(0, p).toLowerCase()) { case "from": msg.From = s.substring(p + 1); break; case "to": msg.To = s.substring(p + 1); break; case "subject": msg.Subject = s.substring(p + 1); break; case "cc": msg.Cc = s.substring(p + 1); break; case "bcc": msg.Bcc = s.substring(p + 1); break; case "attach": for (var x = 0, as = s.substring(p + 1).split(','), a; (a = as[x]); x++) msg.AddAttachment(a); break; } } if (!msg.To) { alert("please specify to:"); return; } var txt = ""; for (j = i + 1; j < n; txt += document.getLine(j++) + "rn"); msg.TextBody = txt; msg.Send(); alert("send a mail to: " + msg.To); })();

[作成者]

投稿