Я пытаюсь автоматизировать процесс отправки почты. Теперь код, который у меня есть, работает нормально. Но я хочу добавить больше функциональности.
После 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
.
.
.
Любые предложения / решения приветствуются.