如何在向公司外部人員發送電子郵件時收到警告

Outlook解決方案 2025 年 9 月 29 日

如果您的公司有明確的政策規定您不應向公司外部的人員發送電子郵件，則可以使用本文介紹的方式。它將教您如何使用 VBA 在向公司外部發送電子郵件時收到警告。

有時，為了保護數據安全，您的公司可能會要求您在使用企業電子郵件帳戶時，只能向公司內部人員發送電子郵件。換句話說，您不得向公司外部人員發送電子郵件，即外部域中的電子郵件地址。然而，也許有時你會有點健忘。在這種情況下，您可能希望 Outlook 可以在您向外部公司發送電子郵件時自動警告您。在這裡，我們將重點討論這個問題，並指導您如何通過 Outlook VBA 來實現它。

向公司外部人員發送電子郵件時收到警告

首先，啟動 Outlook 程式。
然後按“Alt + F11”快捷鍵。
接下來，您將可以訪問Outlook VBA編輯器窗口。
隨後，打開“ ThisOutlookSession”項目。
然後將以下VBA代碼複製並粘貼到該項目窗口中。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim i As Long
    Dim strRecipientAddress As String
    Dim strPrompt As String
    Dim nWarning As Integer
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objRecipients = objMail.Recipients
 
       For i = objRecipients.Count To 1 Step -1
           strRecipientAddress = objRecipients.Item(i).Address
           'Change @datanumen.com to your own company domain
           If InStr(LCase(strRecipientAddress), "@datanumen.com") <= 0 Then
              Exit For
           Else
              Cancel = False
           End If
      Next i
 
      If InStr(LCase(strRecipientAddress), "@datanumen.com") <= 0 Then
         strPrompt = "Are you sure to send this email to outside your company? "
         nWarning = MsgBox(strPrompt, vbYesNo + vbQuestion, "Confirm Email to Outside Organization")
         If nWarning = vbNo Then
            Cancel = True
         End If
      End If
    End If
End Sub

之後，您應該簽署此代碼。
以後更改Outlook宏設置以允許簽名的宏。
最後，從現在開始，每次當您打算向不在您公司域中的電子郵件地址發送電子郵件時，您都會收到類似以下屏幕截圖的警告：

保持正確關閉您的 Outlook

如果您經常不正確地關閉 Outlook，則 Outlook 往往會崩潰，例如由於突然斷電而強制關閉。每次您的 Outlook 崩潰時，您的 PST 文件也會受到影響。一旦您的 PST 文件遭到破壞，您將花費更多的精力來找回損壞的Outlook 數據高於日常保護。在這種情況下，scanpst.exe 不會有太大幫助。您別無選擇，只能使用更強大的工具，例如 DataNumen Outlook Repair.

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 SQL Server 固定和Outlook修復軟件產品。欲了解更多信息，請訪問萬維網。datanumen.COM