Kako razvrstiti e-pošto po mesecih v Outlooku?

Če je v vaši mapi »Prejeto« veliko e-poštnih sporočil, jih lahko shranite ali arhivirate v različne mape, ki temeljijo na določenem mesecu prejema e-poštnih sporočil, kot je prikazano na spodnjem posnetku zaslona, da bo nabiralnik videti čist in dobro organiziran. Običajno lahko mape ustvarite ročno in jih nato premikate eno za drugo. Očitno bo ta pristop dolgotrajen in težaven. V tem članku bom govoril o kodi VBA za hitro in enostavno reševanje te naloge.

Razvrstite e-pošto glede na mesec s kodo VBA

Če želite premakniti e-pošto v različne mape glede na mesec, uporabite spodnjo kodo VBA:

1. Kliknite, da izberete Prejeto mapo, v katero želite razvrstiti e-pošto.

2. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. klik Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

Koda VBA: razvrstite e-pošto glede na mesec

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. Nato pritisnite F5 tipko za izvedbo te kode in vsa e-poštna sporočila v izbrani mapi Prejeto so razvrščena po določenem mesecu časa prejema e-poštnih sporočil, glejte posnetek zaslona: