Электронная почта отображается, но не отправляется

Question

Я проверяю отправку электронных писем из Excel с помощью VBA.

Мне не отправляется письмо на мой почтовый ящик.

Код указан ниже:

Sub email_from_excel()

Dim emailApplication As Object
Dim emailItem As Object

Set emailApplication = CreateObject("Outlook.Application")
Set emailItem = emailApplication.CreateItem(0)

'Now build the email
emailItem.to = "emailaddress@test.com"
emailItem.Subject = "This is a test y'all."
emailItem.Body = "This is a test message ya'll."

'Send the email
emailItem.Send

End Sub

В строке 6 кода я поместил свой адрес электронной почты в кавычки.

Я включил Microsoft Outlook в разделе Инструменты - Ссылки в VBA. Не появляется никаких ошибок, но электронное письмо не отправляется.

Я закомментировал emailItem.Send и добавил в emailItem.Display, запустил код и электронное письмо показало.

Answer 1

Имейте в виду, что отправка сообщений является асинхронным процессом. Вам нужно подождать, пока сообщение не будет go перед выпуском (и, следовательно, закрытием) Outlook.

В качестве теста запустите Outlook до запуска кода - таким образом, он останется открытым даже после завершения выполнения кода.