[ホーム] ＞ [VBScript FAQ 一覧] ＞ [メール送信のVBScript サンプル]

メール送信のVBScript サンプル | VBScript / VBA FAQ

VBScriptでメールを送信するプログラムのサンプルを紹介します。

以下、100通のテストメールを送信するサンプルです。
メールアドレスのIPアドレスは 10.0.0.1 です。

Set objMail = CreateObject("CDO.Message")

objMail.From = "from-name@example.com"
objMail.To = "to-name@example.co.jp"
objMail.Subject = "テスト"

rem 300K メール
objMail.TextBody = String (300000,"X")

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

i=0
do while i <> 100
objMail.Send
i=i+1
WScript.Echo "i=" & Cstr(i)
loop

Set objMail = Nothing


(*)このサンプルはSMTPサーバの送信認証はなし。別途パラメータ（ユーザ名、パスワード）を追加でSMTP-AUTH対応が可能。

[ホーム] ＞ [VBScript FAQ 一覧]