如何在Outlook中自动高亮显示来自收件邮件的特定关键字

Author: Sun Last Modified: 2025-05-07

在Outlook中，您可能每天都会收到成百上千封邮件，您是否想过要自动高亮显示某些来自收件邮件的特定关键字？本文中，我将介绍一种VBA代码，用于在Outlook中自动高亮显示您指定的关键字。

自动高亮显示来自收件邮件的关键字

除了使用VBA之外，Outlook没有内置功能可以完成此任务。

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

2. 然后双击左侧项目窗格中的 ThisOutlookSession，并复制和粘贴以下代码到新的代码窗口中。

VBA：自动高亮显示收件邮件中的关键字

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

提示： 在代码中，您可以根据需要更改此脚本中的关键字 xWordArr = Array("Kutools", "Important") 。

3. 然后保存代码并返回到Outlook，在主页选项卡下，点击规则 > 管理规则和通知.
doc auto highlight text 1

4. 在 规则和通知 对话框中，点击 新建规则 在 电子邮件规则 选项卡下，然后在 规则向导 对话框中，点击 对我接收的邮件应用规则.
doc auto highlight text 2

5. 点击 下一步 > 下一步 > 是进入第三个对话框，勾选 运行脚本 从 步骤1 部分，然后点击 一个脚本 在 步骤2 部分以启用 选择脚本 对话框，选择此代码 Project1.ThisOutlookSession.AutoHighlight_SpecificWords。点击确定.
doc auto highlight text 3 doc auto highlight text 4

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

7. 点击完成 > 确定以完成规则设置。

从现在开始，您指定的关键字将在收到的邮件中自动高亮显示。
doc auto highlight text 6

将多封邮件保存或导出为其他格式文件（PDF/HTML/WORD/EXCEL）到Outlook中的文件夹

有时，您可能希望将邮件保存或导出到某个文件夹作为其他格式的文件，例如Outlook中的PDF、Word或Excel文件。在Outlook中，无论是“另存为”还是“导出”功能都无法完成此任务。然而，Kutools for Outlook的“另存为文件”工具可以一次性将多封邮件导出到一个文件夹中，并支持多种格式。 点击获取45天免费试用！