Outlookで月ごとにメールを分類する方法?

受信トレイに多数のメールがある場合、メールボックスをきちんと整理して表示するには、下のスクリーンショットに示すように、メールの受信時間の特定の月に基づいて、それらを別のフォルダーに保存またはアーカイブできます。通常、フォルダは手動で作成してから、XNUMX つずつ移動できます。明らかに、このアプローチは時間がかかり面倒です。この記事では、このタスクをすばやく簡単に解決するための 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