¿Cómo eliminarme de responder a todos en Outlook?

Si hay varias cuentas de correo electrónico en su Outlook, causará algunos problemas cuando responda todas a un correo electrónico recibido. Por ejemplo, si recibe un correo electrónico a través de una cuenta, pero todas las direcciones de su cuenta de correo electrónico de Outlook se muestran como destinatarios en este correo electrónico, después de hacer clic en el botón Responder a todos, todas las direcciones de las cuentas de correo electrónico se incluyen en el cuadro Para, CC o CCO. Pero en realidad, no desea que otras cuentas de correo electrónico de usted mismo reciban este correo electrónico de respuesta. Pero, ¿cómo apartarme de responder a todos? Este artículo te recomendará métodos para lograrlo.

Eliminarme al enviar correos electrónicos con código VBA
Un clic para quitarme de responder todo con Kutools para Outlook

Eliminarme al enviar correos electrónicos con código VBA

Puede agregar las direcciones de su cuenta de correo electrónico dentro de su Outlook en el siguiente código VBA para evitar enviarse correos electrónicos a sí mismo. Haz lo siguiente.

1. Prensa otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga doble clic en el Proyecto1 > Objetos de Microsoft Outlook > Esta sesión de Outlook, y luego copie y pegue debajo del código VBA en la ventana Código. Ver captura de pantalla:

Código VBA: eliminarme de todos los correos electrónicos enviados en 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

Notas:

1. Cambie las direcciones de correo electrónico en el código VBA a sus cuentas de correo electrónico.

2. Asegúrese de que la opción Habilitar todas las macros esté habilitada. Ver captura de pantalla:

3. Haga clic en el Guardar botón y cierre el Microsoft Visual Basic para aplicaciones ventana.

A partir de ahora, cuando envíe correos electrónicos, las direcciones de correo electrónico especificadas de sus cuentas de Outlook se eliminarán automáticamente del cuadro Para, CC o CCO automáticamente.

Un clic para quitarme de responder todo con Kutools para Outlook

Como se muestra en la siguiente captura de pantalla, para eliminarme de responder todo en Outlook, haga lo siguiente.

1. Después de hacer clic en el botón Responder a todos para crear un correo electrónico de respuesta, haga clic en Kutools > Mi nombre es. Ver captura de pantalla:

Luego, todos sus nombres (direcciones de cuentas de correo electrónico) se eliminan del cuadro Para, CC o CCO inmediatamente.

Si desea tener una prueba gratuita de esta utilidad, vaya a descarga gratis el software primero, y luego vaya a aplicar la operación según los pasos anteriores.