Como encaminhar automaticamente apenas os anexos com base em critérios específicos no Outlook?
Normalmente, ao encaminhar um e-mail, o corpo da mensagem original e os anexos também são incluídos. No entanto, às vezes, você só precisa encaminhar os anexos sem a mensagem original com base em determinados critérios para uma pessoa específica. Como você poderia resolver essa tarefa no Outlook?
Encaminhe apenas anexos com base em critérios específicos para uma pessoa automaticamente com código VBA
Por exemplo, ao receber um e-mail cujo assunto contém o texto “kto feature”, todos os anexos desse e-mail serão encaminhados automaticamente para a pessoa específica sem o corpo da mensagem. As etapas a seguir podem ajudá-lo, por favor, faça o seguinte:
1. Pressione as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique duas vezes em ThisOutlookSession no painel Project1(VbaProject.OTM) para abrir o modo, e depois copie e cole o seguinte código no módulo em branco.
Código VBA: Encaminhar automaticamente e-mails sem o 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
Observação: No código acima, você deve alterar o texto do assunto e o endereço do destinatário para os seus próprios.
3. Em seguida, salve o código e reinicie o Outlook para que o código tenha efeito.
4. A partir de agora, toda vez que um novo e-mail contendo o texto específico do assunto chegar à sua caixa de correio, o Outlook encaminhará automaticamente seus anexos sem o corpo da mensagem para a pessoa desejada.
Observação: Este código está disponível apenas para a conta padrão.
Melhores Ferramentas de Produtividade para Office
Notícia Urgente: Kutools para Outlook lança versão gratuita!
Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com vários destinatários em mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir emails duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e divertidos / Aviso de chegada de emails importantes / Minimizar Outlook em vez de fechar...
👍 Praticidade com um clique: Responder a Todos com Anexos / Anti-Phishing Emails / 🕘Exibir fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...
Use o Kutools no idioma que preferir – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
