Hvordan markeres ulæste e-mails, der er ældre end bestemte dage, som de læses automatisk i Outlook?

Hvis der er flere ulæste e-mails i din indbakke-mappe, kan du normalt anvende funktionen Marker alt som læst for at markere alle ulæste e-mails som læst e-mails manuelt. Men har du nogensinde forsøgt at markere ulæste e-mails, der er ældre end bestemte dage, som de læses automatisk i Outlook uden at indstille det manuelt hver gang?

Marker ulæste e-mails ældre end bestemte dage som læst automatisk med VBA-kode

Marker ulæste e-mails ældre end bestemte dage som læst automatisk med VBA-kode

For automatisk at markere alle ulæste e-mails, der er ældre end bestemte dage, som læst, kan følgende VBA-kode gøre dig en tjeneste:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. I Microsoft Visual Basic til applikationer dobbeltklik på vinduet Denne OutlookSession fra Project1 (VbaProject.OTM) rude for at åbne tilstanden og derefter kopiere og indsætte nedenstående kode i det tomme modul.

VBA-kode: Marker automatisk ulæste e-mails ældre end bestemte dage som læst:

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

Bemærk: I ovenstående kode kan du ændre antallet af dage i dette script: If DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Derefter til dit eget behov.

3. Gem og luk derefter dette kodevindue, siden da, hver gang du starter Outlook, vil alle ulæste e-mails, der er ældre end foruddefinerede dage, automatisk blive markeret som læst på én gang.

Bemærk: Denne kode er kun tilgængelig for standarddatakontoen.