使用 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

从Ron的网站而不是.Send

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

这将只显示电子邮件和发送键Alt-S发送。