受信メール内の特定のキーワードをOutlookで自動的に強調表示する方法

Author: Sun Last Modified: 2025-05-23

Outlookでは、毎日何百、何千ものメールを受け取ることがあります。受信メールから特定のキーワードを自動的に強調表示したいと思ったことはありませんか？この記事では、Outlookで受信メール内の指定したキーワードを自動的に強調表示するためのVBAコードを紹介します。

受信メールからのキーワードの自動強調表示

受信メールからのキーワードの自動強調表示

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. 次へ > 次へ > はいをクリックして3番目のダイアログに進み、 スクリプトを実行 を ステップ1 セクションでチェックし、次に スクリプト を ステップ2 セクションで有効にしてください。 スクリプトの選択 ダイアログで、このコードを選択してください： 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の「名前を付けて保存」ユーティリティを使用すると、複数のメールを一度にさまざまな形式のファイルとしてフォルダーにエクスポートできます。　45日間の無料トライアルはこちらをクリック！