使用 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 安全管理器。