[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(“https://schemas.microsoft.com/cdo/configuration/sendusing”) = 2;
fld(“https://schemas.microsoft.com/cdo/configuration/smtpserver”) = SMTP_HOST;
fld(“https://schemas.microsoft.com/cdo/configuration/smtpserverport”) = SMTP_PORT;
fld.Update();

var i = 1;
var n = document.getLines();
for (var s, p; i

[作成者]

投稿