ASPでBASP21を使用してメールを送信しようとしたのですが、SMTPサーバーが停止していたため処理結果が取得できませんでした。
このような場合、何か良い対策はありませんでしょうか。
ご教示の程よろしくお願いいたします。
以下にソースの概要を記載いたします。
Dim objBasp21
Dim strMailSendErr
Set objBasp21 = CreateObject("Basp21")
strMailSendErr = objBasp21.SendMail(パラメータ)
'↑↑↑ メールサーバが停止している場合ここで処理が止まってしまう?
If strMailSendErr <> "" Then
'エラーの場合の処理
End If
No.1ベストアンサー
- 回答日時:
メールサーバが止まっていてもエラーが返されるだけだと思いますけど・・・?
Time Out とか Not Connect とかが返ってきたように記憶しています。
既存のメーラで送っても同じようなエラーが返されますか?
失礼ながら『パラメータ』の所で何か問題発生かも。
『止まる』事は無かったように記憶しています。
『メールサーバが停止している』事は確認されましたか?
以下、BASP21のヘルプとほとんど一緒ですが (^^ゞ
Sub SendMailQ()
'http://www.hi-ho.ne.jp/babaq/
Dim objBASP21 As Object 'BASP21
Dim strMessage As String '実行メッセージ
Dim strSvName As String 'SMTPサーバ
Dim strMailTo As String '宛先メールID
Dim strMailFrom As String '送信元ユーザID
Dim strSubj As String '表題
Dim strBody As String '本文
Dim strFiles As String '添付ファイル
On Error GoTo AcErr
'----( オブジェクト生成 )---------------------------------------
Set objBASP21 = CreateObject("basp21")
'----( パラメータ設定 )-----------------------------------------
strSvName = "mail.goo.ne.jp" 'SMTPサーバ名
strMailTo = "あんたへ<*********@mail.goo.ne.jp>" '宛先メールID
strMailFrom = "私" & "<*********@mail.goo.ne.jp>" '送信元ユーザID
strSubj = "テスト発信" '表題
strBody = "送ってみました" & vbCrLf & "届いた" '本文
strFiles = "c:\windows\clock.avi" & vbTab & "c:\windows\winnt.bmp" '添付ファイル
strMessage = objBASP21.SendMail _
(strSvName, strMailTo, strMailFrom, strSubj, strBody, strFiles)
'----( エラー判断 )-----------------------------------------------
If strMessage <> "" Then
MsgBox strMessage 'メッセージが表示される場合はエラー
Else
MsgBox "終了"
End If
Set objBASP21 = Nothing
Exit Sub
AcErr:
Select Case err.Number
Case Is = 429
MsgBox "BASP21がインストールされてないかも"
Case Else
MsgBox "ErrorNo= " & err.Number _
& vbCrLf & err.Description
End Select
Set objBASP21 = Nothing
End Sub
@酔なのでごめん・・・
WinXPpro or 2000 & Access2002 or 2000 と仮定しています。
返信が遅くなりまして申し訳ございません。
エラー判断のところで適切な処理ができていませんでした。
strMailSendErrにはエラー内容が返されていることを確認いたしました。
私の初歩的なミスです。
お手数をお掛けして申し訳ございません。
ご親切なご回答ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
マクロで"#N/A"のエラー行を削...
-
フランスの生年月日(jj/mm/aaaa)
-
実行時エラー'-2147467259(8000...
-
実行時エラー´5854´ 文字列型パ...
-
【VBA】ワークブックを開く時に...
-
VBAでfunctionを利用しようとし...
-
【VB.NET】 パワポ操作を非表示で
-
ActiveCell.FormulaR1C1の変数
-
文字列内で括弧を使うには
-
エクセルVBA 「On Error GoTo...
-
MDBへレコード挿入中にエラーが...
-
VB.net 重複チェックがしたいです
-
ExecuteNonQueryメソッドの戻り値
-
インポート時のエラー「データ...
-
.VBSだとADODBのプロバイダが見...
-
ACCESSで値を代入できないとは?
-
日付書式のString型からData型...
-
UBoundに配列がありませんとエ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
マクロで"#N/A"のエラー行を削...
-
VBAでfunctionを利用しようとし...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
エクセル関数を教えてください
-
On ErrorでエラーNoが0
-
お助けください!VBAのファイル...
-
VBA データ(特定値)のある最...
-
【VBA】ワークブックを開く時に...
-
インポート時のエラー「データ...
-
実行時エラー'-2147467259(8000...
-
マクロの「SaveAs」でエラーが...
-
WindowsでのPythonの挙動について
-
ApplicationとWorksheetFunctio...
-
Excel vbaについての質問
-
エクセルVBA 「On Error GoTo...
-
Filter関数を用いた結果、何も...
-
ACCESSで値を代入できないとは?
おすすめ情報