[VB Script] CDO.Message でメールを送信すると「"SendUsing"の構成値は無効です。」エラーによりメールが送信できない
CDO.Message でメールを送信すると「"SendUsing"の構成値は無効です。」エラーによりメールが送信できない
このページのタグ:[VB Script]
Set oMsg = CreateObject("CDO.Message")
oMsg.From = "USOMaster@ipentec.com"
oMsg.To = "xxx@ipentec.com"
oMsg.Subject = "Test "
oMsg.TextBody = "テストメッセージです" & vbCrLf & Now
oMsg.Send
上記のVBScriptを実行してメールを送信すると「"SendUsing"の構成値は無効です。」エラーが表示されメールが送信できないことがあります。これは、サーバーの設定内容によって利用するSMTPサーバーが自分自身を指していないなどの原因が挙げられます。
対策としては下記のコードのように明示的にSMTPサーバーを指定することで送信できるようになります。
コード
Set oMsg = CreateObject("CDO.Message")
oMsg.From = "USOMaster@ipentec.com"
oMsg.To = "xxx@ipentec.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") = "127.0.0.1"
oMsg.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMsg.Configuration.Fields.Update
oMsg.Send

登録日 :2010-07-15
最終更新日 :2010-07-16
このページのタグ:[VB Script]