Отправка сообщений электронной почты с помощью 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

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

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

Answer 2

От Рона site вместо .Send

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

Это будет просто поднять электронную почту и SendKeys Alt-S для отправки.