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

4。次に、 F5 キーを押してこのコードを実行すると、選択した受信トレイフォルダ内のすべての電子メールが、電子メールの受信時刻の特定の月ごとに分類されます。スクリーンショットを参照してください。

Kutools for Outlook-100の高度な機能をOutlookにもたらし、作業をはるかに簡単にします！

自動CC / BCC メール送信時のルールによる。自動転送カスタムによる複数の電子メール。自動返信 Exchangeサーバーなし、およびより多くの自動機能...
BCC警告 -全員に返信しようとするとメッセージを表示するメールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
メール会話のすべての添付ファイルで（すべて）返信; 多くのメールに返信するすぐに; あいさつを自動追加返信するとき; 件名に日付を追加...
添付ファイルツール：すべてのメールのすべての添付ファイルを管理し、自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、選択したメールを数える...
強力な迷惑メール習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。