VBS などからメールを送信する

プログラミング

ちょっと VBS で書き始めたスクリプトからメールを送信する必要があったので調べてみた。
恐ろしく簡単に送れる。

Option Explicit

Dim objCDOMessage
Dim strSchemas

strSchemas = "http://schemas.microsoft.com/cdo/configuration/"

Set objCDOMessage = CreateObject("CDO.Message")
objCDOMessage.From     = "(メールアドレスをここに指定)"
objCDOMessage.To       = "(メールアドレスをここに指定)"
objCDOMessage.Subject  = "CDO.Message によるメール送信テスト"
objCDOMessage.TextBody = "CDO.Message によるメール送信テストです" & vbCrLf & Now()
objCDOMessage.TextBodyPart.Charset = "ISO-2022-JP"
objCDOMessage.Configuration.Fields.Item(strSchemas & "sendusing") = 2
objCDOMessage.Configuration.Fields.Item(strSchemas & "smtpconnectiontimeout") = 30
objCDOMessage.Configuration.Fields.Item(strSchemas & "smtpserver") = "(SMTP サーバーをここに指定)"
objCDOMessage.Configuration.Fields.Item(strSchemas & "smtpserverport") = 465
objCDOMessage.Configuration.Fields.Item(strSchemas & "smtpauthenticate") = True
objCDOMessage.Configuration.Fields.Item(strSchemas & "sendusername") = "(SMTP サーバーのユーザー名をここに指定)"
objCDOMessage.Configuration.Fields.Item(strSchemas & "sendpassword") = "(STMP サーバーのパスワードをここに指定)"
objCDOMessage.Configuration.Fields.Item(strSchemas & "smtpusessl") = True
objCDOMessage.Configuration.Fields.Update()
objCDOMessage.Send()


色々なサイトに情報があったのだけどよくわからないのが多かった。
結局、こちらのサイトを見たらすぱっとそのままで使える感じだった(JavaScript から VBScript にしただけ)