簡単なデイリービルドを組んでみる その４

Job

本当なら次のステップは回帰テストなんだろうけど、自動テストがないのでテストは省略。ビルドの結果をメールすることにする。
メールを送信するにはCDOを使う。これはWSHファイルを別に作って、バッチファイルから呼び出すことにする。

Set oMsg = CreateObject("CDO.Message")

oMsg.From = "from@email"
oMsg.To = "to@email"
oMsg.Subject = "デイリービルド結果"
oMsg.TextBody = "デイリービルドが完了しました。" & vbCrLf & Now

oMsg.Send

まずは、こんな感じで。
次にSMTPサーバーは別にあるので、これの指定を入れる。SMTPサーバーを指定するときには、サーバー名とポートを指定する。

oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp_server"
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMsg.Configuration.Fields.Update

あとはビルドログも見たいので、添付ファイルに追加する。

oMsg.AddAttachment "C:\hoge\build.log"

全部あわせてWSHファイルとして名前をつけて保存する。

Set oMsg = CreateObject("CDO.Message")

oMsg.From = "from@email"
oMsg.To = "to@email"
oMsg.Subject = "デイリービルド結果"
oMsg.TextBody = "デイリービルドが完了しました。" & vbCrLf & Now
oMsg.AddAttachment "C:\hoge\build.log"

oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp_server"
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMsg.Configuration.Fields.Update

oMsg.Send

あとはバッチファイルの中に、このWSHファイルの呼び出しを入れておく。

cscript sendmail.vbs