Cum să blochezi e-mailurile trimise către o anumită adresă în Outlook?

În general, Outlook trimite e-mailuri la toate adresele de e-mail obișnuite și nu poate bloca trimiterea de e-mailuri către o anumită adresă de e-mail. Dar, uneori, poate fi necesar să împiedicați trimiterea de e-mailuri la o anumită adresă de e-mail în Outlook. În acest caz, acest tutorial va introduce un cod VBA pentru rezolvarea acestei sarcini.

Blocați e-mailurile trimise către o anumită adresă cu cod VBA

Următorul cod VBA vă poate face o favoare, vă rugăm să procedați astfel:

1. Lansați Outlook, apoi țineți apăsat ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi, faceți dublu clic Această sesiune Outlook de la Proiect-Proiect1 panoul, apoi copiați și lipiți codul de mai jos în fereastra de cod goală:

Cod VBA: blocați e-mailurile trimise către o anumită adresă

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 = "" 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

notițe: În codul de mai sus, ar trebui să schimbați adresa de e-mail la adresa dvs.

3. Apoi, salvați și închideți această fereastră de cod. Acum, când trimiteți un e-mail, dacă adresa de e-mail specifică este găsită în lista de destinatari, va apărea un mesaj prompt, așa cum se arată mai jos. Clic Nu, adresa de e-mail specifică va fi ștearsă imediat.

4. După trimiterea e-mailului, îi puteți verifica destinatarii în Obiecte trimise folder, adresa de e-mail anume a fost exclusă de la destinatari, vezi captura de ecran: