Come si possono classificare le email per mese in Outlook?

Se la Posta in arrivo contiene numerose email, per mantenere la casella ordinata e ben organizzata è possibile archiviarle o spostarle in cartelle distinte in base al mese di ricezione, come illustrato nello screenshot seguente. Di solito, si creano manualmente le cartelle e poi si spostano le email una alla volta — un metodo chiaramente dispendioso in termini di tempo e poco pratico. In questo articolo ti mostrerò un codice VBA per eseguire questa operazione in modo rapido e semplice.

---

Classifica le email in base al mese con un codice VBA

Per spostare le email in cartelle diverse in base al mese, applicare il seguente codice VBA:

1. Fai clic per selezionare la cartella Posta in arrivo da cui desideri classificare le email.

2. Tenere premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

3. Fare clic su Inserisci > Modulo, quindi incollare il codice seguente nella finestra del modulo.

Codice VBA: Classifica le email in base al mese

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. Premere quindi il tasto F5 per eseguire il codice: tutte le email nella cartella della Posta in arrivo selezionata verranno classificate in base al mese specifico dell’ora di ricezione delle email. Vedere lo screenshot: