Outlook でメールを月別に分類するには、どうすればよいですか？

受信トレイにメールが大量にある場合、下記のスクリーンショットのように、メールの受信時刻に基づいて自動的に異なるフォルダーに格納またはアーカイブし、メールボックスをすっきりと整理整頓できます。もちろん、手動でフォルダーを作成し、メールを1 通ずつ移動することも可能ですが、この方法は明らかに時間も手間もかかります。本記事では、この作業を迅速かつ簡単にこなせる 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キーを押してこのコードを実行すると、選択した受信トレイフォルダー内のすべてのメールが、受信時刻に基づいて月ごとに自動分類されます（スクリーンショット参照）。