Como destacar automaticamente palavras-chave específicas de emails recebidos no Outlook
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.
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.
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.
6. Clique Próximo > Próximo, na última caixa de diálogo, dê um nome para esta regra.
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.
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! |
 |
| 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 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!
