Reenviar automáticamente correos electrónicos de Outlook a externos solo en determinadas circunstancias

Reenviar automáticamente correos electrónicos de Outlook a externos solo en determinadas circunstancias

¿Existe alguna modificación que se pueda realizar en el código VBA proporcionado enesta respuesta¿De una publicación anterior que solo reenviaría correos electrónicos desde una determinada dirección de correo electrónico en lugar de reenviar todo? Esencialmente, imitar una regla de reenvío automático de Outlook con la condición de que solo los mensajes de[correo electrónico protegido]ser enviado?

He escrito un script VBA para hacer esto *evitar la desactivación del reenvío automático por parte del servidor". Básicamente, imita al usuario reenviando el correo electrónico en lugar de que el servidor realice un reenvío automático. Está más allá del alcance de esta publicación brindar instrucciones detalladas. pero aquí va un resumen:

Agregue el código anterior en el editor Visual Basic de Outlook (Alt-F11 debería ayudarlo a comenzar). Asegúrate de cambiar[correo electrónico protegido]a la dirección donde quieres que llegue el correo

Dígale a Outlook que ejecute este código para cada mensaje entrante (Herramientas -> Reglas y alertas -> Nueva regla -> Verificar mensajes cuando lleguen -> Siguiente -> SÍ -> Casilla de verificación "Ejecutar un script" -> Luego seleccione el script que acaba de creado.

Ahora Outlook debería reenviar automáticamente cada correo electrónico que reciba, pero el administrador no lo bloqueará como un "reenvío automático".

Código:

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

myFwd.Recipients.Add "[email protected]"
myFwd.Send
Set myFwd = Nothing 
End Sub

Respuesta1

Intente agregar una ifdeclaración usando eldirección del remitente-

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

If myFwd.Sender = "[email protected]" then
myFwd.Recipients.Add "[email protected]"
myFwd.Send
End if

Set myFwd = Nothing 
End Sub

O, la manera más fácil, sería enestableciendo la regla:

Dígale a Outlook que ejecute este código para cada mensaje entrante (Herramientas -> Reglas y alertas -> Nueva regla -> Verificar mensajes cuando lleguen -> Siguiente -> SÍ -> Casilla de verificación "Ejecutar un script" -> Luego seleccione el script que acaba de creado.

Simplemente dígale a Outlook que ejecute el código.si el mensaje es de una determinada dirección.

información relacionada