坚持执行VBA Excel的流程

Question

我正在尝试自动化邮件发送过程。现在，我的代码工作得很好。但我想为它添加更多功能。

在下面的代码片段中的ML.Display之后，我想继续执行流程。 ML.Display将显示准备好的邮件。之后我想添加功能，如果我想要的话，我应该能够通过点击发送邮件按钮发送邮件，如果我不这样，那么我将关闭邮件模板。现在我通过使用消息框实现相同的功能。

一旦我采取行动，即我发送邮件或关闭准备好的模板，那么暂停的流程应该继续执行。

.
. 
ML.To = Madd ' address
ML.CC = MaddCC 'CC
ML.Subject = "Testing"

ML.Display

answer = MsgBox("To continue select YES", vbYesNo)
If answer = vbYes Then
On Error GoTo ErrCatcher
ML.Send 'sending
Else
Mws.Cells(j, 9).Value = "Not Send"
End If
On Error GoTo 0
ErrCatcher:
If Err <> 0 Then Mws.Cells(j, 8).Value = "Name Resolution Failed"
'Else
' Mws.Cells(j, 9).Value = "Not Send"
'End If

j = j + 1
.
.
.

欢迎任何建议/解决方案。