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 Home guia, clique em Regras > Gerenciar regras e alertas.

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.

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.

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

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.

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!

Kutools for Outlook: com dezenas de suplementos úteis do Outlook, gratuitos para testar sem limitação em 45 dias.