Direkt zum Inhalt

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:


Beste Office-Produktivitätstools

Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks

📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP)  /  Planen Sie das Senden von E-Mails  /  Automatisches CC/BCC nach Regeln beim E-Mail-Versand  /  Automatische Weiterleitung (erweiterte Regeln)   /  Begrüßung automatisch hinzufügen   /  Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails einfach abrufen  /  Blockieren Sie betrügerische E-Mails nach Betreff und anderen  /  Doppelte E-Mails löschen  /  Erweiterte Suche  /  Ordner konsolidieren ...

📁 Anhänge ProBatch speichern  /  Stapeltrennung  /  Stapelkomprimierung  /  Automatisches Speichern   /  Automatische Trennung  /  Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis   /  Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten  /  Ausblick minimieren statt schließen ...

👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten  /   Anti-Phishing-E-Mails  /  🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu  /  Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf  /  Geburtstagserinnerungen entfernen ...

Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations