Question

我目前有一个程序可以将电子邮件排队，然后通过电子表格发送，然后通过Outlook应用程序将其发送出去（Excel和Outlook都是2013版本）。

当我运行该程序时，它会毫无问题地运行，但是当同事运行程序时，他们会继续得到“＃34;程序试图代表您发送消息”的提示。然后他们必须单独允许或拒绝每一个。

我已经通过不同的方法来解决这个问题，从更改注册表（尝试过它并没有改变任何东西）到安全设置（仍然没有）。

有没有办法用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的site而不是.Send

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

这只会调出电子邮件并发送密钥Alt-S发送。

使用Outlook 2013 / Excel 2013发送电子邮件

2 个答案: