Hvordan klassificeres e-mails efter måned i Outlook?

Hvis der er masser af e-mails i din indbakke, for at få postkassen til at se pæn og velorganiseret ud, kan du gemme eller arkivere dem i forskellige mapper baseret på den specifikke måned for e-mails modtaget tid som vist nedenfor. Normalt kan du oprette mapperne manuelt og derefter flytte dem én efter én. Det er klart, at denne tilgang vil være tidskrævende og besværlig. I denne artikel vil jeg tale om en VBA-kode til at løse denne opgave hurtigt og nemt.

Klassificer e-mails baseret på måned med VBA-kode

For at flytte e-mails til forskellige mapper baseret på måned, skal du anvende nedenstående VBA-kode:

1. Klik for at vælge Indbakke mappe, som du vil klassificere e-mails.

2. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

3. klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: Klassificer e-mails baseret på måned

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. Tryk derefter på F5 tasten for at udføre denne kode, og alle e-mails i den valgte Indbakke-mappe er klassificeret efter specifik måned for e-mails modtaget tid, se skærmbillede: