エラーは出ないのですが、メールが届きません。
下記の2つのvbsファイルを作ってますがどちらも同様の結果です。
どこがおかしいか見ていただけませんか?
1つめ
Set oMsg = CreateObject("CDO.Message")
oMsg.From = "from@example.com"
oMsg.To = "to@example.com"
oMsg.Subject = "Test "
oMsg.Htmlbody = "<H1>本文です</H1>"
oMsg.Send
msgbox "send"
2つめ
Const AttachFileName="ファイル名"
Const MailFrom="from@example.com"
Const MailTo="to@example.com"
Const MailSubject="Test mail"
Set oMsg = CreateObject("CDO.Message")
oMsg.From = MailFrom
oMsg.To = MailTo
oMsg.Subject = MailSubject
oMsg.TextBody = "このメールは、メール送信WSHで自動送信されたメールです。" & vbCrLf & Now
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMsg.Configuration.Fields.Update
oMsg.Send
msgbox "send"
smtpサービスが稼動していない環境のように思います。
OSは何ですか?
→XP homeでは稼動しません
smtpサービスは稼動していますか?
→「プログラムの追加と削除」のIISの詳細にてSMTPサービスを確認してください ※ご質問のスクリプトだと、両方自身のコンピュータからの送信内容です
以下のURLをご参考に見直してください
@IT:Windows TIPS -- Tips:Windows標準機能とWSHを使ってメールを送信する
※諮問の意図と違う回答をしてしまっているかもしれませんので
できればコメントをON状態にされている方が良いと思います。
ユーザ名とかメールアドレスは、きちんと実在するものでないと、拒否されますよ。
もし、外部のメールアドレスをお持ちであれば、それに書き直されて試してみてください。
エラーに関しては以下も参考にしてくださいね。
http://msdn2.microsoft.com/ja-jp/library/system.web.ui.webcontrols.sendmailerroreventargs.exception(VS.80).aspx
あと、質問で記載されているスクリプトも、実際試されたもの、そのものなんですか?
それだと、メールアドレスおよびドメインは、サーバに設定しているものでないとダメです。
また、最近だと、セキュリティの関係で外部のメールサーバは、(インターネット上に)実在するドメイン・メールアドレスからしか受け取らないところが多いです。
その点も注意してください。
アカウントは実際に使っているものに変えてます。
質問に載せているスクリプトも、そうです。
fromも実際のアドレスにしています。
ではページ見てみますね。ありがとうございました。
同じような現象の方が、以下の投稿をされています。
http://www.microsoft.com/japan/msdn/community/gdn/ShowPost-1291.htm
これにいたっても、解決手段までにはいたっていないようです。
(ただ2003年の投稿です)
また、下記urlも参考になるかと思います
http://www.microsoft.com/japan/msdn/community/gdn/ShowPost-9911.htm
このなかで
------------------------------------------------------
■ SmtpMail.SmtpServer プロパティを省略している、または
SmtpMail.SmtpServer="localhost" と記述して、
ローカルマシンの IIS SMTP Service を利用する場合
例5. SMTP Service がインストールされていない場合のエラー
「The transport failed to connect to the server」
------------------------------------------------------
という回答もみつけました。が、インストールされているとの事でしたので
インターネットサービスマネージャで
「既定のSMTP仮想サーバー」 プロパティ
→[アクセス] タブ→「localhost(127.0.0.1)」 への中継を許可
を確認してみてください。
その他・・・・
この質問をキャンセルできるようであれば、キャンセルし、
今までのやり取りの結果をまとめ、
再投稿して見られてはいかがでしょう?
(私だけでは、解決には至らないようなので)
(投稿する時間帯は夜の21時辺りが良いかと思います。他に解決策をお持ちの方がいらっしゃるようでなりません)
申し訳ありません。