如何在 Outlook 中按月份对邮件进行分组和排序？

在 Outlook 的收件箱中，邮件默认按接收日期排序。然而，Outlook 并未提供按接收月份对所有邮件进行排序或分组的功能。本文将为您介绍一种方法，帮助您在 Outlook 中按月份对所有邮件进行分组和排序。

通过 VBA 代码在 Outlook 中按月份分组或排序邮件

---

通过 VBA 代码在 Outlook 中按月份分组或排序邮件

此方法将指导您创建一个名为“Month”（月份）的新列，并应用 VBA 宏将邮件的接收月份提取到该列。随后，您即可在 Outlook 中按“Month”列对所有邮件进行排序或分组。

1. 打开需要按月份排序或分组邮件的邮件文件夹，然后点击视图选项卡中的视图设置按钮（适用于 Outlook 2010 及更高版本）。

注意：在 Outlook 2007 中，您可以点击视图 > 当前视图 > 自定义当前视图。

2. 在随后的高级视图设置/自定义视图对话框中，点击列按钮（或）字段按钮）。

3. 在显示列/字段对话框中，点击新建列按钮（或）新建字段按钮）打开“新建列/字段”对话框，在名称框中输入 Month（月份），并确保类型和格式框均选择文本，然后点击确定按钮。见下图：

4. 现在您已返回显示列/字段对话框，在按以下顺序显示这些列（或）字段）列表框中，点击选择 Month 项目，并通过点击上移按钮将其移动到接收时间之下，最后点击确定按钮。

5. 点击确定按钮即可关闭高级视图设置/自定义视图对话框。

6. 在打开的文件夹中，选择任意一封邮件，然后同时按下 Ctrl+A 键，即可全选所有邮件。

注意：若已开启阅读窗格，请点击视图> 阅读窗格> 关闭 将其关闭。

7. 在 Microsoft Visual Basic for Applications 窗口中，按下 Alt+F11 键即可打开，然后点击插入 > 模块。

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 列标题，在右键菜单中选择按此字段分组。见下图：