Outlookで送信者ドメインで並べ替えてグループ化する方法は？

著者: ケリー最終更新日：2024年08月05日

通常、Microsoft Outlookでは、送信者、カテゴリ、件名、サイズなどごとにすべての電子メールメッセージを簡単に整理できます。ただし、電子メールメッセージの送信者ドメインフィールドがまったくないため、送信者ドメインで電子メールメッセージを並べ替えたりグループ化したりすることは不可能のようです。ここでは、電子メールメッセージのドメイン列を追加し、Outlookで送信者ドメインごとに電子メールメッセージを簡単に並べ替えてグループ化するのに役立つVBAコードを紹介します。

Office タブ - Microsoft Office でタブによる編集と参照を有効にし、仕事をスムーズにします

Officeタブの機能を読む Office タブをダウンロード

OutlookのKutoolsのロックを解除する無料版今すぐ70以上の機能を無制限にご利用いただけます

メールの生産性を向上 AI技術で電子メールにすばやく返信したり、新しい電子メールを下書きしたり、メッセージを翻訳したり、より効率的に作業できるようになります。
メール送信を自動化する自動CC / BCC, 自動転送規則によって。送信自動返信 (不在時) Exchange サーバーを必要とせず...
などのリマインダーを受け取る BCC警告 BCC リストに登録しているときに全員に返信する場合、添付ファイルがない場合に通知する忘れた添付ファイルについては...
メールの効率を向上させる添付ファイル付きで返信 (すべて), 署名または件名に挨拶または日付と時刻を自動追加, 複数のメールに返信する...
メール送信を効率化するメールの取り消し, アタッチメントツール (すべて圧縮、すべて自動保存...)、重複を削除する, クイックレポート...

これらの高度な機能を使用して、Outlook 2024 - 2010 または Outlook 365 を強化します。70 を超える強力な機能を活用して、電子メールエクスペリエンスを向上させましょう。

Kutools for Outlook のすべての機能を読む無料版をダウンロード

Microsoft Outlook 2013および2010で送信者ドメイン別に電子メールメッセージを並べ替えてグループ化するには、次のようにします。

手順1：すべてのメールメッセージを送信者ドメインで並べ替えるメールフォルダを開きます。

ステップ2：クリックして閲覧ウィンドウをオフにします 読書ペイン > オフ表示タブには何も表示されないことに注意してください。

Outlook 1 で送信者ドメインによる並べ替えとグループ化を行う手順のスクリーンショット

ステップ3：先に進み、 列の追加 表示タブには何も表示されないことに注意してください。

Outlook 2 で送信者ドメインによる並べ替えとグループ化を行う手順のスクリーンショット

手順3：[列の表示]ダイアログボックスで、[ 新しい列

Outlook 3 で送信者ドメインによる並べ替えとグループ化を行う手順のスクリーンショット

手順4：[新しい列]ダイアログボックスで、次のように入力します ドメイン [名前]ボックスに入力し、 テキスト 両方で選択種類ボックスと フォーマット ボックス、最後にクリックします OK

Outlook 4 で送信者ドメインによる並べ替えとグループ化を行う手順のスクリーンショット

手順5：[列の表示]ダイアログボックスに戻り、[ ドメイン [これらの列をこの順序で表示する]ボックスで、下に移動しますアイテムをクリックし、 OK

Outlook 5 で送信者ドメインによる並べ替えとグループ化を行う手順のスクリーンショット

ステップ6：開いているメールフォルダに戻り、を押してすべてのメールメッセージを選択します Ctrlキー + A キーを同時に押します。

ステップ7：他の + F11 その間にキーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。次に、をクリックします インセット > モジュール、次に次の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：を押してこのVBAコードを実行します F5 キーまたはランツールバーのボタン。

ステップ9：これで、各送信者のドメインが抽出され、[ドメイン]列に入力されます。

A. メールメッセージを送信者ドメインで並べ替えるには、の列ヘッダーをクリックするだけです。 ドメイン すべての電子メールメッセージの上部。