Cómo resaltar automáticamente palabras clave específicas de los correos electrónicos entrantes en Outlook
En Outlook, puede recibir cientos o 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 especifique de los correos electrónicos entrantes en Outlook.
Resaltado automático de palabras clave de los correos electrónicos entrantes
Resaltado automático de palabras clave de los correos electrónicos entrantes
Ninguna función integrada en Outlook puede manejar esta tarea excepto VBA.
1. Presione Alt + F11 para habilitar la ventana de Microsoft Visual Basic para Aplicaciones.
2. Luego haga doble clic en ThisOutlookSession en el panel Proyecto a la izquierda, y copie y pegue el siguiente código en la nueva ventana de código.
VBA: Resaltado automático de palabras clave en 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 según sea necesario en este script xWordArr = Array("Kutools", "Importante").
3. Luego guarde el código y regrese a Outlook, bajo Inicio pestaña, 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 luego en el cuadro de diálogo Asistente de Reglas haga clic en Aplicar regla a los mensajes que recibo.
5. Haga clic en Siguiente > Siguiente > Sí para ir al tercer cuadro de diálogo, marque ejecutar un script desde la sección Paso 1 luego haga clic en un script en la sección Paso 2 para habilitar 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, en el último cuadro de diálogo, asigne un nombre a esta regla.
7. Haga clic en Finalizar > 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.
Guardar o Exportar múltiples correos electrónicos a otros formatos de archivo (PDF/HTML/WORD/EXCEL) en Outlook |
| A veces, es posible que desee guardar o exportar los correos electrónicos a una carpeta en otros formatos de archivo, como archivos PDF, Word o Excel en Outlook. En Outlook, ni la función Guardar como ni la función Exportar pueden manejar esta tarea. Sin embargo, la utilidad Guardar como archivo de Kutools para Outlook puede exportar varios correos electrónicos a una carpeta como archivos con múltiples formatos a la vez. ¡Haga clic para obtener una prueba gratuita de 45 días! |
 |
| Kutools para Outlook: con docenas de complementos útiles para Outlook, pruébelos gratis sin limitaciones durante 45 días. |
Las mejores herramientas de productividad para Office
Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!
Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz clic para descargar ahora!
📧 Automatización de Email: Respuesta automática (Disponible para POP e IMAP) / Programar envío de correos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente emails con múltiples destinatarios en mensajes individuales...
📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas...
📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...
🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos importantes / Minimiza Outlook en vez de cerrarlo...
👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
