Comment marquer les e-mails non lus antérieurs à des jours spécifiques comme lus automatiquement dans Outlook?

S'il y a plusieurs e-mails non lus dans votre dossier Boîte de réception, vous pouvez normalement appliquer la fonction Tout marquer comme lu pour marquer manuellement tous les e-mails non lus comme e-mails lus. Mais avez-vous déjà essayé de marquer les e-mails non lus qui datent de plus de jours spécifiques comme lus automatiquement dans Outlook sans le configurer manuellement à chaque fois?

Marquer les e-mails non lus plus anciens que des jours spécifiques comme lus automatiquement avec le code VBA

Marquer les e-mails non lus plus anciens que des jours spécifiques comme lus automatiquement avec le code VBA

Pour marquer automatiquement tous les e-mails non lus antérieurs à des jours spécifiques comme lus, le code VBA suivant peut vous rendre service:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Cette session Outlook du Projet1 (VbaProject.OTM) volet pour ouvrir le mode, puis copiez et collez le code ci-dessous dans le module vide.

Code VBA: marque automatiquement les e-mails non lus antérieurs à des jours spécifiques comme lus:

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

Notes: Dans le code ci-dessus, vous pouvez modifier le nombre de jours dans ce script: Si DateDiff ("d", xItems (i) .ReceivedTime, Now)> = 15 Ensuite à votre propre besoin.

3. Ensuite, enregistrez et fermez cette fenêtre de code, car à chaque fois que vous lancez Outlook, tous les e-mails non lus datant de plus de jours prédéfinis seront marqués comme lus automatiquement à la fois.

Notes: Ce code n'est disponible que pour le compte de données par défaut.