エラーは出ないのですが、メールが届きません。
下記の２つのvbsファイルを作ってますがどちらも同様の結果です。
どこがおかしいか見ていただけませんか？
１つめ
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"
２つめ
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"
No.1
56
4
35pt
smtpサービスが稼動していない環境のように思います。
OSは何ですか？
→XP homeでは稼動しません
smtpサービスは稼動していますか？
→「プログラムの追加と削除」のIISの詳細にてSMTPサービスを確認してください ※ご質問のスクリプトだと、両方自身のコンピュータからの送信内容です
以下のＵＲＬをご参考に見直してください
＠IT：Windows TIPS -- Tips：Windows標準機能とWSHを使ってメールを送信する
※諮問の意図と違う回答をしてしまっているかもしれませんので
できればコメントをＯＮ状態にされている方が良いと思います。
No.2
564
35pt
エラーは出ないのですか？
outlook2002もインストールされているようなら、エラーも出るようなのですが
あと、わたしはＸＰ環境で、SMTPサービス起動させていないので外部サーバ(yahoo)設定にて、下記のようなスクリプトで送信できました。
Set oMsg = CreateObject("CDO.Message") oMsg.From = "hogehoge@yahoo.co.jp" oMsg.To = "hogehoge@gmail.com" oMsg.Subject = "Test " oMsg.TextBody = "本文です"& 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") = "smtp.mail.yahoo.co.jp" 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") = "username" oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" oMsg.Configuration.Fields.Update oMsg.Send msgbox "send"やはり、ローカルへの接続がうまくいっていないのかアンチウイルス系のファイアウォールの影響かもしれません
ご参考url
※回答を使うのはもったいないと思いますので、コメントＯｎにできないでしょうか？
質問を投稿したあとからでも、修正にてコメント許可に変更できますよ
はい、どちらもエラー出ないんです。
頂いたスクリプトを試すと、The transport failed to connetc to the server.
と出て、動きません。。複数の外部メールサーバで試しましたが同じです。
アンチウイルスのソフトも切ってみましたがだめでした。
ポイントの件ありがとうございます。直しました。
もし何か分かることがあれば、恐縮ですが引き続きお願いできるとうれしいです。
よろしくおねがいします。
devichan
2008/02/07 23:50:15
276
263
にらたま
2
2
1
osはwin2000proです。
smtpサービスは稼動させていますが、掲題の問題が起こっています。
コメントオンにし忘れましたので、もう一度回答していただいて結構ですよ。
宜しくお願いします。