受信メール内の特定のキーワードをOutlookで自動的に強調表示する方法
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に戻ります。 ホーム タブをクリックし、 ルール > ルールと通知の管理.
4. ルールと通知 ダイアログで、 新しいルール をクリックします。 メール ルール タブの下で、次に ルールウィザード ダイアログで、 受信したメッセージにルールを適用.
5. 次へ > 次へ > はい をクリックして3番目のダイアログに進み、 スクリプトを実行 を ステップ1 セクションでチェックし、次に スクリプト を ステップ2 セクションで有効にしてください。 スクリプトの選択 ダイアログで、このコードを選択してください: Project1.ThisOutlookSession.AutoHighlight_SpecificWordsをクリックします。 OK.
6. 次へ > 次へをクリックし、最後のダイアログでこのルールに名前を付けます。
7. 完了 > OK をクリックしてルールの設定を終了します。
これで、指定したキーワードが受信メールで自動的に強調表示されるようになります。
Outlookで複数のメールを他のフォーマットファイル(PDF/HTML/WORD/EXCEL)として保存またはエクスポートする |
時々、Outlookでメールを別の形式(PDF、Word、Excelなど)のファイルとしてフォルダーに保存またはエクスポートしたい場合があります。Outlookでは、「名前を付けて保存」や「エクスポート」機能ではこの作業を処理できません。しかし、Kutools for Outlookの「名前を付けて保存」ユーティリティを使用すると、複数のメールを一度にさまざまな形式のファイルとしてフォルダーにエクスポートできます。 45日間の無料トライアルはこちらをクリック! |
![]() |
Kutools for Outlook: 便利なOutlookアドインが多数含まれており、45日間無制限で無料試用が可能です。 |
最高のオフィス生産性ツール
速報: Kutools for Outlook が無料版をリリース!
新しい Kutools for Outlook の無料版を体験してください。70以上の素晴らしい機能が永遠に使えます!今すぐダウンロードをクリック!
🤖 Kutools AI : 高度なAI技術を使用して、メールの返信、要約、最適化、拡張、翻訳、作成を簡単に行います。
📧 メール自動化: 自動返信 (POPとIMAPで利用可能) / メール送信のスケジュール / メール送信時にルールによる自動 CC/BCC / 自動転送 (高度なルール) / 自動挨拶追加 / 複数の宛先を持つメールを個別のメールに自動的に分割...
📨 メール管理: メールの取り消し / 件名やその他によるスパムメールのブロック / 重複したメールの削除 / 高度な検索 / フォルダーを整理...
📁 添付ファイルプロ: バッチ保存 / バッチ切り離し / バッチ圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...
🌟 インターフェースマジック: 😊より美しくクールな絵文字 /重要なメールが来たときに通知 / クローズ中ではなくOutlookを最小化...
👍 ワンクリックの驚き: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーンを表示...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 /連絡先グループを個別のグループに分割 / 誕生日のリマインダーを削除...
Kutools for Outlook をワンクリックで即座にアンロック。待たずに今すぐダウンロードして効率を高めましょう!

