回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
1
|
objCDO.Send でエラーが出ているのですね。
|
|
2
2
|
|
|
3
|
-
ならば、その時のエラー番号を調べて、エラー処理でそのエラー番号の時は、Resume Next でエラー
|
|
3
|
+
ならば、その時のエラー番号を調べて、エラー処理でそのエラー番号の時は、Resume Next でエラー行の次の行から再開させればいいでしょう。
|
|
4
4
|
|
|
5
5
|
```vba
|
|
6
6
|
|
|
@@ -9,7 +9,7 @@
|
|
|
9
9
|
Err_Exit:
|
|
10
10
|
Select Case Err.Number
|
|
11
11
|
Case 該当のエラー番号
|
|
12
|
-
Resume Next
|
|
12
|
+
Resume Next
|
|
13
13
|
Case Else
|
|
14
14
|
MsgBox Err.Number & ":" & Err.Description & vbCrLf, vbOKOnly + vbCritical + vbSystemModal, "メール送信エラー"
|
|
15
15
|
End Select
|