メインコンテンツへスキップ

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

Outlookでは、毎日数百、数千の電子メールを受信する可能性がありますが、受信電子メールから特定のキーワードを自動的に強調表示したいと思ったことはありませんか? この記事では、Outlookの受信メールから指定したキーワードを自動的に強調表示するVBAコードを紹介します。

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


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

Outlookの組み込み関数は、VBAを除いてこのジョブを処理できません。

1。 押す Altキー+ F11 を有効にするためのキー アプリケーション向け Microsoft Visual Basic 窓。

2.次にダブルクリックします このOutlookSession 左に プロジェクト ペインをクリックし、以下のコードをコピーして新しいコードウィンドウに貼り付けます。

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( "クツール""重要") .

3.次に、コードを保存してOutlookに戻ります。 ホーム タブをクリックします。 キャンペーンのルール > ルールとアラートを管理する.
ドキュメントの自動ハイライトテキスト1

4。 の中に ルールとアラート ダイアログ、クリック 新しいルール 電子メールのルール タブ、次に ルールウィザード ダイアログ、クリック 受け取ったメッセージにルールを適用する.
ドキュメントの自動ハイライトテキスト2

5。 クリック Next > Next > 有り XNUMX番目のダイアログに移動するには、 スクリプトを実行する   Step1 セクションをクリックしてから スクリプト in Step2 有効にするセクション スクリプトを選択 ダイアログで、このコードを選択します Project1.ThisOutlookSession.AutoHighlight_SpecificWordsに設定します。 OK をクリックします。 OK.
ドキュメントの自動ハイライトテキスト3 ドキュメントの自動ハイライトテキスト4

6。 クリック Next > Next、最後のダイアログで、このルールに名前を付けます。
ドキュメントの自動ハイライトテキスト5

7。 クリック 終了 > OK ルールを終了します。

今後、指定したキーワードは受信メールで自動的に強調表示されます。
ドキュメントの自動ハイライトテキスト6


Outlookで複数の電子メールを他の形式のファイル(PDF / HTML / WORD / EXCEL)に保存またはエクスポートする

OutlookのPDF、Word、Excelファイルなど、他の形式のファイルとして電子メールをフォルダに保存またはエクスポートしたい場合があります。 Outlookでは、[名前を付けて保存]機能と[エクスポート]機能のどちらもこのジョブを処理できません。 しかしながら、 Outlook用Kutools's Save as file ユーティリティは、複数の電子メールを一度に複数の形式のファイルとしてフォルダにエクスポートできます。    45日間の無料トライアルをクリックしてください!
ドキュメントをファイルとして保存
 
Kutools for Outlook:数十の便利なOutlookアドインがあり、45日以内に制限なしで無料で試すことができます。

最高のオフィス生産性向上ツール

Outlook用Kutools - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

 

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I found a solution...

you need to enable Macros...and it WORKS (boom)

Outlook settings > Trust Center > Trust Center Settings > Macro Settings > "Enable all macros"
This comment was minimized by the moderator on the site
"run a script" is not showing, which I guess is an option not allowed by my employer
This comment was minimized by the moderator on the site
you should change register key please look https://www.slipstick.com/outlook/rules/outlook-run-a-script-rules/ but above process doesn't work for o365 outlook version on windows 10
This comment was minimized by the moderator on the site
Didn't work
This comment was minimized by the moderator on the site
didn't wok for o365 installed outlook on windows 10
This comment was minimized by the moderator on the site
doesn't work for o365 outlook version on windows 10 I applied everything
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations