WSH/メール送信

　WSHを使えば、バッチでメール送信も簡単です。

　　test.vbs

Set oMsg = CreateObject("CDO.Message")
oMsg.From = "webmaster@jomora.bne.jp"
oMsg.To = "receiver@jomora.bne.jp"
oMsg.Subject = "This is Test."
oMsg.TextBody = Now & "これはテストメールです。" & vbCrLf 
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mailserver"
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMsg.Configuration.Fields.Update
oMsg.Send