[FAQ CENTER トップ]
[VBScript FAQ トップへ]

VBScript / VBA FAQ


スポンサード リンク

【質問】 メール送信のVBScript サンプル

スポンサード リンク

【答え】
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 トップへ]
[FAQ CENTER トップ]





(ご注意) 本サイト内の内容を使用して発生したいかなる時間的損害、金銭的損害あるいはいかなる損害に対して、いかなる人物も一切の責任を負いません。あくまでも個人の判断で使用してください。
本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。
このページはリンクフリーです。(このページへの直接リンクも可能です。)
雑誌等での紹介は特に連絡は不要です。
Copyright(c) tooljp.com 2007-2014