Comment bloquer les e-mails sortants vers une adresse spécifique dans Outlook ?

De manière générale, Outlook envoie des e-mails à toutes les adresses e-mail normales et ne peut pas bloquer l'envoi d'e-mails à une adresse e-mail spécifique. Mais, parfois, vous devrez peut-être empêcher l'envoi d'e-mails à une adresse e-mail spécifique dans Outlook. Dans ce cas, ce tutoriel introduira un code VBA pour résoudre cette tâche.

Bloquer les e-mails sortants vers une adresse spécifique avec le code VBA

Le code VBA suivant peut vous rendre service, veuillez faire comme ceci :

1. Lancez Outlook, puis maintenez enfoncé ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Ensuite, double-cliquez Cette session Outlook du Projet-Projet1 volet, puis copiez et collez le code ci-dessous dans la fenêtre de code vide :

Code VBA : bloquer les e-mails sortants vers une adresse spécifique

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

Notes: Dans le code ci-dessus, vous devez remplacer l'adresse e-mail par la vôtre.

3. Ensuite, enregistrez et fermez cette fenêtre de code. Désormais, lors de l'envoi d'un e-mail, si l'adresse e-mail spécifique se trouve dans la liste des destinataires, un message d'invite apparaîtra comme illustré ci-dessous. Cliquez sur Non, l'adresse e-mail spécifique sera immédiatement supprimée.

4. Après l'envoi de l'e-mail, vous pouvez vérifier ses destinataires dans le Éléments envoyés dossier, la certaine adresse e-mail a été exclue des destinataires, voir capture d'écran :