如何在 Outlook 中依月份對電子郵件進行分組與排序？

Outlook 收件匣中的電子郵件預設依接收日期排序，但並未提供直接指令讓您依接收月份進行排序或分組。本文將為您介紹一種在 Outlook 中依月份對所有電子郵件進行分組與排序的實用方法。

透過 VBA 程式碼在 Outlook 中依月份對電子郵件進行分組或排序

---

透過 VBA 程式碼在 Outlook 中依月份對電子郵件進行分組或排序

此方法將引導您建立一個名為「Month」的新欄位，並透過 VBA 巨集將電子郵件的接收月份提取至該欄位，讓您日後能在 Outlook 中依「Month」欄位輕鬆對所有郵件進行排序或分組。

1. 開啟要依月份排序或分組電子郵件的郵件資料夾，然後在 Outlook 2010 及更新版本中，點擊位於檢視索引標籤上的檢視設定按鈕。

注意：在 Outlook 2007 中，請點擊檢視＞ 目前檢視＞ 自訂目前檢視。

2. 在進階檢視設定／自訂檢視對話方塊中，點擊欄位按鈕（或）欄位按鈕）。

3. 在顯示欄位／欄位對話方塊中，點擊新增欄位按鈕（或）新增欄位按鈕），開啟「新增欄位」對話方塊後，在 Month 名稱方塊中輸入文字，並在類型與格式方塊中皆維持選取，再點擊確定按鈕。請參閱下方截圖：

4. 現在返回顯示欄位／欄位對話方塊，在 Month「以下列順序顯示這些欄位（或）欄位）」方塊中，點選 Month 項目，再點擊已接收下方的上移按鈕，將其移至該位置，最後點擊確定按鈕。

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. 現在每封電子郵件的接收月份已提取至下方的 Month 欄位。若要在這個打開的資料夾中依月份對所有電子郵件進行排序，只需點擊 Month 欄位標題即可。請參閱截圖：

注意：若要在這個資料夾中依月份對所有電子郵件進行分組，請在 Month 欄位標題上按一下滑鼠右鍵，然後從快捷功能表中選取以此欄位分組。請參閱截圖：