Comment marquer automatiquement comme lus les e-mails non lus âgés de plus de X jours dans Outlook ?

Si votre dossier Boîte de réception contient plusieurs e-mails non lus, vous pouvez habituellement utiliser la fonction « Tout marquer comme lu » pour les marquer manuellement d’un seul clic. Mais avez-vous déjà envisagé de marquer automatiquement comme lus, dans Outlook, les e-mails non lus datant de plus de X jours, sans devoir répéter cette action manuellement chaque fois ?

Marquer automatiquement comme lus les e-mails non lus datant de plus de X jours à l’aide d’un code VBA

---

Marquer automatiquement comme lus les e-mails non lus datant de plus de X jours à l’aide d’un code VBA

Pour marquer automatiquement comme lus tous les e-mails non lus datant de plus de X jours, le code VBA suivant peut vous être utile :

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

2. Dans la fenêtre Microsoft Visual Basic pour Applications, double-cliquez sur ThisOutlookSession dans le volet Projet1 (VbaProject.OTM) pour ouvrir le module, puis copiez-collez le code ci-dessous dans le module vide.

Code VBA : Marquer automatiquement comme lus les e-mails non lus datant de plus de X jours :

Private Sub Application_Startup()
        Call MarkOldUnreadEmailsAsRead
    End Sub
    Private Sub MarkOldUnreadEmailsAsRead()
    Dim xInboxFld As Outlook.Folder
    Dim xAccount As Account
    On Error GoTo L1
    For Each xAccount In Outlook.Application.Session.Accounts
        Set xInboxFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderInbox)
        Call Processfolders(xInboxFld)
    Next xAccount
L1:     Exit Sub
    End Sub
    Private Sub Processfolders(ByVal InboxFld As Outlook.Folder)
    Dim xItems As Outlook.Items
    Dim i As Long
    Dim xSubFld As Outlook.Folder
    On Error Resume Next
    Set xItems = InboxFld.Items
    For i = 1 To xItems.Count
        If DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Then
           If xItems(i).UnRead = True Then
              xItems(i).UnRead = False
              xItems(i).Save
           End If
        End If
    Next
    If InboxFld.Folders.Count > 0 Then
       For Each xSubFld In InboxFld.Folders
           Call Processfolders(xSubFld)
       Next
    End If
End Sub

Remarque : Dans le code ci-dessus, vous pouvez ajuster le nombre de jours directement dans cette ligne : If DateDiff(«d», xItems(i).ReceivedTime, Now) >= 15Then, selon vos besoins.

3. Ensuite, sauvegardez et fermez cette fenêtre de code. Dès lors, à chaque démarrage d’Outlook, tous les e-mails non lus datant de plus de X jours seront automatiquement marqués comme lus.

Remarque : Ce code s’applique uniquement au compte de données par défaut.