VB6の送信エラーについて
解決いつもお世話様です。
今回はVB6を使ったメールの送信について、
質問させていただきます。
今までプログラムは無事で動いていたのにもかかわらず、
今日の実行で、以下のエラーメッセージがでました。
「実行時エラー '-2147220975 (80040211)':
メッセージをSMTPサーバーに送信できませんでした。
転送エラー コードは0x800ccc13です。
サーバーからの応答は次のとおりです。not available」
ソースはこのように書いていました。
Set objMesseage = New CDO.Message
Set objConfiguration = New CDO.Configuration
Set objFields = objConfiguration.Fields
With objFields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail.*****.co.jp"
.Update
End With
With objMesseage
Set .Configuration = objConfiguration
.To = "*****@*****.co.jp"
.From = "*****@*****.co.jp"
.Subject = ""
.TextBody = **********
.Send
End With
このエラーの解消方について、どなたが教えて頂けませんか。
宜しくお願いいたします。
Telnetかなにかで普通にそのSMTPサーバに
メールが送れるか確認してください。
テストなどで送りすぎていることによって、
SMTPサーバが５００番台のエラーを返してきている可能性があります。
修正するには、on error goto でも使って処理した方が早いと思います。
ヤマ＠文系さん、
ご指導ありがとうございます。
修正については、
On Error goto myError
myError:
Debug.Print Err.Description
Resume Next
で実行してみましたが、
やはりメールの送信ができませんでした。
またご指導を宜しくお願いいたします。
で、問題の SMTP サーバからは Telnet か何かでメール送信できたのでしょうか？
もし他のアプリケーションを使ってもメール送信出来ないのであれば、On Error Goto 〜を使ってもメール送信が出来るようにはなりません。
SMTP サーバ状況を確認してもらうとか、サーバの管理者の方にも協力してもらわないと解決は難しいでしょう。
# プログラム修正だけで解決したいなら接続先の SMTP サーバを変更するしかないと思う。
だからこそヤマ＠文系さんも「Telnet か何かでメール送信できるかどうか確認してください」と書いていらっしゃる訳ですし。
ヤマ＠文系さん、Geo=TK3さん、ご協力とご指摘ありがとうございます。
調べたところ、VirusScanの更新が原因となっております。
結局はVB上の問題ではなかったようです。
ご迷惑をかけてしまい、失礼致しました。
いつもお世話様です。
SMTPサーバが５００番台のエラーを返してきているの場合をテストすることになて、どうすればSMTPサーバが５００番台のエラーを返してきていることが分からないです。教えてくれませんか。
ご迷惑をかけてしまて、失礼致しました。
| ツイート |  |