Wie klassifiziere ich die E-Mails nach Monat in Outlook?

Wenn sich viele E-Mails in Ihrem Posteingang befinden, können Sie sie, um das Postfach ordentlich und gut organisiert aussehen zu lassen, in verschiedenen Ordnern speichern oder archivieren, basierend auf dem spezifischen Monat der Empfangszeit der E-Mails, wie im folgenden Screenshot gezeigt. Normalerweise können Sie die Ordner manuell erstellen und dann einzeln verschieben. Offensichtlich wird dieser Ansatz zeitraubend und mühselig sein. In diesem Artikel werde ich über einen VBA-Code zur schnellen und einfachen Lösung dieser Aufgabe sprechen.

Klassifizieren Sie die E-Mails basierend auf dem Monat mit VBA-Code

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 die auszuwählen Posteingang Ordner, in dem Sie die E-Mails klassifizieren möchten.

2. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

3 Klicken Insert > Modulund fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Klassifizieren Sie die E-Mails basierend auf dem 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. Dann drücken F5 Schlüssel zum Ausführen dieses Codes, und alle E-Mails im ausgewählten Posteingangsordner werden nach einem bestimmten Monat der Empfangszeit der E-Mails klassifiziert, siehe Screenshot: