Outlook で送信者のメールドメインに基づいてフィルタリングし、並べ替えやグループ化を行うにはどうすればよいですか？

通常、Microsoft Outlook では送信者、カテゴリ、件名、サイズなどに基づいてメールを簡単に整理できます。しかし、メールメッセージにはもともと「送信者のメールドメイン」をフィルタリングするためのフィールドが存在しないため、送信者のメールドメインでメールを並べ替えたりグループ化したりするのは不可能に思えます。ここでは、VBA コードを使ってメールに「ドメイン」列を追加し、その後 Outlook で送信者のメールドメインに基づいて簡単にメールを並べ替え・グループ化できるようにする方法をご紹介します。

Microsoft Outlook 2013 および 2010 でメールを送信者のメールドメインに基づいてフィルタリングし、並べ替えやグループ化を行うには、以下の手順に従ってください。

手順1：送信者のメールドメインでフィルタリングし、すべてのメールを並べ替えるためのメールフォルダーを開きます。

手順2：読み取りウィンドウ > オフをクリックして、読み取りウィンドウをオフにします。このオプションは表示タブにあります。

手順3：次に、表示タブにある複数の列を追加をクリックします。

手順3：［列の表示］ダイアログボックスで、新しい列ボタンをクリックします。

手順4：［新しい列］ダイアログボックスで、名前ボックスにDomainと入力し、［種類］ボックスと［書式］ボックスの両方でテキストが選択された状態のまま、最後に種類ボックスおよび書式ボックスの［OK］ボタンをクリックします。

手順5：これで［列の表示］ダイアログボックスに戻ります。「この順序で次の列を表示」ボックスでDomainを選択し、「From」項目の下に移動させ、Fromの下に配置したら、OKボタンをクリックします。

手順6：開いているメールフォルダーに戻り、Ctrl＋Aキーを同時に押して、すべてのメールを選択します。

手順7：Alt+F11キーを同時に押して、Microsoft Visual Basic for Applications ウィンドウを開きます。次に、挿入 > 標準モジュールをクリックし、次の VBA コードをモジュールに貼り付けます。

VBA：送信者のメールドメインでフィルタリング別に並べ替えおよびグループ化

Sub ListSelectionDomain()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim sDomain
On Error Resume Next
For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj
sDomain = Right(oMail.SenderEmailAddress, Len(oMail.SenderEmailAddress) - InStr(1, oMail.SenderEmailAddress, "@"))
Set oProp = oMail.UserProperties.Add("Domain", olText, True)
oProp.Value = sDomain
oMail.Save
Err.Clear
Next
End Sub

手順8：F5キーまたはツールバーの実行ボタンを押して、この VBA コードを実行します。

手順9：これで各送信者のドメインが抽出され、「Domain」列に入力されます。

A.送信者のメールドメイン別にメールを並べ替えてフィルタリングするには、メール一覧の上部にあるDomain 列の見出しをクリックするだけです。

B.送信者のメールドメインに基づいてメールをグループ化するには、Domain 列の見出しを右クリックし、ドロップダウンリストからこのフィールドでグループ化を選択してください。下記のスクリーンショットをご参照ください。

注記：

（1）この VBA コードは、Outlook 2013 および2010 では正常に動作しますが、Outlook 2007 では動作しません。
（2）カスタムビューについては、Outlook でビュー設定を保存し、他のフォルダーにコピーする方法は？

関連記事

Outlook でメールリストの送信者ドメインを表示する方法は？

---

最高の Office 生産性ツール

まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう！今すぐダウンロード！

🤖KUTOOLS AI：高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。

📧メール自動化：自動返信（POP および IMAP 対応）/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送（高度なルール）/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...

📨メール管理：メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...

📁添付ファイルプロ：一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...

🌟インターフェースの魅力：😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...

👍ワンクリックの驚き：全員に【Attachment】付きで返信/フィッシングメール対策/🕘送信者の現在時刻ゾーンを表示...

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

Kutools はお好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています！

ワンクリックでKutools for Outlook の機能を即解放！今すぐダウンロードして、効率を飛躍的にアップさせましょう！

Kutools for Outlook の機能一覧      今すぐダウンロード      購入ページへ

🚀 ワンクリックダウンロード — Office アドインをすべて入手

強く推奨：Kutools for Office（5-in-1）

ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！

• ✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
• 🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
• 🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

スイートについて⬇ スイートをダウンロード💳 スイートを購入