Saltar al contenido principal

Cómo resaltar automáticamente palabras clave específicas de los correos electrónicos entrantes en Outlook

En Outlook, puede recibir cientos y miles de correos electrónicos todos los días. ¿Alguna vez ha querido resaltar automáticamente algunas palabras clave específicas de los correos electrónicos entrantes? En este artículo, presento un código VBA para resaltar automáticamente las palabras clave que especifica de los correos electrónicos entrantes en Outlook.

Resaltar automáticamente las palabras clave de los correos electrónicos entrantes


Resaltar automáticamente las palabras clave de los correos electrónicos entrantes

Ninguna función incorporada en Outlook puede manejar este trabajo, excepto VBA.

1. Prensa Alt + F11 clave para habilitar el Microsoft Visual Basic para aplicaciones ventana.

2. Luego haga doble clic Esta sesión de Outlook a la izquierda Proyecto panel, y copie y pegue el código siguiente en la nueva ventana de código.

VBA: resalte automáticamente las palabras clave en los correos electrónicos entrantes

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

Consejo: en el código, puede cambiar las palabras clave que necesite en este script xWordArr = Matriz ("Kutools""Importante:") .

3. Luego guarde el código y regrese a Outlook, en Inicio pestaña, clic Reglas > Administrar reglas y alertas.
doc resaltado automáticamente el texto 1

4. En el Reglas y Alertas diálogo, haga clic Nueva regla bajo Reglas de correo electrónico pestaña, luego en Asistente de reglas diálogo, haga clic Aplicar regla sobre los mensajes que recibo.
doc resaltado automáticamente el texto 2

5. Hacer clic en Siguiente > Siguiente > para ir al tercer diálogo, marque ejecutar un script en Step1 sección, luego haga clic un guión in Step2 sección para habilitar Seleccionar guion cuadro de diálogo, elija este código Proyecto1.Esta sesión de Outlook.AutoHighlight_SpecificWords. Hacer clic OK.
doc resaltado automáticamente el texto 3 doc resaltado automáticamente el texto 4

6. Hacer clic en Siguiente > Siguiente, en el último cuadro de diálogo, asigne un nombre a esta regla.
doc resaltado automáticamente el texto 5

7. Hacer clic en Acabado > OK para terminar la regla.

A partir de ahora, las palabras clave que especificó se resaltarán automáticamente en los correos electrónicos entrantes.
doc resaltado automáticamente el texto 6


Guarde o exporte varios correos electrónicos a otros archivos fomat (PDF / HTML / WORD / EXCEL) en Outlook

A veces, es posible que desee guardar o exportar los correos electrónicos a una carpeta como archivos de otro formato, como archivos PDF, Word o Excel en Outlook. En Outlook, ninguna de las funciones Guardar como y Exportar puede manejar este trabajo. Sin embargo, Kutools para Outlook's Save as file La utilidad puede exportar varios correos electrónicos a una carpeta como archivos con varios formatos a la vez.    ¡Haga clic para obtener una prueba gratuita de 45 días!
doc guardar como archivo
 
Kutools para Outlook: con docenas de prácticos complementos de Outlook, prueba gratis sin limitación en 45 días.

Las mejores herramientas de productividad de oficina

Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva

🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...

📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP)  /  Programar envío de correos electrónicos  /  CC/CCO automático según reglas al enviar correo electrónico  /  Reenvío automático (reglas avanzadas)   /  Agregar saludo automáticamente   /  Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...

📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente  /  Bloquear correos electrónicos fraudulentos por sujetos y otras personas  /  Eliminar correos electrónicos duplicados  /  Búsqueda Avanzada  /  Consolidar carpetas ...

📁 Archivos adjuntos profesionalesGuardar lote  /  Separación de lotes  /  Comprimir por lotes  /  Ahorro automático   /  Desconexión automática  /  Autocompresión ...

???? Interfaz mágica: 😊Más emojis bonitos y geniales   /  Aumente su productividad en Outlook con vistas con pestañas  /  Minimizar Outlook en lugar de cerrar ...

👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes  /   Correos electrónicos antiphishing  /  🕘Mostrar zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados  /  Dividir un grupo de contactos en grupos individuales  /  Eliminar recordatorios de cumpleaños ...

Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.

Leer Mas       Descargar gratis      Comprar
 

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I found a solution...

you need to enable Macros...and it WORKS (boom)

Outlook settings > Trust Center > Trust Center Settings > Macro Settings > "Enable all macros"
This comment was minimized by the moderator on the site
"run a script" is not showing, which I guess is an option not allowed by my employer
This comment was minimized by the moderator on the site
you should change register key please look https://www.slipstick.com/outlook/rules/outlook-run-a-script-rules/ but above process doesn't work for o365 outlook version on windows 10
This comment was minimized by the moderator on the site
Didn't work
This comment was minimized by the moderator on the site
didn't wok for o365 installed outlook on windows 10
This comment was minimized by the moderator on the site
doesn't work for o365 outlook version on windows 10 I applied everything
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations