如何在 Outlook 中按月對電子郵件進行分類？

如果您的收件箱中有大量電子郵件，為了使郵箱看起來整潔有序，您可以根據電子郵件接收時間的特定月份將它們存儲或歸檔到不同的文件夾中，如下圖所示。通常，您可以手動創建文件夾，然後將它們一一移動。顯然，這種方法既費時又麻煩。在本文中，我將討論用於快速輕鬆地解決此任務的 VBA 代碼。

使用 VBA 代碼根據月份對電子郵件進行分類

要根據月份將電子郵件移動到不同的文件夾，請應用以下 VBA 代碼：

1. 點擊選擇 收件箱 您要對電子郵件進行分類的文件夾。

2。按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

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