Note: The other languages of the website are Google-translated. Back to English

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 Início guia, clique em Regras > Gerenciar regras e alertas.
doc texto de realce automático 1

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.
doc texto de realce automático 2

5. Clique Seguinte > Seguinte > Sim para ir para a terceira caixa de diálogo, verifique execute um script desde 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 Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Clique OK.
doc texto de realce automático 3 doc texto de realce automático 4

6. Clique Seguinte > Seguinte, na última caixa de diálogo, dê um nome para esta regra.
doc texto de realce automático 5

7. Clique Terminar > OK para terminar a regra.

A partir de agora, as palavras-chave que você especificou serão destacadas automaticamente nos e-mails recebidos.
doc texto de realce automático 6


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 para 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!
doc salvar como arquivo
 
Kutools para Outlook: com dezenas de suplementos úteis do Outlook, grátis para testar sem limitação em 45 dias.

Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (5)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Não funcionou
Este comentário foi feito pelo moderador no site
não funciona para a versão do Outlook o365 no Windows 10 apliquei tudo
Este comentário foi feito pelo moderador no site
não funcionou para o Outlook instalado o365 no Windows 10
Este comentário foi feito pelo moderador no site
"executar um script" não está sendo exibido, o que acho que é uma opção não permitida pelo meu empregador
Este comentário foi feito pelo moderador no site
você deve alterar a chave de registro, por favor, olhe https://www.slipstick.com/outlook/rules/outlook-run-a-script-rules/ mas o processo acima não funciona para a versão do Outlook o365 no Windows 10
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL