Accéder au contenu principal

Comment me retirer des champs À/CC/CCI lors d'une réponse à tous dans Outlook ?

Author: Siluvia Last Modified: 2025-08-06

Si vous avez plusieurs comptes de messagerie dans votre Outlook, cela peut causer certains problèmes lorsque vous répondez à tous pour un e-mail reçu. Par exemple, vous recevez un e-mail via un compte, mais toutes les adresses de messagerie de vos comptes Outlook apparaissent comme destinataires dans cet e-mail. Après avoir cliqué sur le bouton Répondre à tous, toutes les adresses de messagerie sont incluses dans les champs À, Cc ou Cci. Mais en réalité, vous ne souhaitez pas que vos autres comptes de messagerie reçoivent cet e-mail de réponse. Alors, comment se retirer de la réponse à tous ? Cet article vous recommandera des méthodes pour y parvenir.

Se retirer soi-même lors de l'envoi d'e-mails avec du code VBA

Un clic pour se retirer de la réponse à tous avec Kutools pour Outlook


Se retirer soi-même lors de l'envoi d'e-mails avec du code VBA

Vous pouvez ajouter les adresses de votre compte de messagerie dans votre Outlook au code VBA suivant pour éviter de vous envoyer des e-mails. Veuillez procéder comme suit.

1. Appuyez simultanément sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans la fenêtre Microsoft Visual Basic for Applications, double-cliquez sur Projet1 > Objets Microsoft Outlook > ThisOutlookSession, puis copiez et collez le code VBA ci-dessous dans la fenêtre Code. Voir capture d'écran :

delete myself address from to filed when reply all using vba 1

Code VBA : se retirer soi-même de tous les e-mails envoyés dans Outlook

Private Sub RemoveRecipientsWhenItemSend(Item As Outlook.MailItem)
	Dim RemoveAddrList As VBA.Collection
	Dim Recipients As Outlook.Recipients
	Dim aRecipient As Outlook.Recipient
	Dim i
	Dim j
	Set RemoveAddrList = New VBA.Collection
	' add addresses here
	RemoveAddrList.Add "happy.xuebi@163.com"
	RemoveAddrList.Add "siluvia@extendoffice.com"
	Set Recipients = Item.Recipients
	For i = Recipients.Count To 1 Step - 1
		Set aRecipient = Recipients.Item(i)
		For j = 1 To RemoveAddrList.Count
			If LCase$(aRecipient.Address) = LCase$(RemoveAddrList(j)) Then
				Recipients.Remove i
				Exit For
			End If
		Next
	Next
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
	On Error Resume Next
	RemoveRecipientsWhenItemSend Item
End Sub
Maintenant :

1. Veuillez modifier les adresses e-mail dans le code VBA pour qu'elles correspondent à vos comptes de messagerie.

2. Assurez-vous que l'option Activer toutes les macros est activée. Voir capture d'écran :

delete myself address from to filed when reply all using vba 2

3. Cliquez sur le bouton Enregistrer et fermez la fenêtre Microsoft Visual Basic for Applications.

Dès maintenant, lorsque vous envoyez des e-mails, les adresses e-mail spécifiées de vos comptes Outlook seront automatiquement supprimées des champs À, Cc ou Cci.


Un clic pour se retirer de la réponse à tous avec Kutools pour Outlook

Si vous avez Kutools pour Outlook, vous pouvez retirer vos adresses des champs À, Cc et Cci lors de l'envoi d'e-mails en un seul clic.

 👉 Kutools for Outlook dispose désormais d'une version gratuite, avec 70+ fonctionnalités gratuites à vie. Téléchargez la version gratuite dès maintenant.

Comme le montre la capture d'écran suivante, pour se retirer de la réponse à tous dans Outlook, veuillez procéder comme suit.

delete myself address from to filed when reply all using kutools for outlook 1

1. Après avoir cliqué sur le bouton Répondre à tous pour créer un e-mail de réponse, cliquez sur Kutools > Supprimer mon nom. Voir capture d'écran :

delete myself address from to filed when reply all using kutools for outlook 2

Tous vos noms (adresses de compte de messagerie) sont immédiatement supprimés des champs À, Cc ou Cci.

delete myself address from to filed when reply all using kutools for outlook 3

Si vous souhaitez tester gratuitement cet utilitaire, veuillez d'abord télécharger gratuitement le logiciel, puis appliquer l'opération selon les étapes ci-dessus.


Meilleurs outils de productivité pour Office

Dernière nouvelle : Kutools pour Outlook lance une version gratuite !

Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !

🤖 Kutools IA : Utilise une technologie avancée d’intelligence artificielle pour gérer vos emails en toute simplicité, notamment répondre, résumer, optimiser, étendre, traduire et rédiger des emails.

📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...

📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...

📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...

🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...

👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...

👩🏼‍🤝‍👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...

Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !

Débloquez instantanément Kutools pour Outlook en un seul clic. N’attendez plus, téléchargez maintenant et augmentez votre productivité !

kutools for outlook features1 kutools for outlook features2