使用 Excel VBA 发送 Email outlook

Question

我正在尝试使用以下代码使用 Excel 发送 email：

Sub SEND_EMAIL()

Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)

' ADRESSE
olMail.To = "selojo7915@rippb.com"
' Subject
olMail.subject = "Line"
' BODY
olMail.body = "this"

olMail.Send

启动此宏时出现以下错误

错误在最后一行 (olMail.Send)

每次我尝试发送 email outlook 都开始更新，过了一会儿就显示错误

HRESULT 异常：0x80004004 (E_ABORT)

Answer 1

您会看到一个安全问题（较早的提示），因为 Outlook 是通过以下方式之一在客户端计算机上配置的：

• 使用默认的 Outlook 安全设置（即没有设置组策略）
• 使用由组策略定义的安全设置，但未应用编程访问策略
• 使用由组策略定义的安全设置，该设置设置为在防病毒软件处于非活动状态或过时时发出警告

您可以创建一个组策略，以防止在系统上安装任何最新的防病毒软件时显示安全提示，或者只是关闭这些警告（不推荐这样做）。

在 Outlook Object Model 文章的安全行为中阅读更多相关信息。

您可以考虑使用以下解决方法：

• 安装任何具有最新更新的防病毒软件。
• 使用低级 API - 不会触发安全问题的扩展 MAPI。 您还可以考虑 Redemption，它是一个方便的 Extended MAPI 包装器。
• 创建一个 COM 加载项，它可以访问安全的应用程序实例。
• 在处理 Outlook 时使用组策略设置来关闭此类安全提示/问题。
• 您也可以考虑使用第三方组件，允许在 Outlook 中动态关闭和打开安全提示和问题。有关详细信息，请参阅Outlook 安全管理器。