Отправка электронных писем с помощью Outlook 2013/Excel 2013

Question

В настоящее время у меня есть программа, которая ставит в очередь электронные письма для отправки в электронную таблицу, а затем отправляет их через приложение Outlook (Excel и Outlook являются версиями 2013 года).

Когда я запускаю программу, она проходит без проблем, однако, когда коллега запускает программу, они продолжают получать подсказки, что "Программа пытается отправить сообщение от вашего имени", а затем они должны разрешить или запретить каждое из них. индивидуально.

Я рассмотрел различные способы решения этой проблемы: от изменения реестра (пробовал, но ничего не изменилось) до настроек безопасности (все еще ничего).

Есть ли способ решить эту проблему с помощью VBA?

Текущий код:

Sub SendEmail(what_address As String, subject_line As String, mail_body_message As String)

Dim olApp As Outlook.Application
Dim oAttach As Outlook.Attachment

Set olApp = CreateObject("Outlook.Application")

Dim olMail As Outlook.MailItem

Set olMail = olApp.CreateItem(olMailItem)

With olMail

.To = "ADDRESS"

.Subject = "SUBJECT"

.BodyFormat = olFormatHTML

.HTMLBody = mail_body_message

'.CC = "EMAIL"
.BCC = ""

.Importance = olImportanceHigh

.ReadReceiptRequested = True

.Send

End With

End Sub 

Спасибо!

Answer 1

С сайта Рона вместо .Send

 .Display 
 Application.Wait (Now + TimeValue("0:00:02"))
 Application.SendKeys "%s"

Это просто вызовет электронное письмо и отправит Alt-S для отправки.

Answer 2

Краткий ответ: установите современное антивирусное приложение или используйте такие продукты, как Redemption или ClickYes.

См. http://www.outlookcode.com/article.aspx?id=52 для получения дополнительной информации и подробного обсуждения.