Wie können ungelesene E-Mails, die älter als eine bestimmte Anzahl von Tagen sind, automatisch als gelesen markiert werden?

Wenn sich mehrere ungelesene E-Mails in Ihrem Posteingangsordner befinden, können Sie normalerweise die Funktion „Alle als gelesen markieren“ nutzen, um sie manuell als gelesen zu kennzeichnen. Haben Sie aber schon einmal versucht, ungelesene E-Mails, die älter als eine bestimmte Anzahl von Tagen sind, automatisch als gelesen zu markieren – ohne jedes Mal manuell eingreifen zu müssen?

Ungelesene E-Mails, die älter als eine bestimmte Anzahl von Tagen sind, automatisch als gelesen markieren mit VBA-Code

---

Ungelesene E-Mails, die älter als eine bestimmte Anzahl von Tagen sind, automatisch als gelesen markieren mit VBA-Code

Um alle ungelesenen E-Mails, die älter als eine bestimmte Anzahl von Tagen sind, automatisch als gelesen zu markieren, kann Ihnen der folgende VBA-Code behilflich sein:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Doppelklicken Sie im Microsoft Visual Basic for Applications-Fenster auf ThisOutlookSession im Bereich Project1 (VbaProject.OTM), um das Modul zu öffnen, und fügen Sie anschließend den folgenden Code in das leere Modul ein.

VBA-Code: Automatisches Markieren ungelesener E-Mails, die älter als eine bestimmte Anzahl von Tagen sind, als gelesen:

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

Hinweis: Im obigen Code können Sie die Anzahl der Tage direkt im Skript anpassen – passen Sie dazu folgende Zeile entsprechend Ihren Anforderungen an:If DateDiff(„d", xItems(i).ReceivedTime, Now) >= 15Then

3. Schließen Sie dann das Code-Fenster und speichern Sie es. Ab diesem Zeitpunkt werden beim Start von Outlook automatisch alle ungelesenen E-Mails, die älter als die vordefinierte Anzahl von Tagen sind, sofort als gelesen markiert.

HinweisDieser Code ist ausschließlich für das Standard-Datenkonto verfügbar.