Hoe classificeert u e-mails per maand in Outlook?

Als uw Postvak IN vol zit met e-mails en u uw postbus overzichtelijk en goed georganiseerd wilt houden, kunt u de e-mails opslaan of archiveren in aparte mappen op basis van de maand waarin ze zijn ontvangen — zoals te zien is in de schermafbeelding hieronder. Normaal gesproken moet u deze mappen handmatig aanmaken en de e-mails daarna één voor één verplaatsen, wat duidelijk veel tijd en moeite kost. In dit artikel bespreek ik een VBA-code waarmee u deze taak snel en eenvoudig uitvoert.

---

Classificeer de e-mails op basis van de maand met VBA-code

Om de e-mails naar verschillende mappen te verplaatsen op basis van de maand, past u de onderstaande VBA-code toe:

1. Klik om de Postvak IN-map te selecteren waarvan u de e-mails wilt classificeren.

2. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

3. Klik op Invoegen > Module en plak de volgende code in het modulevenster.

VBA-code: Classificeer de e-mails op basis van de maand

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. Druk vervolgens op F5 om deze code uit te voeren. Alle e-mails in de geselecteerde Postvak IN-map worden dan ingedeeld op basis van de specifieke maand van de ontvangstdatum van de e-mails; zie schermafbeelding: