如何在 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()
    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 中，「另存新檔」與「匯出」功能皆無法滿足此需求。現在，透過這款工具，您可一次將多封郵件以多種格式快速匯出至資料夾！立即點擊享 45 天免費試用！ 的

Kutools for Outlook：內含數十種實用 Outlook 增益集，45 天內免費無限制試用。