Hoe markeert u ongelezen e-mails die ouder zijn dan een bepaald aantal dagen automatisch als gelezen in Outlook?

Als er meerdere ongelezen e-mails in uw Postvak IN staan, kunt u normaal gesproken de functie ‘Alles markeren als gelezen’ gebruiken om ze handmatig als gelezen te markeren. Maar hebt u ooit geprobeerd ongelezen e-mails die ouder zijn dan een bepaald aantal dagen automatisch als gelezen te markeren in Outlook – zonder dit telkens opnieuw handmatig in te stellen?

Markeer ongelezen e-mails die ouder zijn dan een bepaald aantal dagen automatisch als gelezen met VBA-code

---

Markeer ongelezen e-mails die ouder zijn dan een bepaald aantal dagen automatisch als gelezen met VBA-code

Om alle ongelezen e-mails die ouder zijn dan een bepaald aantal dagen automatisch als gelezen te markeren, kan de volgende VBA-code u helpen:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik in het Microsoft Visual Basic for Applications-venster op ThisOutlookSession in het deelvenster Project1 (VbaProject.OTM) om de module te openen en plak vervolgens de onderstaande code in de lege module.

VBA-code: Markeer ongelezen e-mails die ouder zijn dan een bepaald aantal dagen automatisch als gelezen:

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

Opmerking: In de bovenstaande code kunt u het aantal dagen aanpassen in dit gedeelte van het script:If DateDiff(„d", xItems(i).ReceivedTime, Now) >= 15Then naar het gewenste aantal.

3. Sluit

Opmerking: Deze code is uitsluitend beschikbaar voor het standaard gegevensaccount.