Como encaminhar automaticamente e-mails recebidos específicos por meio de uma conta diferente no Outlook

Alguns usuários configuraram mais de uma conta de e-mail no Outlook e definiram uma como a conta padrão. Mas eles também desejam que o Outlook encaminhe automaticamente emails específicos recebidos por meio de outra conta. O Outlook não possui essa função, portanto, pode ser realizado apenas com o código VBA compartilhado neste artigo.

Por exemplo, você configurou duas contas de e-mail POP3 em seu Outlook e definiu a Conta 1 como a conta padrão. Assim, todos os e-mails recebidos seriam salvos no arquivo do Outlook da Conta 1. E você cria uma regra do Outlook para encaminhar automaticamente os e-mails recebidos específicos para outra pessoa. Agora, o que você espera é que todo o encaminhamento de e-mail seja executado por meio de outra conta de e-mail, ou seja, a Conta 2. No entanto, a regra do Outlook não fornece tal ação. Portanto, você deve usar outros métodos, como o seguinte.

Encaminhamento automático de e-mails recebidos específicos por meio de uma conta diferente

1. Para começar, no Outlook, acesse o editor VBA via “Alt + F11”.
2. Em seguida, no editor VBA, coloque o seguinte código VBA em um módulo ocioso.

Sub AutoForwardMailsThroughAnotherAccount(objMail As Outlook.MailItem)
    Dim objForwardMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim objMailAccounts As Outlook.Accounts
    Dim objMailAccount As Outlook.Account
 
    Set objForwardMail = objMail.Forward
    'Change the recipients of forwarding email
    Set objRecipient = objForwardMail.Recipients.Add("shelly@datanumen.com")
    objRecipient.Type = olTo
    objForwardMail.Recipients.ResolveAll
 
    Set objMailAccounts = Outlook.Application.Session.Accounts
    For Each objMailAccount In objMailAccounts
        'Replace "John Smith" with the display name of your email account
        If objMailAccount.DisplayName = "John Smith" Then
           objForwardMail.SendUsingAccount = objMailAccount
           objForwardMail.Send
        End If
    Next
End Sub

3. Em seguida, saia do editor VBA.
4. Em seguida, clique em “Regras” > “Gerenciar regras e alertas” na guia “Página inicial”.
5. Em seguida, na nova caixa de diálogo, clique em “Nova regra”.
6. Depois disso, outra caixa de diálogo será exibida, na qual você precisa selecionar “Aplicar regra nas mensagens recebidas” e clicar em “Avançar”.
7. Em seguida, na nova tela, você precisa definir a condição da regra, como “com palavras específicas no assunto” e clicar em “Avançar”.
8. Na tela seguinte, você deve selecionar “executar um script” e selecionar a nova macro que acabou de adicionar.
9. Depois disso, você pode concluir a configuração da regra de acordo com os assistentes na tela.
10. A partir de agora, sempre que um e-mail específico chegar à caixa de correio específica, o Outlook o encaminhará automaticamente por meio de outra conta de e-mail específica.

Salvar dados do Outlook após danos

Embora o Outlook forneça inúmeras funções, ele ainda não pode estar livre de erros e corrupção. Se o seu Outlook travar repentinamente, há uma grande chance de que seu arquivo de dados do Outlook esteja corrompido. Naquela época, até mesmo o embutido Reparo do Outlook ferramenta, Scanpst, é incapaz de ajudá-lo. Você não tem alternativa a não ser recorrer a uma formidável ferramenta externa, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo sql corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com