如何在 Outlook 中自动高亮显示收件邮件中的指定关键词

在 Outlook 中，您每天可能会收到数百甚至上千封邮件，是否曾想过自动高亮显示收件邮件中的特定关键词？本文将为您介绍一段 VBA 代码，助您轻松实现对 Outlook 收件邮件中指定关键词的自动高亮显示。

自动高亮显示收件邮件中的关键词

---

自动高亮显示收件邮件中的关键词

Outlook 本身不具备此功能，只有通过 VBA 才能实现。

1. 按下 Alt + F11 组合键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 接着，在左侧 Project 窗格中双击 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，在“开始”选项卡，点击“规则” > “管理规则和警报”。

4. 在“规则和警报”对话框中，点击“新建规则”，在“邮件规则”选项卡下，随后在规则向导对话框中，点击“对我接收的邮件应用规则”。

5. 点击“下一步”>“下一步”>“是”，进入第三个对话框。在 第 1 步 区域勾选“运行脚本”，然后在 第 2 步 区域点击“一个脚本”，启用“选择脚本”对话框，选择本代码 Project 1.ThisOutlookSession.AutoHighlight_SpecificWords。最后点击“确定”。

6. 点击“下一步”，在最后一个对话框中为此规则命名。

7. 点击“完成”和“确定”，即可完成规则设置。

从现在起，您指定的关键词将在收件邮件中自动高亮显示。

---

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

有时，您可能希望将邮件保存或导出到文件夹，并以 PDF、Word 或 Excel 等格式存储在 Outlook 中。但在 Outlook 中，无论使用“另存为”还是“导出”功能，都无法实现这一需求。而 的实用工具点击免费试用 45 天！ 可以一次性批量导出多封邮件为多种格式的文件。

Kutools for Outlook：包含数十款实用 Outlook 加载项，45 天内全部功能免费体验，无任何限制。