Comment supprimer les champs À, Cc et Cci lorsque je réponds à tous dans Outlook ?

Si plusieurs comptes e-mail sont configurés dans votre Outlook, cela peut poser certains problèmes lorsque vous répondez à tous à un message reçu. Par exemple, vous recevez un e-mail via un compte, mais toutes les adresses de vos comptes Outlook apparaissent comme destinataires dans ce message. Après avoir cliqué sur le bouton « Répondre à tous », toutes ces adresses sont incluses dans les champs À, Cc ou Cci. Or, en réalité, vous ne souhaitez pas que vos autres comptes reçoivent cette réponse. Comment alors vous supprimer de la réponse à tous ? Cet article vous propose des méthodes pour y parvenir.

Me supprimer lors de l’envoi d’e-mails à l’aide d’un code VBA

Supprimez-vous d’un clic de la réponse à tous avec Kutools pour Outlook

---

Me supprimer lors de l’envoi d’e-mails à l’aide d’un code VBA

Vous pouvez ajouter les adresses de vos comptes e-mail Outlook dans le code VBA ci-dessous pour éviter de vous envoyer des messages à vous-même. Suivez ces étapes :

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

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

Code VBA : me supprimer 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

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

Désormais, lors de l’envoi d’e-mails, les adresses e-mail associées à vos comptes Outlook seront automatiquement supprimées des champs À, Cc ou Cci.

---

Supprimez-vous d’un clic de la réponse à tous avec Kutools pour Outlook

Si vous disposez de Kutools pour Outlook, supprimez vos adresses des champs À, Cc et Cci en un seul clic lors de l’envoi d’e-mails.

Comme le montre la capture d’écran ci-dessous, suivez ces étapes pour vous retirer de la réponse à tous dans Outlook.

1. Après avoir cliqué sur le bouton « Répondre à tous » pour créer une réponse, cliquez sur Kutools > Mes noms. Voir la capture d’écran :

Tous vos noms (adresses e-mail) sont alors immédiatement supprimés des champs À, Cc et Cci.

Si vous souhaitez essayer gratuitement cet utilitaire, veuillez d’abord télécharger gratuitement le logiciel, puis suivre la procédure décrite ci-dessus.