人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

vbscript(WSH)でメール送信をしようとしています。

エラーは出ないのですが、メールが届きません。
下記の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"

●質問者: にらたま
●カテゴリ:インターネット ウェブ制作
✍キーワード:.fr CDO const example.com FIELDS
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● devichan
●35ポイント

smtpサービスが稼動していない環境のように思います。


OSは何ですか?

→XP homeでは稼動しません

smtpサービスは稼動していますか?

→「プログラムの追加と削除」のIISの詳細にてSMTPサービスを確認してください
※ご質問のスクリプトだと、両方自身のコンピュータからの送信内容です

以下のURLをご参考に見直してください

@IT:Windows TIPS -- Tips:Windows標準機能とWSHを使ってメールを送信する

※諮問の意図と違う回答をしてしまっているかもしれませんので

できればコメントをON状態にされている方が良いと思います。

◎質問者からの返答

osはwin2000proです。

smtpサービスは稼動させていますが、掲題の問題が起こっています。

コメントオンにし忘れましたので、もう一度回答していただいて結構ですよ。

宜しくお願いします。


2 ● devichan
●35ポイント

エラーは出ないのですか?

outlook2002もインストールされているようなら、エラーも出るようなのですが

あと、わたしはXP環境で、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

WSHからメール送信するときのメモ(管理人日記) - むぅもぉ.jp


※回答を使うのはもったいないと思いますので、コメントOnにできないでしょうか?

質問を投稿したあとからでも、修正にてコメント許可に変更できますよ

◎質問者からの返答

はい、どちらもエラー出ないんです。

頂いたスクリプトを試すと、The transport failed to connetc to the server.

と出て、動きません。。複数の外部メールサーバで試しましたが同じです。

アンチウイルスのソフトも切ってみましたがだめでした。

ポイントの件ありがとうございます。直しました。

もし何か分かることがあれば、恐縮ですが引き続きお願いできるとうれしいです。

よろしくおねがいします。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ