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

En Outlook, puede recibir cientos o incluso miles de correos electrónicos cada día. ¿Ha deseado alguna vez resaltar automáticamente ciertas palabras clave específicas en los mensajes entrantes? En este artículo, le presentamos un código VBA que resalta automáticamente las palabras clave que usted especifique en los correos entrantes de Outlook.

Resaltar automáticamente palabras clave en correos entrantes

---

Resaltar automáticamente palabras clave en correos entrantes

Ninguna función integrada de Outlook puede realizar esta tarea, a menos que se utilice VBA.

1. Pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. A continuación, haga doble clic en ThisOutlookSession en el panel izquierdo del Proyecto y copie y pegue el siguiente código en la nueva ventana de código.

VBA: Resaltar automáticamente palabras clave en correos 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 personalizar las palabras clave según sus necesidades en este script: xWordArr = Array(«Kutools», «Important»).

3. A continuación, guarde el código y vuelva a Outlook. En la pestaña Inicio, haga clic en Reglas > Administrar reglas y alertas.

4. En el cuadro de diálogo Reglas y alertas, haga clic en Nueva regla bajo la pestaña Reglas de correo electrónico. A continuación, en el cuadro de diálogo Asistente de reglas, haga clic en Aplicar regla a los mensajes que reciba.

5. Haga clic en Siguiente > Siguiente > Sí para acceder al tercer cuadro de diálogo. Active la opción ejecutar un script en la sección Paso 1 y, a continuación, haga clic en un script en la sección Paso 2 para abrir el cuadro de diálogo Seleccionar script. Elija este código: Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Haga clic en Aceptar.

6. Haga clic en Siguiente > Siguiente y, en el último cuadro de diálogo, asigne un nombre a esta regla.

7. Haga clic en Finalizar y luego en Aceptar para completar la regla.

A partir de ahora, las palabras clave que haya especificado se resaltarán automáticamente en los correos electrónicos entrantes.

---

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

A veces, es posible que desee guardar o exportar correos electrónicos a una carpeta como archivos en otros formatos, como PDF, Word o Excel desde Outlook. Sin embargo, ninguna de las funciones integradas de Outlook —ni «Guardar como» ni «Exportar»— permite realizar esta tarea. Afortunadamente, con nuestra utilidad puede exportar varios correos electrónicos a una carpeta como archivos en múltiples formatos, ¡todo al mismo tiempo!¡Haga clic para probarlo gratis durante 45 días!Kutools para Outlook's Save as file

Kutools para Outlook: con decenas de complementos prácticos para Outlook, pruébelos gratis sin limitaciones durante 45 días.