如何在Outlook中阻止发送邮件到特定地址？

Author: Xiaoyang Last Modified: 2025-07-31

一般来说，Outlook会将邮件发送到所有正常的电子邮件地址，并不能阻止向特定的电子邮件地址发送邮件。但是，有时您可能需要防止在Outlook中向特定的电子邮件地址发送邮件。在这种情况下，本教程将介绍一个用于解决此任务的VBA代码。

使用VBA代码阻止发送邮件到特定地址

以下VBA代码可以帮到您，请按照以下步骤操作：

1. 启动Outlook，然后按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 接着，双击 Project-Project1 窗格中的 ThisOutlookSession，然后将以下代码复制并粘贴到空白代码窗口中：

VBA代码：阻止发送邮件到特定地址

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updatby ExtendOffice
Dim xMail As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim xContactGroupFound As Boolean
Dim i, n As Long
Dim xRecipient As Outlook.Recipient
Dim xAddress As String
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMail = Item
xContactGroupFound = True
Do While xContactGroupFound = True
  Set xRecipients = xMail.Recipients
  xContactGroupFound = False
  For i = xRecipients.Count To 1 Step -1
    If xRecipients(i).AddressEntry.DisplayType <> olUser Then
      For n = 1 To xRecipients(i).AddressEntry.Members.Count
        If xRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Address)
        Else
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Name)
          xContactGroupFound = True
        End If
      Next
      xRecipients(i).Delete
    End If
  Next i
  xRecipients.ResolveAll
Loop
For Each xRecipient In xRecipients
  xAddress = xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
  If VBA.Trim(xAddress) = "" Then
    xAddress = xRecipient.Address
  End If
  If xAddress = "yy@addin99.com" Then    'change this email address to your need
    If MsgBox("Do you want to email to " & Chr(34) & xAddress & Chr(34) & "?", vbExclamation + vbYesNo, "Kutools for Outlook") = vbNo Then
      xRecipient.Delete
    End If
  End If
Next
If xMail.Recipients.Count = 0 Then
  Cancel = True
End If
End Sub

注意：在上面的代码中，您应将电子邮件地址更改为自己的地址。

doc-block-email-to-an-address-1