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
Noticia de última hora: ¡Kutools para Outlook lanza su versión gratuita!
¡Descubre el nuevo Kutools para Outlook con más de100 increíbles funciones! Haz clic para descargar ahora.
📧 Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar envío de correo electrónico / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con múltiples destinatarios en emails individuales...
📨 Gestión de correo electrónico: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros filtros / Eliminar 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 emails importantes / Minimizar Outlook en vez de cerrar...
👍 Funciones en un clic: Responder a Todos con Adjuntos / Correos antiphishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contacto en lote desde emails seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
Utiliza Kutools en tu idioma preferido — disponible en Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales.
🚀 Descarga con un solo clic — Consigue todos los complementos para Office
Muy recomendado: Kutools para Office (5 en1)
Descarga los cinco instaladores a la vez con solo un clic — Kutools para Excel, Outlook, Word, PowerPoint y Office Tab Pro. Haz clic para descargar ahora.
- ✅ Comodidad en un solo clic: Descarga los cinco paquetes de instalación en una sola acción.
- 🚀 Listo para cualquier tarea en Office: Instala los complementos que necesites cuando los necesites.
- 🧰 Incluye: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint