SMTP таймаут с vbSendMail VB6

Question

Странной проблемой с vbSendMail

Hi

Я сохранение унаследованного приложения в VB6. Клиенту требуется новая функция, которая предназначена для обработки списка сообщений для отправки электронных писем. Приложение представляет собой ActiveX exe, у которого нет пользовательского интерфейса. Он вызывается каждые несколько минут для обработки очереди из Планировщика заданий. Он настроен на компиляцию для автоматического выполнения и, следовательно, не может иметь никаких форм. Он имеет только модули и модули классов.

Если я запустил vbSendMail из модуля Main, он, похоже, работает нормально. Однако я не могу объявить vbSendMail.clsSendmail компонентом как With Events. Если я попытаюсь сделать эти объекты VB с сообщением «Only valid in object module». Так что я просто объявить его следующим образом:

Private poSendMail As vbSendMail.clsSendMail

Это все хорошо, и код работает, и, насколько я могу видеть, рассылает электронные письма (а они прибывают, когда я использую свой собственный адрес!). Тем не менее, я не могу получить статус, прогресс, SendSuccessful и, самое главное, события SendFailed. Поэтому у меня нет возможности узнать, успешно ли отправлено письмо или нет.

Я попытался создать модуль класса и оттуда я могу создать экземпляр vbSendMail.clsSendmail и может объявить его с событиями следующим образом:

Private WithEvents oMail As vbSendMail.clsSendMail 

Это позволяет мне, чтобы забрать события из SendMail (и код, конечно, похоже сделать OK). Однако проблема заключается в том, что при объявлении таким образом (и используя код, который читается точно так же, как и в основном модуле), я не могу установить соединение с почтовым сервером. Я получаю событие состояния последовало спустя некоторое время на SendFailed события следующим образом:

Send Status: Connecting to SMTP Server (mySMTPServerName)... 
Send Failed: Timeout occurred: The SMTP Host did not respond to the request 

Я не понимаю, почему код должен вести себя по-другому, когда настраивается с помощью модуля класса, в отличие от стандартного модуля.

Кто-нибудь знает, почему это происходит или как я могу решить проблему таким образом, чтобы получить положительное подтверждение от vbSendMail.clsSendMail, что письмо действительно отправлено успешно?

Большое спасибо за любую помощь, которую может предложить любой человек.

Answer 1

Мне было любопытно, поэтому я загрузил текущий vbSendMail с here.

Вы получаете источник плюс слово doc и пример кода.

Вот что - проект vbSendMail, из которого я предполагаю, создается dll, включает в себя форму 'frmSck.frm', которая выступает в качестве контейнера для элемента управления winsock, который используется в качестве компонента связи SMTP. Существует один к югу от формы определяется как:

Private Sub WinSck_Error(...) 

Мое предположение (не проверено) в том, что установка без присмотра исполнение отрицает некоторые аспекты создания формы, так что создается контроль Winsock, согласно вашему опыту, но что не активировано подмножество winsock_Error(), поэтому никаких ошибок не происходит.

В туннеле есть некоторый свет, поскольку в источнике для класса Class_Initialize() для clsSendMail упоминается, что существует бесформенная альтернатива.Однако в нем также упоминается, что есть нерешенные проблемы с развертыванием, поэтому свет - это поезд.

Возможно, существует некоторый пробег при загрузке по ссылке выше и попытка бесформенного подхода.