Транспорту не удалось подключиться к серверу

#vba #ms-access #smtp #cdo.message

#vba #ms-access #smtp #cdo.сообщение

Вопрос:

У меня есть код для отправки почты из макроса VBA с использованием CDO.

Код работает нормально и отправляет электронное письмо при наличии подключения к Интернету

Код для отправки электронной почты вызывается много раз на разных этапах ночного пакетного процесса

При отсутствии подключения к Интернету появляется сообщение об ошибке «Транспорту не удалось подключиться к серверу». Учитывая, что пакетное задание выполняется ночью, и это длительный процесс, я бы хотел, чтобы скрипт продолжал работу, если он не может отправить почту, а не останавливался. Для этого я попробовал следующее, но, похоже, это не работает.

 On Error Resume Next 
Call subSendEmailGmail(False, "Batch about to start", "") 
On Error goto 0
  

Есть ли у кого-нибудь предложения о том, как заставить задание продолжать выполняться в случае, если почта не может быть отправлена?

Комментарии:

1. Вам необходимо переместить отслеживание ошибок в точку вашего кода, где вы проверяете, доступно ли подключение к Интернету, прежде чем отправлять электронное письмо.

2. @freeflow спасибо, это очень помогло. Перешел к тому, что уже было, и при ошибке перейдите к ошибке, которая вносила в MsgBox изменения в исходный текст ошибки. Просто изменил это при следующем возобновлении работы с ошибкой, и теперь он продолжает выполнять пакетное задание, если оно не может отправить почту. Большое спасибо, что указали мне правильное направление