Cookies帮助我们提供我们的服务。 通过使用我们的服务,您同意我们使用Cookie。
提示:其他语言是Google翻译的。 你可以访问 English 版本。
登录
x
or
x
x
注册账户
x

or

如何在Outlook中自动突出显示传入电子邮件中的特定关键字

在Outlook中,您每天可能会收到成百上千的电子邮件,您是否想要通过收到的电子邮件自动突出显示某些特定关键字? 在本文中,我将介绍一个VBA代码,以自动突出显示您在Outlook中传入的电子邮件中指定的关键字。

来自传入电子邮件的自动突出关键字


来自传入电子邮件的自动突出关键字

Outlook中没有内置函数可以处理除VBA之外的这项工作。

1。 按 Alt + F11键 键启用 Microsoft Visual Basic for Applications 窗口。

2。 然后双击 ThisOutlookSession 在左边 项目 窗格,并将代码复制并粘贴到新代码窗口。

VBA:自动突出显示传入电子邮件中的关键字

Public WithEvents GMailItems As Outlook.Items'UpdatebyExtendoffice20181106 Private Sub Application_Startup()设置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项目结束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对于每个xWord在xWordArr中如果InStr(xHTMLBody,xWord)> 0则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

提示: 在代码中,您可以在此脚本中根据需要更改关键字 xWordArr =数组(“Kutools“”重要") .

3。 然后保存代码并返回到Outlook下 首页 标签,点击 规则 > 管理规则和警报.
doc auto highlight text 1

4。 在里面 规则和警报 对话框中,单击 新规则 电子邮件规则 选项卡,然后在 规则向导 对话框中,单击 对我收到的消息应用规则.
doc auto highlight text 2

5。 点击 下一步 > 下一步 > 转到第三个对话框,检查 运行一个脚本Step1 部分,然后单击 一个脚本 in Step2 要启用的部分 选择脚本 对话框,选择此代码 Project1.ThisOutlookSession.AutoHighlight_SpecificWords。 点击 OK.
doc auto highlight text 3 doc auto highlight text 4

6。 点击 下一步 > 下一步在最后一个对话框中,为此规则命名。
doc auto highlight text 5

7。 点击 > OK 完成规则。

从现在开始,您指定的关键字将在收到的电子邮件中自动突出显示。
doc auto highlight text 6


在Outlook中保存或导出多封电子邮件到其他格式文件(PDF / HTML / WORD / EXCEL)

有时,您可能希望将电子邮件保存或导出为其他格式文件(如Outlook中的PDF,Word或Excel文件)的文件夹。 在Outlook中,另存为和导出功能都不能处理此作业。 然而, Kutools for Outlook's Save as file 实用程序可以一次将多个电子邮件作为具有多种格式的文件导出到文件夹。 点击45天免费试用!
doc保存为文件
用于Outlook的Kutools:带有数十个方便的Outlook加载项,可以在45天免费试用。


Kutools for Outlook

超过100高级功能的Outlook 2010,2013,2016,2019和365

屏幕截图kutools for outlook tiny for banner 201812

更多功能 | 免费下载 | 只有$ 39.00数百个函数

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.