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に戻ります。 ホーム タブをクリックします。 キャンペーンのルール > ルールとアラートを管理する.
4。 の中に ルールとアラート ダイアログ、クリック 新しいルール 下 電子メールのルール タブ、次に ルールウィザード ダイアログ、クリック 受け取ったメッセージにルールを適用する.
5。 クリック Next > Next > 有り XNUMX番目のダイアログに移動するには、 スクリプトを実行する Step1 セクションをクリックしてから スクリプト in Step2 有効にするセクション スクリプトを選択 ダイアログで、このコードを選択します Project1.ThisOutlookSession.AutoHighlight_SpecificWordsに設定します。 OK をクリックします。 OK.
6。 クリック Next > Next、最後のダイアログで、このルールに名前を付けます。
7。 クリック 終了 > OK ルールを終了します。
今後、指定したキーワードは受信メールで自動的に強調表示されます。
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の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。