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 de Última Hora: 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 E-mail: Resposta automática (Disponível para POP e IMAP) / Agendar Enviar Email / 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 Email individuais ...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails fraudulentos por Assunto e outros critérios / Excluir Duplicado / Pesquisa Avançada / Organizar Pastas ...
📁 Anexos Pro: Salvar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir ...
🌟 Magia da Interface: 😊Mais emojis bonitos e legais / Notificações de emails importantes / Minimizar Outlook em vez de fechar ...
👍 Recursos de um clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados / Dividir um Grupo de Contatos em grupos individuais / Remover lembrete de aniversário ...
Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
🚀 Download com um clique — Baixe todos os complementos de Office
Recomendado fortemente: Kutools para Office (5 em1)
Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!
- ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
- 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
- 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint