Wie lassen sich E-Mails in Outlook nach Monat sortieren?

Wenn sich viele E-Mails in Ihrem Posteingang befinden, können Sie diese zur besseren Übersichtlichkeit und Organisation in verschiedene Ordner einordnen oder archivieren – basierend auf dem jeweiligen Monat des Empfangsdatums der E-Mails, wie im folgenden Screenshot dargestellt. Normalerweise müssten Sie die Ordner manuell erstellen und die E-Mails einzeln verschieben – ein Vorgehen, das offensichtlich zeitaufwändig und umständlich ist. In diesem Artikel stelle ich Ihnen einen VBA-Code vor, mit dem Sie diese Aufgabe schnell und einfach erledigen können.

---

Klassifizieren Sie die E-Mails nach Monat mithilfe eines VBA-Codes

Um die E-Mails basierend auf dem Monat in verschiedene Ordner zu verschieben, wenden Sie bitte den folgenden VBA-Code an:

1. Klicken Sie, um den Posteingang-Ordner auszuwählen, dessen E-Mails Sie klassifizieren möchten.

2. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

3. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Klassifizieren der E-Mails nach Monat

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. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Alle E-Mails im ausgewählten Posteingangsordner werden nun nach dem jeweiligen Monat ihres Empfangszeitpunkts klassifiziert (siehe Screenshot):