如何在 Outlook 中按月对电子邮件进行分类？

如果您的收件箱中有很多电子邮件，为了使邮箱看起来整洁有序，您可以根据电子邮件接收时间的特定月份将它们存储或归档到不同的文件夹中，如下图所示。通常，您可以手动创建文件夹，然后将它们一一移动。显然，这种方法既费时又麻烦。在本文中，我将讨论用于快速轻松地解决此任务的 VBA 代码。

使用 VBA 代码根据月份对电子邮件进行分类

要根据月份将电子邮件移动到不同的文件夹，请应用以下 VBA 代码：

1. 点击选择 收件箱 您要对电子邮件进行分类的文件夹。

2。按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

3。点击插页 > 模块，然后将以下代码粘贴到“模块窗口”中。

VBA 代码：根据月份对电子邮件进行分类

Sub ClassifyEmailsbyMonth()
'Updateby ExtendOffice
Dim xCurFolder As Folder
Dim xMoveFolder As Folder
Dim xMail As MailItem
Dim I As Long
Dim xYear As String, xMonth As String
On Error Resume Next
Set xCurFolder = Application.ActiveExplorer.CurrentFolder
For I = xCurFolder.Items.Count To 1 Step -1
  DoEvents
  If xCurFolder.Items.Item(I).Class = olMail Then
    Set xMail = xCurFolder.Items.Item(I)
    xYear = Year(xMail.ReceivedTime)
    xMonth = Month(xMail.ReceivedTime)
    Set xMoveFolder = Nothing
    Set xMoveFolder = xCurFolder.Folders(xYear & "." & xMonth)
    If xMoveFolder Is Nothing Then
      Set xMoveFolder = xCurFolder.Folders.Add(xYear & "." & xMonth)
    End If
    xMail.Move xMoveFolder
  End If
Next
Set xMoveFolder = Nothing
Set xCurFolder = Nothing
End Sub