如何防止將電子郵件發送到 Outlook 中的特定電子郵件地址

許多用戶希望阻止意外地將電子郵件發送到 Outlook 中的特定電子郵件地址。 因此，在本文中，我們將介紹一種實現它的方法。

Outlook 不提供阻止向特定電子郵件地址發送電子郵件的本機功能。 因此，如果您想實現它，則需要編寫一些腳本。 下面我們就分享這樣一段VBA代碼。 如果您不知道如何使用VBA，可以閱讀前面的內容ost - “如何在Outlook中運行VBA代碼“。

防止將電子郵件發送到特定電子郵件地址

1. 首先，通過“Alt + F11”訪問 Outlook VBA 編輯器。
2. 然後，將以下代碼放入“ThisOutlookSession”項目中。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim ContactGroupFound As Boolean
    Dim i, n As Long
    Dim objRecipient As Outlook.Recipient
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Expand the contact groups in Recipients
       ContactGroupFound = True
       Do While ContactGroupFound = True
          Set objRecipients = objMail.Recipients
          ContactGroupFound = False
 
          For i = objRecipients.Count To 1 Step -1
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.Count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        ContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          Next i
          objRecipients.ResolveAll
       Loop
 
       'Remove specific email address
       For Each objRecipient In objRecipients
           If objRecipient.Address = "shelly@datanumen.com" Then
              If MsgBox("Do you want to email to " & Chr(34) & "shelly@datanumen.com" & Chr(34) & "?", vbExclamation + vbYesNo) = vbNo Then
                 objRecipient.Delete
              End If
           End If
       Next
    End If
End Sub

3. 之後，退出“Microsoft Visual Basic for Applications”窗口。
4. 最後，請按照以下步驟進行嘗試。

• 首先，撰寫電子郵件並填寫收件人。
• 然後，單擊“發送”按鈕。
• 該宏將立即擴展收件人中的聯繫人組（如果有），並查明收件人是否包含特定的電子郵件地址。
• 如果找到地址，您將收到一條消息，如下圖所示。
• 如果您選擇“否”，則該特定電子郵件地址將立即被刪除。
• 郵件發送後，你可以查看收件人，肯定不包含具體的郵箱地址。

修復損壞的 Outlook 文件

您的 Outlook 文件是否曾被損壞過？ 這無疑是 most Outlook 中煩人的問題。 當受到它的影響時，你必須操縱 PST維修，這有點棘手。 和往常一樣，您第一時間就會想到使用 Scanpst。 但不幸的是，在這種情況下它可能會失敗。 您的度假村應該是一個更有經驗的工具，例如 DataNumen Outlook Repair，或專業的 PST 恢復服務。

作者簡介：

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