1件の投稿を表示中 - 1 - 1件目 (全1件中)
  • 投稿者
    投稿
  • #7878

    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); })();

1件の投稿を表示中 - 1 - 1件目 (全1件中)

このトピックに返信するにはログインが必要です。

友達に知らせる... Tweet about this on TwitterShare on FacebookShare on Google+Email this to someone