如何在 Outlook 中按月份對郵件進行分組和排序？

Author: Kelly Last Modified: 2025-05-12

預設情況下，Outlook 收件匣中的郵件是按照接收日期排序的。然而，沒有直接的命令可以根據接收月份對所有郵件進行排序或分組。在此我將介紹一種方法，可以在 Outlook 中按月份對所有郵件進行分組和排序。

使用 VBA 程式碼在 Outlook 中按月份對郵件進行分組或排序

使用 VBA 程式碼在 Outlook 中按月份對郵件進行分組或排序

此方法將引導您創建一個名為“月”的新列，然後應用 VBA 宏將接收月份提取到該新列中，之後您可以根據“月”列對所有郵件進行排序或分組。

1. 打開要按月份對郵件進行排序或分組的郵件文件夾，然後在 Outlook 2010 及更高版本的檢視標籤上點擊「檢視設定」按鈕。

doc sort emails by month 1

注意：在 Outlook 2007 中，您可以點擊「檢視 > 當前檢視 > 自定義當前檢視」。

2. 在彈出的「高級檢視設定/自定義檢視」對話框中，點擊「列」按鈕（或「欄位」按鈕）。

doc sort emails by month 2

3. 在顯示列/欄位對話框中，點擊新建列按鈕（或新建欄位按鈕）以打開「新建列/欄位」對話框，在名稱框中輸入月，保持類型框和格式框中選擇的文字不變，然後點擊確定按鈕。請參見下面的截圖：

doc sort emails by month 3

4. 現在您返回到「顯示列/欄位」對話框，點擊並選擇「顯示這些列 （或欄位）以此順序」框中的「月」項目，通過點擊「向上移動」按鈕將其移至「接收日期」下方，最後點擊「確定」 按鈕。

doc sort emails by month 4

5. 點擊「確定」按鈕以關閉「高級檢視設定/自定義檢視」對話框。

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. 按下 F5 鍵運行此 VBA 宏。

10. 現在每封郵件的接收月份都已提取到「月」列中。要在當前打開的文件夾中按月份對所有郵件進行排序，只需點擊「月」列的列標題即可。請參見截圖：

doc sort emails by month 5