Skip to main content

如何在 Outlook 中按月份分類郵件?

Author: Xiaoyang Last Modified: 2025-05-12

如果您的收件匣中有大量郵件,為了讓信箱看起來整潔且井然有序,您可以根據郵件的接收時間將它們存儲或歸檔到不同的資料夾中,如下方截圖所示。通常情況下,您可以手動建立資料夾,然後逐一移動郵件。顯然,這種方法既耗時又麻煩。在本文中,我將介紹一種 VBA 程式碼,幫助您快速輕鬆地完成此任務。

classify-emails-by-month/doc-classify-by-month-1


使用 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

classify-emails-by-month/doc-classify-by-month-2

4. 然後,按下 F5 鍵執行此程式碼,所選收件匣資料夾中的所有郵件都會根據郵件的接收時間按特定月份進行分類,請參閱截圖:

classify-emails-by-month/doc-classify-by-month-1

Outlook中的AI郵件助理:更聰明的回覆,更清晰的溝通(一鍵奇蹟!) 免費

使用Kutools for Outlook的AI郵件助理簡化您的日常Outlook任務。這個強大的工具會從您過去的郵件中學習,提供智能且準確的答覆,優化您的郵件內容,並幫助您輕鬆起草和潤色郵件。
doc ai email handle

此功能支援:

  • 智能回覆:根據您過去的對話獲得量身定制、精確且隨時可用的回覆。
  • 增強內容:自動優化您的郵件文字以提高清晰度和影響力。
  • 輕鬆撰寫:只需提供關鍵字,讓AI處理其餘部分,並有多種寫作風格可供選擇。
  • 智能擴展:通過上下文感知建議來拓展您的思路。
  • 摘要生成:即時獲取長郵件的簡潔概述。
  • 全球觸及:輕鬆將您的郵件翻譯成任何語言。

此功能支援:

  • 智能郵件回覆
  • 優化的內容
  • 基於關鍵字的草稿
  • 智能內容擴展
  • 郵件摘要生成
  • 多語言翻譯

最重要的是,此功能永遠完全免費不要再等待了——立即下載AI郵件助理並享受吧