読者です 読者をやめる 読者になる 読者になる

CDO.Message でメールを送信する

Windows VBS
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

参考: