
¿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 if
declaració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.