As cookies axúdanos a entregar os nosos servizos. Ao usar os nosos servizos, acepta o noso uso das cookies.
Consello: outros idiomas están traducidos a Google. Podes visitar o English versión desta ligazón.
Iniciar sesión
x
or
x
x
Register
x

or

Como resaltar automáticamente palabras clave específicas dos correos electrónicos entrantes en Outlook

En Outlook, pode recibir centos e miles de correos electrónicos cada día, ¿algunha vez quixo destacar automáticamente algunhas palabras clave específicas dos correos electrónicos recibidos? Neste artigo, introduzo un código VBA para resaltar automáticamente as palabras clave que especificas dos correos electrónicos entrantes en Outlook.

Palabras clave de resaltación automática dos correos electrónicos recibidos


Palabras clave de resaltación automática dos correos electrónicos recibidos

Ningunha función integrada nas perspectivas pode xestionar este traballo, excepto VBA.

1. Preme Alt + F11 clave para activar a Microsoft Visual Basic para aplicacións fiestra.

2. A continuación, faga dobre clic Esta sesión de consulta na esquerda Proxecto panel e copiar e pegar debaixo do código á xanela do novo código.

VBA: palabras clave destacadas automáticas nos correos electrónicos recibidos

Public WithEvents GMailItems como Outlook.Items 'UpdatebyExtendoffice20181106 Private Sub Application_Startup () Establecer GMailItems = Outlook.Application.Session.GetDefaultFolder (olFolderInbox) .Items End Sub Private Sub GMailItems_ItemAdd (byVal Item como obxecto) If Item.Class <> olMail Then Exit Sub AutoHighlight_SpecificWords Item End Sub Sub AutoHighlight_SpecificWords (Mail Como Outlook.MailItem) Dim xWord As Variant Dim xHTMLBody As String, xStr As String Dim xWordArr On Error Reprender Next xWordArr = Array ("Kutools", "Importante") 'palabra clave xHTMLBody = Mail.HTMLBody Para cada xWord en xWordArr Se inStr (xHTMLBody, xWord)> 0 entón xStr = "<font style =" & Chr (34) e "background-color: amarelo" & Chr (34) e ">" & xWord & "< / font> "xHTMLBody = Substituír (xHTMLBody, xWord, xStr) Mail.HTMLBody = xHTMLBody End Se Next Mail.Save End Sub

Consello: no código, podes cambiar as palabras clave que necesites neste script xWordArr = Array ("Kutools""Importante") .

3. A continuación, garda o código e volve a Outlook, baixo casa pestana, faga clic Regras > Xestionar regras e alertas.
texto auto destacar o texto 1

4. No Regras e alertas diálogo, faga clic Nova regra para Regras de correo electrónico pestana, a continuación en Asistente de regras diálogo, faga clic Aplicar regra sobre as mensaxes que recibo.
texto auto destacar o texto 2

5. Fai clic seguinte > seguinte > si para ir ao terceiro diálogo, marque executar un script de Paso1 sección e prema en un guión in Paso2 sección para habilitar Seleccionar script diálogo, elixe este código Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Prema OK.
texto auto destacar o texto 3 texto auto destacar o texto 4

6. Fai clic seguinte > seguinte, no último diálogo, dá un nome a esta regra.
texto auto destacar o texto 5

7. Fai clic Rematar > OK para rematar a regra.

A partir de agora, as palabras clave que especificou serán automáticas destacadas nos correos electrónicos recibidos.
texto auto destacar o texto 6


Gardar ou exportar varios correos electrónicos a outros ficheiros fomat (PDF / HTML / WORD / EXCEL) en Outlook

Ás veces, pode querer gardar ou exportar os correos electrónicos a un cartafol como outros ficheiros de formato, como PDF, Word ou Excel en Outlook. En Outlook, ningunha das funcións Save as e Export pode xestionar este traballo. Non obstante, Kutools para Outlook's Save as file A utilidade pode exportar varios correos electrónicos a un cartafol como arquivos con varios formatos á vez. Fai clic para 45 días de proba gratuíta.
doc gardar como ficheiro
Kutools para Outlook: con decenas de complementos de Outlook útiles, gratuítos para probar sen ningunha limitación en 45 días.


Kutools para Outlook

Máis de 100 Funcións avanzadas para Outlook 2010, 2013, 2016, 2019 e 365

captura de pantalla kutools para pequenas perspectivas para a bandeira 201812

Máis recursos | Descarga gratuíta | Só $ 39.00 por centos de funcións

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.