Note: The other languages of the website are Google-translated. Back to English

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

Normalmente, ao encaminhar um e-mail, o corpo da mensagem original e os anexos também são incluídos. Mas, às vezes, você só precisa encaminhar apenas os anexos sem a mensagem original com base em critérios para uma pessoa específica. Como você resolveria esse trabalho no Outlook?

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


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

Por exemplo, ao receber um email cujo assunto contém o texto “recurso kto”, todos os anexos deste email serão encaminhados para a pessoa específica automaticamente sem o corpo da mensagem. As etapas a seguir podem ajudá-lo, faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook de Projeto1 (VbaProject.OTM) painel para abrir o modo e, em seguida, copie e cole o código a seguir no módulo em branco.

Código VBA: encaminhamento automático de e-mail sem o corpo da mensagem, mas apenas inclui 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, você deve alterar o texto do assunto e o endereço do destinatário para os seus.

doc encaminhamento automático de anexos apenas 1

3. Em seguida, salve o código e reinicie o Outlook para que o código tenha efeito.

4. A partir de agora, cada vez que um novo e-mail contiver o texto do assunto específico chegar à sua caixa de correio, o Outlook encaminhará automaticamente seus anexos sem o corpo da mensagem para a pessoa desejada.

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


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 

 

Comentários (1)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Isso é ótimo, mas se alguém responder à cadeia do e-mail com um anexo, ele também encaminhará esse anexo automaticamente. Há alguma maneira de evitar isto? Obrigado
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos