如何在 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

4. 接著，按下 F5 鍵執行此程式碼，即可將所選收件匣資料夾中的所有電子郵件，依其接收時間所屬的特定月份自動分類，如下圖所示：