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

Hoe de e-mails per maand in Outlook classificeren?

Als er veel e-mails in uw Postvak IN staan, kunt u deze, om de mailbox er netjes en overzichtelijk uit te laten zien, opslaan of archiveren in verschillende mappen op basis van de specifieke maand waarin de e-mails zijn ontvangen, zoals hieronder afgebeeld. Normaal gesproken kunt u de mappen handmatig maken en ze vervolgens een voor een verplaatsen. Het is duidelijk dat deze aanpak tijdrovend en lastig zal zijn. In dit artikel zal ik het hebben over een VBA-code om deze taak snel en gemakkelijk op te lossen.


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

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

1. Klik om de . te selecteren inbox map waarin u de e-mails wilt classificeren.

2. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: classificeer de e-mails 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 F5 toets om deze code uit te voeren, en alle e-mails in de geselecteerde Inbox-map worden geclassificeerd op specifieke maand van de ontvangen tijd van de e-mails, zie screenshot:


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Comments (0)
Nog geen beoordelingen. Beoordeel als eerste!
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL