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


エラーは出ないのですが、メールが届きません。
下記の2つのvbsファイルを作ってますがどちらも同様の結果です。
どこがおかしいか見ていただけませんか?

尚、過去にこういう経緯があります(ご確認下さい)。
http://q.hatena.ne.jp/1202330802


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"

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2008/02/14 13:07:45
  • 終了:2008/02/21 13:10:02

回答(0件)

回答はまだありません

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません