Hoe kunt u e-mails per maand classificeren in Outlook?

Als er veel e-mails in uw Postvak IN staan, kunt u om uw mailbox netjes en goed georganiseerd te houden, deze opslaan of archiveren in verschillende mappen op basis van de specifieke maand van de ontvangen tijd van de e-mails, zoals in onderstaande schermafbeelding te zien is. Normaal gesproken kunt u de mappen handmatig aanmaken en ze vervolgens één voor één verplaatsen. Dit is echter tijdrovend en omslachtig. In dit artikel zal ik een VBA-code bespreken om deze taak snel en gemakkelijk uit te voeren.

E-mails classificeren op basis van maand met VBA-code

Om e-mails naar verschillende mappen te verplaatsen op basis van de maand, gebruikt u de volgende VBA-code:

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

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

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

VBA-code: E-mails classificeren op basis van 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 de F5-toets om deze code uit te voeren, en alle e-mails in de geselecteerde Postvak IN-map worden geclassificeerd op basis van de specifieke maand van de ontvangen tijd van de e-mails, zie onderstaande schermafbeelding:

AI Mail Assistant in Outlook: Slimmere antwoorden, duidelijkere communicatie (één-klik magie!) GRATIS

Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert uit uw eerdere e-mails om intelligente en nauwkeurige reacties te bieden, uw e-mailinhoud te optimaliseren en u te helpen berichten moeiteloos op te stellen en te verfijnen.

Deze functie ondersteunt:

• Slimme antwoorden: Ontvang reacties die zijn samengesteld uit uw eerdere gesprekken - afgestemd, precies en klaar voor gebruik.
• Verbeterde inhoud: Automatisch uw e-mailtekst verfijnen voor meer duidelijkheid en impact.
• Makkelijke samenstelling: Geef slechts trefwoorden op en laat AI de rest doen, met meerdere schrijfstijlen.
• Intelligente uitbreidingen: Breid uw gedachten uit met contextbewuste suggesties.
• Samenvatting: Krijg direct een beknopt overzicht van lange e-mails.
• Wereldwijde bereik: Vertaal uw e-mails eenvoudig in elke taal.

Deze functie ondersteunt:

• Slimme e-mailreacties
• Geoptimaliseerde inhoud
• Op trefwoorden gebaseerde concepten
• Intelligente inhoudsuitbreiding
• E-mailsamenvatting
• Meertalige vertaling

Het beste van alles is dat deze functie voor altijd volledig gratis is! Wacht niet langer — download AI Mail Assistant nu en geniet

---

Beste Office-productiviteitstools

Breaking News: Kutools for Outlook lanceert een gratis versie!

Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!

🤖 Kutools AI : Maakt gebruik van geavanceerde AI-technologie om e-mails moeiteloos te verwerken, zoals beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...

📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...

📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...

🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...

👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...

Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

Activeer Kutools for Outlook direct met één enkele klik. Wacht niet langer, download nu en verhoog je efficiëntie!

Functieoverzicht van Kutools for Outlook Nu downloaden Ga naar Aanschaffen

🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!

• ✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
• 🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
• 🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint

Over de Suite ⬇ Download de Suite 💳 Koop de Suite