Ir para o conteúdo principal

Como destacar automaticamente palavras-chave específicas de e-mails recebidos no Outlook

No Outlook, você pode receber centenas e milhares de e-mails todos os dias. Você já quis destacar automaticamente algumas palavras-chave específicas dos e-mails recebidos? Neste artigo, apresento um código VBA para destacar automaticamente as palavras-chave que você especifica nos emails recebidos no Outlook.

Destacar automaticamente palavras-chave de e-mails recebidos


Destacar automaticamente palavras-chave de e-mails recebidos

Nenhuma função interna do Outlook pode lidar com esse trabalho, exceto o VBA.

1. Pressione Alt + F11 chave para habilitar o Microsoft Visual Basic para Aplicações janela.

2. Em seguida, clique duas vezes Esta sessão do Outlook na esquerda Projeto painel e copie e cole o código abaixo na nova janela de código.

VBA: Auto-realçar palavras-chave em e-mails recebidos

Public WithEvents GMailItems As Outlook.Items
'UpdatebyExtendoffice20181106
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    If Item.Class <> olMail Then Exit Sub
    AutoHighlight_SpecificWords Item
End Sub
Sub AutoHighlight_SpecificWords(Mail As Outlook.MailItem)
    Dim xWord As Variant
    Dim xHTMLBody As String, xStr As String
    Dim xWordArr
    On Error Resume Next
    xWordArr = Array("Kutools", "Important")  'keyword
    xHTMLBody = Mail.HTMLBody
    For Each xWord In xWordArr
        If InStr(xHTMLBody, xWord) > 0 Then
            xStr = "<font style=" & Chr(34) & "background-color: yellow" & Chr(34) & ">" & xWord & "</font>"
            xHTMLBody = Replace(xHTMLBody, xWord, xStr)
            Mail.HTMLBody = xHTMLBody
        End If
    Next
    Mail.Save
End Sub

Dica: no código, você pode alterar as palavras-chave conforme necessário neste script xWordArr = Array ("Kutools""importante") .

3. Em seguida, salve o código e volte para o Outlook, em Início guia, clique em Regras > Gerenciar regras e alertas.
doc texto de realce automático 1

4. No Regras e Alertas diálogo, clique em Nova regra para Regras de e-mail guia, depois em Assistente de regras diálogo, clique em Aplicar regra nas mensagens que recebo.
doc texto de realce automático 2

5. Clique Próximo > Próximo > Sim para ir para a terceira caixa de diálogo, verifique execute um script da Step1 seção e, em seguida, clique em um roteiro in Step2 seção para habilitar Selecione o script caixa de diálogo, escolha este código Projeto1.ThisOutlookSession.AutoHighlight_SpecificWords. Clique OK.
doc texto de realce automático 3 doc texto de realce automático 4

6. Clique Próximo > Próximo, na última caixa de diálogo, dê um nome para esta regra.
doc texto de realce automático 5

7. Clique Acabamento > OK para terminar a regra.

A partir de agora, as palavras-chave que você especificou serão destacadas automaticamente nos e-mails recebidos.
doc texto de realce automático 6


Salvar ou exportar vários e-mails para outros arquivos fomat (PDF / HTML / WORD / EXCEL) no Outlook

Às vezes, você pode querer salvar ou exportar os e-mails para uma pasta como outros arquivos de formato, como PDF, Word ou arquivos do Excel no Outlook. No Outlook, nenhuma das funções Salvar como e Exportar pode lidar com esse trabalho. Contudo, Kutools for Outlook's Save as file utilitário pode exportar vários e-mails para uma pasta como arquivos com vários formatos ao mesmo tempo.    Clique para 45 dias de teste grátis!
doc salvar como arquivo
 
Kutools para Outlook: com dezenas de suplementos úteis do Outlook, gratuitos para testar sem limitação em 45 dias.

Melhores ferramentas de produtividade de escritório

Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook

🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...

📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP)  /  Agendar envio de e-mails  /  CC/BCC automático por regras ao enviar e-mail  /  Encaminhamento automático (regras avançadas)   /  Adicionar saudação automaticamente   /  Divida automaticamente e-mails de vários destinatários em mensagens individuais ...

📨 Gestão de E-mail: Lembre-se facilmente de e-mails  /  Bloquear e-mails fraudulentos por assuntos e outros  /  Apagar Emails Duplicados  /  Pesquisa Avançada  /  Consolidar pastas ...

📁 Anexos PróSalvar em lote  /  Desanexar lote  /  Comprimir em Lote  /  Salvamento automático   /  Desanexação Automática  /  Compressão automática ...

???? Interface Mágica: 😊Mais emojis bonitos e legais   /  Aumente a produtividade do seu Outlook com visualizações com guias  /  Minimize o Outlook em vez de fechar ...

???? Maravilhas com um clique: Responder a todos com anexos recebidos  /   E-mails antiphishing  /  🕘Mostrar fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados  /  Dividir um grupo de contatos em grupos individuais  /  Remover lembretes de aniversário ...

Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.

 

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I found a solution...

you need to enable Macros...and it WORKS (boom)

Outlook settings > Trust Center > Trust Center Settings > Macro Settings > "Enable all macros"
This comment was minimized by the moderator on the site
"run a script" is not showing, which I guess is an option not allowed by my employer
This comment was minimized by the moderator on the site
you should change register key please look https://www.slipstick.com/outlook/rules/outlook-run-a-script-rules/ but above process doesn't work for o365 outlook version on windows 10
This comment was minimized by the moderator on the site
Didn't work
This comment was minimized by the moderator on the site
didn't wok for o365 installed outlook on windows 10
This comment was minimized by the moderator on the site
doesn't work for o365 outlook version on windows 10 I applied everything
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations