Note: The other languages of the website are Google-translated. Back to English
English English

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でよりスマートに、より速く、より良くすることができます。
ショットkutoolsの見通しkutoolsタブ1180x121
ショットkutoolsの見通しkutoolsプラスタブ1180x121
 
コメントを並べ替える
コメント (0)
まだ評価はありません。 最初に評価してください!
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所