¿Cómo puedo eliminarme del campo Para/Cc/Cco al responder a todos en Outlook?

Si tiene varias cuentas de correo electrónico configuradas en Outlook, responder a todos en un mensaje recibido puede generar inconvenientes. Por ejemplo, recibe un correo en una cuenta, pero al hacer clic en **Responder a todos**, las direcciones de todas sus cuentas de Outlook aparecen automáticamente en los campos **Para**, **Cc** o **Cco**, aunque no desee que sus otras cuentas reciban esa respuesta. ¿Cómo puede eliminarse a sí mismo al usar **Responder a todos**? Este artículo le ofrece métodos prácticos para lograrlo.

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

Eliminar con un solo clic mi nombre al responder a todos con Kutools para Outlook

---

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

Puede añadir las direcciones de sus cuentas de correo electrónico de Outlook en el siguiente código VBA para evitar enviarse mensajes a sí mismo. Siga estos pasos.

1. Pulse simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga doble clic en Proyecto1 > Objetos de Microsoft Outlook > ThisOutlookSession y, a continuación, copie y pegue el siguiente código VBA en la ventana de código. Vea la captura de pantalla:

Código VBA: eliminarme automáticamente 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 "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. Haga clic en el botón Guardar y cierre la ventana de Microsoft Visual Basic para Aplicaciones.

A partir de ahora, al enviar correos electrónicos, las direcciones de correo electrónico especificadas en sus cuentas de Outlook se eliminarán automáticamente de los campos Para, Cc o Cco.

---

Eliminar con un solo clic mi nombre al responder a todos con Kutools para Outlook

Si dispone de Kutools para Outlook, puede eliminar sus direcciones de los campos Para, CC y CCO con un solo clic al enviar correos electrónicos.

Tal como se muestra en la siguiente captura de pantalla, para eliminarse al responder a todos en Outlook, siga estos pasos.

1. Después de hacer clic en el botón Responder a todos para crear una respuesta, haga clic en Kutools > Mis nombres. Vea la captura de pantalla:

Entonces, todos sus nombres (direcciones de cuentas de correo electrónico) se eliminarán inmediatamente de los campos Para, Cc o Cco.

Si desea probar gratuitamente esta utilidad, primero vaya a descargar gratuitamente el software y, a continuación, siga los pasos anteriores para aplicar la operación.