Skip to main content

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

Author: Sun Last Modified: 2025-06-04

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

Destacar automaticamente palavras-chave de emails recebidos


Destacar automaticamente palavras-chave de emails recebidos

Nenhuma função embutida no Outlook pode realizar essa tarefa, exceto o VBA.

1. Pressione Alt + F11 para ativar a janela Microsoft Visual Basic for Applications.

2. Em seguida, clique duas vezes em ThisOutlookSession no painel Projeto à esquerda e copie e cole o código abaixo na nova janela de código.

VBA: Destacar automaticamente palavras-chave em emails 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. Depois, salve o código e volte ao Outlook, em Início aba, clique Regras > Gerenciar Regras e Alertas.
doc auto highlight text 1

4. Na Regras e Alertas caixa de diálogo, clique Nova Regra em Regras de Email aba, depois em Assistente de Regras caixa de diálogo, clique Aplicar regra nas mensagens que recebo.
doc auto highlight text 2

5. Clique Próximo > Próximo > Sim para ir até a terceira caixa de diálogo, marque executar um script a partir da Etapa 1 seção, depois clique em um script em Etapa 2 seção para habilitar Selecionar Script caixa de diálogo, escolha este código Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Clique OK.
doc auto highlight text 3 doc auto highlight text 4

6. Clique Próximo > Próximo, na última caixa de diálogo, dê um nome para esta regra.
doc auto highlight text 5

7. Clique Finalizar > OK para concluir a regra.

A partir de agora, as palavras-chave que você especificou serão destacadas automaticamente nos emails recebidos.
doc auto highlight text 6


Salvar ou Exportar Múltiplos Emails para Outros Formatos de Arquivos (PDF/HTML/WORD/EXCEL) no Outlook

Às vezes, você pode querer salvar ou exportar os emails para uma pasta em outros formatos de arquivos, como PDF, Word ou arquivos Excel no Outlook. No Outlook, nem a função Salvar como nem a função Exportar podem lidar com essa tarefa. No entanto, o utilitário Salvar como arquivo do Kutools para Outlook pode exportar múltiplos emails para uma pasta como arquivos com vários formatos de uma só vez.    Clique para experimentar gratuitamente por 45 dias!
doc save as file
 
Kutools para Outlook: com dezenas de complementos úteis para o Outlook, grátis para experimentar sem limitação por 45 dias.

Melhores Ferramentas de Produtividade para Office

Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!

Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 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 múltiplos 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 estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...

👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o 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...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!

kutools for outlook features1 kutools for outlook features2