VBA: отчет об отправке через CDO

Пользователь

Сообщений: 302 Регистрация: 01.01.1970

18.02.2016 09:34:47

Добрый день
Можно каким либо образом получать отчет о том, что письмо отправленное через CDO попало в почтовый сервер и ушло с почтового сервера?
Факт обращения к CDO получаем при помощи следующего кода

Код

If Err.Number = -2147220973 Then ermsg = "Отсутствует связь с интернетом"
        If Err.Number = -2147220975 Then ermsg = "SMTP сервер ответил отказом"
        If Err.Number = 0 Then ermsg = "Письмо отправлено"
    Send_Mail = Err = 0

но сложилась такая ситуация что первые ~ 60 сообщений SendMail = True, а последующие SendMail = False (код ошибки -2147220977).
При этом по логам почтового сервера видно что все сообщения попали в очередь и в последствии отправились.
Что означает код ошибки тоже не нашел. Где его можно посмотреть?
Заранее благодарен за ответы

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

18.02.2016 09:51:51

Код
Что означает код ошибки тоже не нашел. Где его можно посмотреть?

а я вбил номер ошибки в яндекс, - и сразу всё нашлось...

Код
попали в очередь и в последствии отправились

ключевое слово тут, - впоследствие
отправилось уже ПОСЛЕ ТОГО, как макрос закончил свою работу
т.е. макрос об этом уже ничего не узнает (отправилось оно потом, или нет)

отправляйте через почтовые программы (аутлук, например) - там всегда сможете потом макросом проверить папки Исходящие и Отправленные
с с CDO - думаю, никак.

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

jfd Пользователь Сообщений: 302 Регистрация: 01.01.1970	#3 18.02.2016 10:22:16 Игорь, искал гуглом по поводу ошибки, в яндексе нашел что Run-time error -2147220977(8004020f): The server rejected one or more recipient addresses. но письма то ушли все, вот в чем дело, просто первые 60 ушли без ошибки, а следующие с ошибкой

Читают тему