VBScript メール送信

こんにちは、ジンです。

VBScriptでメールを送信するサンプルを書いておきます。

Dim oMsg
 
Set oMsg = CreateObject("CDO.Message")
oMsg.From = "ここに送信元のメールアドレスを記入します"
oMsg.To = "ここに送信先のメールアドレスを記入します"
oMsg.Subject = "ここにメールのタイトルを記入します"
oMsg.TextBody = "ここに本文を書きます"
oMsg.TextBodyPart.Charset = "ISO-2022-JP"
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTPサーバーのアドレスを記入します"
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 
'場合によっては以下の設定が必要
'oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = true
'oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ここにアカウント名"
'oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ここにメールのパスワード"
 
oMsg.Configuration.Fields.Update
oMsg.Send
 
Set oMsg = Nothing

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です