Como encaminhar automaticamente apenas anexos com base em critérios específicos no Outlook?

Normalmente, ao reencaminhar uma mensagem de e-mail, o corpo da mensagem original e os anexos são incluídos automaticamente. No entanto, por vezes, precisa apenas de reencaminhar os anexos — sem a mensagem original — com base em critérios específicos para uma determinada pessoa. Como pode realizar esta tarefa no Outlook?

Reencaminhar apenas anexos com base em critérios específicos para uma pessoa automaticamente com código VBA

---

Reencaminhar apenas anexos com base em critérios específicos para uma pessoa automaticamente com código VBA

Por exemplo, ao receber uma mensagem de correio eletrónico cujo assunto contenha o texto «kto feature», todos os anexos dessa mensagem serão automaticamente reencaminhados para a pessoa específica, sem o corpo da mensagem. Os passos seguintes podem ajudá-lo — siga-os conforme indicado:

1. Prima e mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, faça duplo clique em ThisOutlookSession no painel Project1 (VbaProject.OTM) para abrir o módulo e, em seguida, copie e cole o seguinte código no módulo em branco.

Código VBA: Encaminhamento automático mensagem de correio eletrónico sem corpo da mensagem, incluindo apenas os anexos:

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
    Dim xForwardMail As Outlook.MailItem
    Dim xEmail As MailItem
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xEmail = Item
    If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub  'change subject text to your need
    If xEmail.Attachments.Count = 0 Then Exit Sub
    Set xForwardMail = xEmail.Forward
    With xForwardMail
        .HTMLBody = ""
        With .Recipients
            .Add "skyyang@addin88.com"    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

Nota: No código acima, substitua o assunto e o endereço do destinatário pelos seus próprios.

3. Em seguida, guarde o código e reinicie o Outlook para que as alterações tenham efeito.

4. A partir de agora, sempre que um novo e-mail com o texto específico no assunto chegar à sua caixa de correio, o Outlook encaminhará automaticamente os respetivos anexos — sem o corpo da mensagem — para a pessoa pretendida.

Nota: Este código só está disponível para a Conta padrão.