Como realçar automaticamente palavras-chave específicas nos e-mails recebidos no Outlook

No Outlook, pode receber centenas ou até milhares de e-mails por dia. Já alguma vez desejou destacar automaticamente determinadas palavras-chave nos e-mails recebidos? Neste artigo, apresento um código VBA que destaca automaticamente as palavras-chave que especificar nas mensagens recebidas no Outlook.

Realce automático de palavras-chave nos e-mails recebidos

---

Realce automático de palavras-chave nos e-mails recebidos

Nenhuma função incorporada no Outlook consegue realizar esta tarefa — exceto o VBA.

1. Prima Alt + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.

2. Depois, faça duplo clique em ThisOutlookSession no painel esquerdo do Projeto e copie e cole o código seguinte na nova janela de código.

VBA: Realce automático de palavras-chave nos 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, pode alterar as palavras-chave conforme necessário neste script xWordArr = Array(«Kutools», «Important»).

3. Em seguida, guarde o código e regresse ao Outlook. No separador Base, clique em Regras > Gerir Regras e Alertas.

4. Na caixa de diálogo Regras e Alertas, clique em Nova Regra no separador Regras de Correio Eletrónico. Depois, na caixa de diálogo Assistente de Regras, clique em Aplicar regra às mensagens que eu receber.

5. Clique em Seguinte > Seguinte > Sim para aceder à terceira caixa de diálogo. Na secção Passo 1, marque executar um script. Depois, na secção Passo 2, clique em um script para abrir a caixa de diálogo Selecionar Script e escolha este código: Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Clique em OK.

6. Clique em Seguinte > Seguinte. Na última caixa de diálogo, atribua um nome a esta regra.

7. Clique em Concluir e, de seguida, em OK para finalizar a regra.

A partir de agora, as palavras-chave que indicou serão automaticamente destacadas nos e-mails recebidos.

---

Guarde ou exporte vários e-mails para ficheiros em outros formatos (PDF/HTML/WORD/EXCEL) no Outlook

Por vezes, poderá querer guardar ou exportar e-mails diretamente para uma pasta como ficheiros em outros formatos, tais como PDF, Word ou Excel no Outlook. Contudo, nem a função «Guardar como» nem a opção «Exportar» do Outlook conseguem realizar esta tarefa. Felizmente, com o nosso utilitário, pode exportar múltiplos e-mails para uma pasta em vários formatos de uma só vez.Clique para experimentar gratuitamente durante 45 dias!Kutools para Outlook's Save as file

Kutools para Outlook: com dezenas de práticos extras para Outlook, grátis para experimentar sem limitações durante 45 dias.