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

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:


Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!

  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
  • Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
  • Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 1180x121
 
Kommentare (0)
Noch keine Bewertungen. Bewerten Sie als Erster!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte