![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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ランキング
-
String""から型'Double'への変...
-
UserForm1.Showでエラーになり...
-
On ErrorでエラーNoが0
-
マクロで"#N/A"のエラー行を削...
-
お助けください!VBAのファイル...
-
VBでSQL文のUPDATE構文を使った...
-
【Access】Excelインポート時に...
-
Excel vbaについての質問
-
VBAでfunctionを利用しようとし...
-
【VBA】ワークブックを開く時に...
-
実行時エラー 438 の解決策をお...
-
ExecuteNonQueryメソッドの戻り値
-
ActiveCell.FormulaR1C1の変数
-
VB.NETでMessageBoxが表示され...
-
文字列内で括弧を使うには
-
エクセルVBAで今まで使えていた...
-
【VBAエラー】Nextに対するFor...
-
VBA データ(特定値)のある最...
-
Excel VBA のFunctionプロシー...
-
ApplicationとWorksheetFunctio...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
【VBA】ワークブックを開く時に...
-
マクロで"#N/A"のエラー行を削...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
On ErrorでエラーNoが0
-
お助けください!VBAのファイル...
-
VBA データ(特定値)のある最...
-
インポート時のエラー「データ...
-
実行時エラー'-2147467259(8000...
-
ACCESSで値を代入できないとは?
-
VB.net 重複チェックがしたいです
-
ActiveCell.FormulaR1C1の変数
-
ApplicationとWorksheetFunctio...
-
「実行時エラー '3167' レコー...
-
【VB.NET】 パワポ操作を非表示で
-
フランスの生年月日(jj/mm/aaaa)
-
【マクロ】 IFERROR関数をマク...
おすすめ情報