VBScriptで、メールの送信をしたい。

VBScriptで、メールの送信をしたいのですが、『転送においてサーバーに接続できませんでした。』
というエラーが出てしまいます。

書いてあるスクリプトにどんな間違いがあるか見てもらえますか？

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "＊＊＊＊@gmail.com"
objEmail.To = "＊＊＊＊@gmail.com"
objEmail.Subject = "メールタイトル"
objEmail.Textbody = "メール本文"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/s … = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/s … = "smarthost"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/s … = 25
objEmail.Configuration.Fields.Update
objEmail.Send

お願いします。

No.1 回答者： luka3 回答日時： 2011/08/18 12:41

smarthostはインストールされたのでしょうか？

どこかのサイトのサンプルスクリプトをそのまま使っているのであれば smtpserver を正しくセットする必要があります。
ご利用のプロバイダのメールサーバですとか、会社であれば会社のメールサーバとか。

最近は迷惑メール防止のため簡単に送信できない場合があります。
例えばOCNの場合、次のページを見ていただきますと
http://help.ocn.ne.jp/ols/tr/mail/10069_trm_oe60 …
以下のような設定になります。
～/configuration/smtpserver") = "smtp.vc＊＊＊＊.ocn.ne.jp"
～/configuration/smtpserverport") = 587
～/configuration/smtpauthenticate") = 1
～/configuration/sendusername") = "アカウント名"
～/configuration/sendpassword") = "パスワード"

お使いのメールサーバの仕様をご確認ください。