WSHで
メールを送信する方法。
...今は
Windows PowerShellがあるので、もっといい方法がありそう。
CDOフレームワークによる送信例
Dim oMsg
Set oMsg = CreateObject("CDO.Message")
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mx1.hoge.co.jp "
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMsg.Configuration.Fields.Update
oMsg.From = "送信元 <from@hoge.co.jp>"
oMsg.To = "送信先 <to@hoge.co.jp>"
oMsg.Subject = "サブジェクト"
oMsg.TextBody = vMailBody
oMsg.Send
Set oMsg = Nothing
実に簡単。
最終更新：2009年08月20日 09:03
