Cum se clasifică e-mailurile pe lună în Outlook?

Dacă există o mulțime de e-mailuri în căsuța dvs. de e-mail, pentru a face căsuța poștală să pară îngrijită și bine organizată, le puteți stoca sau arhiva în diferite foldere, în funcție de luna specifică a timpului de primire a e-mailurilor, așa cum se arată mai jos. În mod normal, puteți crea folderele manual și apoi le puteți muta unul câte unul. Evident, această abordare va consuma timp și va fi supărătoare. În acest articol, voi vorbi despre un cod VBA pentru a rezolva această sarcină rapid și ușor.

Clasificați e-mailurile în funcție de lună cu codul VBA

Pentru a muta e-mailurile în dosare diferite în funcție de lună, aplicați codul VBA de mai jos:

1. Faceți clic pentru a selecta Primite folderul în care doriți să clasificați e-mailurile.

2. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

3. clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

Cod VBA: Clasificați e-mailurile în funcție de lună

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. Apoi, apăsați F5 tasta pentru a executa acest cod și toate e-mailurile din dosarul Inbox selectat sunt clasificate în funcție de luna specifică a timpului de primire a e-mailurilor, vezi captura de ecran: