CDO.Message でメールを送信する
Dim m: Set m = CreateObject("CDO.Message") m.From = "from@example.com" m.To = "to@example.com" m.Subject = "Subject" m.TextBody = "Body" m.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 m.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 m.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.example.com" m.Configuration.Fields.Update m.Send Set m = Nothing
こんな感じでログの結果を見ながらメールを送ったりする時に都合が良い。
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject") Dim ts: Set ts = fso.OpenTextFile(WScript.Arguments(0), 1) Dim msg: msg = ts.ReadAll ' 引数でファイル名を受けて: If 0 < fso.GetFile(WScript.Arguments(0)).Size Then ' ファイルに何か書き込みがあったらメールを送る End If ' とか If 0 < InStr(msg, "[ERROR]") Then ' [ERROR] があったらメールを送る End If ' とかする ts.Close Set ts = Nothing Set fso = Nothing