Comment me retirer de la réponse à tous dans Outlook?

S'il existe plusieurs comptes de messagerie dans votre Outlook, cela causera des problèmes lorsque vous répondez à tous à un e-mail reçu. Par exemple, si vous recevez un e-mail via un compte, mais que toutes les adresses de votre compte de messagerie Outlook s'affichent en tant que destinataires dans cet e-mail, après avoir cliqué sur le bouton Répondre à tous, toutes les adresses de compte de messagerie sont incluses dans la zone À, Cc ou Cci. Mais en fait, vous ne voulez pas que d'autres comptes de messagerie de vous-même reçoivent cet e-mail de réponse. Mais comment me retirer de la réponse à tous? Cet article vous recommandera des méthodes pour y parvenir.

Supprimer moi-même lors de l'envoi d'e-mails avec le code VBA
Un clic pour me retirer de la réponse avec Kutools for Outlook

Supprimer moi-même lors de l'envoi d'e-mails avec le code VBA

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

1. presse autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez sur Project1 > Objets Microsoft Outlook > Cette session Outlook, puis copiez et collez sous le code VBA dans la fenêtre Code. Voir la capture d'écran:

Code VBA: me retirer de tous les e-mails d'envoi 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 ""
	RemoveAddrList.Add ""
	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

Notes:

1. Veuillez changer les adresses e-mail dans le code VBA pour vos comptes de messagerie.

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

3. Cliquez sur l' Épargnez et fermez le Microsoft Visual Basic pour applications fenêtre.

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

Un clic pour me retirer de la réponse avec Kutools for Outlook

Comme illustré ci-dessous, pour me retirer de la réponse à tous dans Outlook, procédez comme suit.

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

Ensuite, tous vos noms (adresses de compte e-mail) sont immédiatement supprimés de la zone À, Cc ou Cci.

Si vous souhaitez avoir un essai gratuit de cet utilitaire, rendez-vous sur télécharger gratuitement le logiciel d'abord, puis appliquez l'opération selon les étapes ci-dessus.