Autoforward Outlook e-mails para externo apenas sob certas circunstâncias

Question

Existe uma modificação que pode ser feita no código VBA fornecido em resposta de uma postagem anterior que encaminharia apenas um e-mail de um determinado endereço de e-mail em vez de encaminhar tudo? Essencialmente, imitando uma regra de autoforward do outlook com uma condição de que apenas mensagens de [email protected] sejam enviadas?

I have written some VBA script to do this *bypass the server's disabling of auto-forward". Basically it mimics the user forwarding the email rather than the server doing an auto-forward. It's beyond the scope of this post to give detailed instructions, but here's a summary:

Add the above code in the Visual Basic editor of Outlook (Alt-F11 should get your started). Be sure to change [email protected] to the address where you want the mail to go

Tell Outlook to run this code for each inbound message (Tools -> Rules and Alerts -> New Rule -> Check Messages when they arrive -> Next -> YES -> Checkbox "Run a Script" -> Then select the script you just created.

Now Outlook should automatically forward each email you receive, but it won't be blocked by the Admin as an "Auto-forward".

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

    

Answer 1

Tente adicionar uma instrução if usando o endereço do remetente -

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

Ou, o mais fácil, seria definir a regra :

Tell Outlook to run this code for each inbound message (Tools -> Rules and Alerts -> New Rule -> Check Messages when they arrive -> Next -> YES -> Checkbox "Run a Script" -> Then select the script you just created.

Basta dizer ao outlook para executar o código se a mensagem for de um determinado endereço .