Comment bloquer les e-mails sortants destinés à une adresse spécifique dans Outlook ?

AuteurXiaoyang Date de modification2024-09-18

Généralement, Outlook envoie des e-mails à toutes les adresses e-mail classiques et ne permet pas de bloquer l’envoi vers une adresse spécifique. Toutefois, il peut arriver que vous souhaitiez empêcher l’envoi d’e-mails vers une adresse précise dans Outlook. Ce tutoriel vous propose alors un code VBA pour résoudre cette tâche.

Bloquer les e-mails sortants vers une adresse spécifique à l’aide d’un code VBA

Le code VBA suivant pourrait vous être utile. Voici la marche à suivre :

1. Lancez Outlook, puis maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Ensuite, double-cliquez sur ThisOutlookSession dans le volet Projet - Projet1, 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

Remarque: Dans le code ci-dessus, vous devez remplacer l’Adresse e-mail par la vôtre.

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

3. Ensuite, sauvegardez et fermez cette fenêtre de code. Désormais, lors de l’envoi d’un e-mail, si l’adresse e-mail spécifique figure dans la liste des destinataires, un message d’avertissement s’affichera comme sur la capture d’écran ci-dessous. Cliquez sur Non, et l’adresse e-mail spécifique sera immédiatement supprimée.

doc-block-email-to-an-address-2

4.Après avoir envoyé l’e-mail, vous pouvez vérifier ses destinataires dans le dossier Éléments envoyés, où l’Adresse e-mail concernée a été exclue des destinataires, comme illustré dans la capture d’écran suivante :

doc-block-email-to-an-address-3

Assistant IA Mail dans Outlook : des réponses plus intelligentes, une communication plus claire (magie en un clic !) !

Simplifiez vos tâches quotidiennes dans Outlook avec l’Assistant IA Mail de Kutools pour Outlook. Cet outil intelligent s’appuie sur vos e-mails précédents pour vous suggérer des réponses pertinentes, optimiser le contenu de vos messages et vous aider à rédiger et perfectionner vos e-mails en toute simplicité.

Cette fonctionnalité prend en charge :

Réponses intelligentes : obtenez des réponses élaborées à partir de vos conversations passées – personnalisées, précises et immédiatement utilisables.
Contenu amélioré : affinez automatiquement le texte de vos e-mails pour plus de clarté et d’impact.
Rédaction simplifiée : il vous suffit d’indiquer des mots-clés, et l’IA s’occupe du reste, avec plusieurs styles d’écriture.
Extensions intelligentes : libérez tout le potentiel de vos idées grâce à des suggestions parfaitement adaptées à votre contexte.
Résumé : obtenez instantanément des aperçus concis de vos e-mails les plus longs.
Portée mondiale : traduisez vos e-mails facilement dans n’importe quelle langue.

Cette fonctionnalité prend en charge :

Réponses intelligentes aux e-mails
Contenu optimisé
Brouillons basés sur des mots-clés
Extension intelligente du contenu
Résumé d’e-mails
Traduction multilingue

N’attendez plus –téléchargez dès maintenant l’Assistant IA Mail et profitez-en!

Meilleurs outils de productivité Office

Découvrez la toute nouvelle Kutools pour Outlook avec 100+ fonctionnalités incroyables !Cliquez pour télécharger dès maintenant !

🤖Kutools IA:Utilise une technologie d’intelligence artificielle avancée pour gérer vos e-mails sans effort, notamment en répondant, résumant, optimisant, développant, traduisant et rédigeant des messages.

📧Automatisation des e-mails : Réponse automatique (disponible pour POP et IMAP) / Planification de l’envoi d’e-mails / CC/BCC automatique selon des règles lors de l’envoi d’e-mails / Transfert automatique (règle avancée) / Ajout automatique de formules de politesse / Division automatique des e-mails à plusieurs destinataires en messages individuels...

📨Gestion des e-mails : Rappeler un e-mail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les e-mails en double / Recherche avancée / Organiser vos dossiers…

📁Pièces jointes Pro : Enregistrer en lot / Détacher en lot / Compresser en lot / Enregistrement automatique / Détachement automatique / Compression automatique…

🌟Magie de l’interface : 😊 Encore plus d’emojis jolis et stylés / Vous prévient à l’arrivée d’e-mails importants / Réduire Outlook au lieu de le fermer...

👍Merveilles en un clic : Répondre à tous avec pièces jointes / E-mails anti-hameçonnage / 🕘 Afficher le fuseau horaire – Heure actuelle de l’expéditeur…

👩🏼‍🤝‍👩🏻Contacts et calendrier : Créer en lot : ajouter un contact à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire…

Utilisez Kutools dans votre langue préférée – compatible avec l’anglais, l’espagnol, l’allemand, le français, le chinois et plus de 40 autres langues !

Débloquez Kutools pour Outlook instantanément en un seul clic ! Ne perdez plus une seconde : téléchargez dès maintenant et boostez votre efficacité !

Liste des fonctionnalités de Kutools pour Outlook Télécharger maintenant Accéder à l’achat

🚀 Téléchargement en un clic — Obtenez tous les compléments Office

Fortement recommandé : Kutools for Office (5-en-1)

Un seul clic pour télécharger cinq programmes d’installationen une fois —Kutools pour Excel, Outlook, Word, PowerPointet Office Tab Pro.Cliquez pour télécharger dès maintenant !

✅Commodité en un clic : téléchargez les cinq packs d’installation en une seule action.
🚀Prêt à relever toutes vos tâches Office : installez les compléments dont vous avez besoin, exactement quand vous en avez besoin.
🧰Inclus: Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools for PowerPoint

À propos de la Suite ⬇ Télécharger la Suite 💳 Acheter la Suite