3流プログラマのメモ書き

元開発職→現社内SEの三流プログラマのIT技術メモ書き。 このメモが忘れっぽい自分とググってきた技術者の役に立ってくれれば幸いです。(jehupc.exblog.jpから移転中)

(WSH)VBScriptでメール送信

最近まで知らなかったんですが、VBScriptでメール送信ができるようです。

参考にさせてもらったのは、メモしとこ CDO.Messageによるメール送信です。
参考先のコピペになりますが、以下のような感じでメール送信できるようです。

Set objMail = CreateObject("CDO.Message")

objMail.From = "from@hoge.example.com"
objMail.To = "to@hoge.example.com"
objMail.Cc = "cc@hoge.example.com"
'添付ファイル(フィアルパスを指定する)
objMail.AddAttachment = "c:\test.txt"

objMail.Subject = "メール送信テスト"
objMail.TextBody = "CDO.Messageによるメール送信テスト"

'送信方法 1:ローカルSMTPサービスのピックアップ・ディレクトリにメールを配置する 2:SMTPポートに接続して送信 3:OLE DBを利用してローカルのExchangeに接続する
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'SMTPサーバを指定(ホスト名orIP)
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.hoge.example.com"
'SMTPポート
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'SSL通信をする/しない
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
'SMTP認証 1(Basic認証)/2(NTLM認証)
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'SMTP送信ユーザ名
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "hoge@hoge.example.com"
'SMTP送信ユーザパスワード
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "passwd"
'タイムアウト
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objMail.Configuration.Fields.Update

objMail.Send

Set objMail = Nothing