☰

Encaminhar automaticamente e-mails do Outlook para externos apenas sob determinadas circunstâncias

tag-icon • tag-icon email microsoft-outlook vba
Encaminhar automaticamente e-mails do Outlook para externos apenas sob determinadas circunstâncias

Existe uma modificação que pode ser feita no código VBA fornecido emesta respostade uma postagem anterior que encaminharia apenas e-mails de um determinado endereço de e-mail, em vez de encaminhar tudo? Essencialmente, imitar uma regra de encaminhamento automático do Outlook com a condição de que apenas mensagens de[e-mail protegido]ser enviado?

Eu escrevi um script VBA para fazer isso * ignorar a desativação do encaminhamento automático do servidor ". Basicamente, ele imita o usuário encaminhando o e-mail em vez de o servidor fazer um encaminhamento automático. Está além do escopo desta postagem fornecer instruções detalhadas, mas aqui vai um resumo:

Adicione o código acima no editor Visual Basic do Outlook (Alt-F11 deve começar). Certifique-se de mudar[e-mail protegido]para o endereço para onde você deseja que a correspondência vá

Diga ao Outlook para executar este código para cada mensagem de entrada (Ferramentas -> Regras e alertas -> Nova regra -> Verificar mensagens quando elas chegarem -> Próximo -> SIM -> Caixa de seleção "Executar um script" -> Em seguida, selecione o script que você acabou de criada.

Agora o Outlook deve encaminhar automaticamente cada e-mail que você receber, mas não será bloqueado pelo administrador como um "encaminhamento 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

Responder1

Tente adicionar uma ifdeclaração usando oEndereç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, a maneira mais fácil, seria emdefinindo a regra:

Diga ao Outlook para executar este código para cada mensagem de entrada (Ferramentas -> Regras e alertas -> Nova regra -> Verificar mensagens quando elas chegarem -> Próximo -> SIM -> Caixa de seleção "Executar um script" -> Em seguida, selecione o script que você acabou de criada.

Basta dizer ao Outlook para executar o códigose a mensagem for de um determinado endereço.

informação relacionada