Note: The other languages of the website are Google-translated. Back to English

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


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (0)
Pas encore de notes. Soyez le premier à évaluer!
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL