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-05-27

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ères nouvelles : Kutools pour Outlook lance une version gratuite !

Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !

🤖 Kutools IA : Utilise une technologie IA avancée pour gérer les emails sans effort, y compris répondre, résumer, optimiser, étendre, traduire et composer des emails.

📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...

📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...

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

🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...

👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...

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

Déverrouillez instantanément Kutools pour Outlook d'un simple clic. Ne tardez pas, téléchargez maintenant et boostez votre efficacité !

kutools for outlook features1 kutools for outlook features2