Comment classer vos e-mails par mois dans Outlook ?

Si votre boîte de réception contient de nombreux e-mails, vous pouvez les stocker ou les archiver dans des dossiers distincts selon le mois indiqué dans l’heure de réception, comme le montre la capture d’écran ci-dessous, pour une boîte mail plus ordonnée et mieux organisée. Habituellement, vous créez manuellement ces dossiers, puis déplacez les e-mails un par un — une méthode clairement longue et fastidieuse. Dans cet article, je vous présente un code VBA qui permet d’accomplir cette tâche rapidement et facilement.

---

Classer les e-mails par mois à l’aide d’un code VBA

Pour déplacer les e-mails vers différents dossiers en fonction du mois, appliquez le code VBA suivant :

1. Cliquez pour sélectionner le dossier Boîte de réception à partir duquel vous souhaitez classer les e-mails.

2. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre du module.

Code VBA : Classer les e-mails par mois

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. Ensuite, appuyez sur la touche F5 pour exécuter ce code. Tous les e-mails du dossier Boîte de réception sélectionné seront alors classés selon le mois indiqué dans l’heure de réception des e-mails, comme le montre la capture d’écran suivante :