Outlook で受信メール内の特定キーワードを自動的にハイライトする方法

Outlook では、毎日数百通ものメールを受信することも珍しくありません。そんな中で、受信メール内の特定のキーワードを自動的にハイライトできたら便利だと思いませんか？この記事では、Outlook の受信メールから指定したキーワードを自動的にハイライトする VBA コードをご紹介します。

受信メールからキーワードを自動ハイライト

---

受信メールからキーワードを自動ハイライト

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。「次へ＞次へ＞はい」をクリックして3 つ目のダイアログに進み、スクリプトを実行するを手順1セクションでチェックし、続いて手順2セクションのスクリプトをクリックしてスクリプトの選択ダイアログを開き、このコードProject1.ThisOutlookSession.AutoHighlight_SpecificWordsを選択してください。「OK」をクリックします。

6。「次へ＞次へ」をクリックし、最後のダイアログでこのルールに名前を付けます。

7。「完了＞OK」をクリックして、ルールの設定を完了してください。

これ以降、指定したキーワードが受信メール内で自動的にハイライト表示されます。

---

Outlook で複数のメールを他の形式（PDF/HTML/WORD/EXCEL）のファイルとして保存またはエクスポートする

Outlook では、メールを PDF やWord、Excel ファイルなど他の形式でフォルダーに保存またはエクスポートしたい場合があります。しかし、残念ながらOutlook にはそうした作業に対応する「名前を付けて保存」機能も「エクスポート」機能も備わっていません。一方、45 日間の無料トライアルはこちらから！このユーティリティを使えば、複数のメールを一度にさまざまな形式でフォルダーにエクスポートできます。

Kutools for Outlook：数十種類の便利なOutlook アドインを搭載しており、45 日間制限なく無料でお試しいただけます。