Outlookでメールを月ごとにグループ化して並べ替えるにはどうすればよいですか？

Author: Kelly Last Modified: 2025-05-23

メールは、デフォルトでOutlookの受信トレイ内で受信日時に基づいて並べ替えられます。しかし、すべてのメールを受信した月ごとに並べ替えたりグループ化するためのコマンドはありません。ここでは、Outlookでメールを月ごとにグループ化および並べ替える方法を紹介します。

VBAコードを使用してOutlookでメールを月ごとにグループ化または並べ替える

VBAコードを使用してOutlookでメールを月ごとにグループ化または並べ替える

この方法では、まず「月」という新しい列を作成し、次にVBAマクロを適用して受信月を新しい列に抽出します。その後、Outlookで「月」列に基づいてすべてのメールを並べ替えたりグループ化することができます。

1. 月ごとにメールを並べ替えまたはグループ化したいメールフォルダーを開き、Outlook 2010以降のバージョンで「表示」タブにある「表示設定」ボタンをクリックします。

doc sort emails by month 1

注: Outlook 2007では、「表示」＞「現在のビュー」＞「現在のビューをユーザー定義」をクリックできます。

2. 表示される「詳細な表示設定/ビューのカスタマイズ」ダイアログボックスで、「列」ボタン（または「フィールド 」ボタン）をクリックします。

doc sort emails by month 2

3. 「列/フィールドの表示」ダイアログボックスで、「新しい列」ボタン（または「新しいフィールド」ボタン）をクリックして「新しい列/フィールド」ダイアログボックスを開き、「名前」ボックスに「月」と入力し、両方の「タイプ」ボックスと「フォーマット」ボックスで「テキスト」が選択されたままにしてから、「OK」ボタンをクリックします。下のスクリーンショットをご覧ください：

doc sort emails by month 3

4. これで「列/フィールドの表示」ダイアログボックスに戻ります。「この順序でこれらの列 （またはフィールド）を表示」ボックス内の「月」項目を選択し、「上に移動」ボタンをクリックして「受信日時」の下に移動させ、最後に「OK 」ボタンをクリックします。

doc sort emails by month 4

5. 「詳細な表示設定/ビューのカスタマイズ」ダイアログボックスを閉じるには、「OK」ボタンをクリックします。

6. 開いているフォルダー内のすべてのメールを選択するには、任意のメールを選択してからCtrl + A キーを同時に押します。

注: リーディングペインがオンになっている場合、それを「表示」＞「リーディングペイン」＞「オフ」をクリックして閉じてください。

7. Alt + F11キーを同時に押してMicrosoft Visual Basic for Applicationsウィンドウを開き、「挿入」＞「モジュール」をクリックします。

8. 次のVBAマクロをモジュールに貼り付けます：

VBA: メールを月ごとに並べ替えまたはグループ化する

Sub ListSelectionMonth()
	Dim aObj As Object
	Dim oProp As Outlook.UserProperty
	Dim sMonth
	
	On Error Resume Next
	
	For Each aObj In Application.ActiveExplorer.Selection
		Set oMail = aObj
		
		sMonth = Month(oMail.ReceivedTime)
		Set oProp = oMail.UserProperties.Add("Month", olText, True)
		oProp.Value = sMonth
		oMail.Save
		
		Err.Clear
	Next
	
End Sub

9. このVBAマクロを実行するためにF5 キーを押します。

10. これで各メールの受信月が次の「月」列に抽出されました。開いているフォルダー内のすべてのメールを月ごとに並べ替えるには、「月」の列ヘッダーをクリックするだけです。スクリーンショットをご覧ください：

doc sort emails by month 5