mail_user = ""
mail_pass = ""


set fso = WScript.CreateObject("Scripting.FileSystemObject")
set file_mailbody = fso.OpenTextFile("お知らせ.txt")
set file_mailaddr = fso.OpenTextFile("mailaddr.txt")
set file_mailresult = fso.OpenTextFile("mail_reslt.txt",8,True)


set mailbody = file_mailbody.ReadAll();
file_mailbody.close

WScript.Echo "送信を開始します。"

setMailConfig msg, mail_user, mail_pass

Do Until file_mailaddr.AtEndOfStream = true
    set msg = WScript.CreateObject("CDO.Message")
    msg.From = ".jp>";        // 自分のメールアドレス
    msg.Subject = "";// メールの件名
    msg.TextBody = mailbody;
    set line = file_mailaddr.ReadLine
    set spli = line.split("\t")
	var num = spli(0);
	var mailaddr = spli(1);
    WScript.StdOut.Write(spli(0) & ": " & spli(1) & "	");
    file_mailresult.Write(spli(0) & "	" & spli(1) & "	");

    On Error resume next

	  msg.To   = mailaddr; // 送り先のメールアドレス
	  msg.Send();
    if err = 0 then
	  WScript.Echo("送信成功");
          file_mailresult.WriteLine("送信成功");
    else
	    WScript.Echo("送信失敗");
            var e_description = e.description;
  	    WScript.Echo("	Error: " + e_description);
            file_mailresult.WriteLine("送信失敗\tError: " + e_description)
    end if


Loop


file_mailaddr.Close
file_mailresult.Close

WScript.Echo "全件送信完了しました。"

sub setMailConfig(msg, user, pass) {
  msg.TextBodyPart.Charset = 'ISO-2022-JP';
  uri = "http://schemas.microsoft.com/cdo/configuration/"
  msg.Configuration.Fields.Item(uri & "sendusing") = 2
  msg.Configuration.Fields.Item(uri & "smtpconnectiontimeout") = 30
  msg.Configuration.Fields.Item(uri & "smtpserver") = "mail.domain.local"
  msg.Configuration.Fields.Item(uri & "smtpserverport") = 25
  msg.Configuration.Fields.Item(uri & "smtpauthenticate") = False
  msg.Configuration.Fields.Item(uri & "smtpusessl") = False
  msg.Configuration.Fields.Item(uri & "sendusername") = user
  msg.Configuration.Fields.Item(uri & "sendpassword") = pass
  msg.Configuration.Fields.Update

end sub