Wie kann man ungelesene E-Mails, die älter als eine bestimmte Anzahl von Tagen sind, automatisch in Outlook als gelesen markieren?
Wenn sich mehrere ungelesene E-Mails in Ihrem Posteingang-Ordner befinden, können Sie normalerweise die Funktion „Alle als gelesen markieren“ verwenden, um alle ungelesenen E-Mails manuell als gelesen zu markieren. Aber haben Sie schon einmal versucht, ungelesene E-Mails, die älter als eine bestimmte Anzahl von Tagen sind, automatisch in Outlook als gelesen zu markieren, ohne dies jedes Mal manuell einstellen zu müssen?
Markieren Sie ungelesene E-Mails, die älter als eine bestimmte Anzahl von Tagen sind, automatisch mit VBA-Code als gelesen.
Um alle ungelesenen E-Mails, die älter als eine bestimmte Anzahl von Tagen sind, automatisch als gelesen zu markieren, kann der folgende VBA-Code helfen:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Doppelklicken Sie im Fenster Microsoft Visual Basic for Applications auf ThisOutlookSession im Bereich Project1(VbaProject.OTM), um den Modus zu öffnen, und kopieren Sie dann den folgenden Code in das leere Modul.
VBA-Code: Automatisches Markieren von ungelesenen 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 innerhalb dieses Skripts ändern: If DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Then nach Ihren eigenen Bedürfnissen.
3. Speichern und schließen Sie dann dieses Codefenster. Von nun an werden jedes Mal, wenn Sie Outlook starten, alle ungelesenen E-Mails, die älter als die voreingestellte Anzahl von Tagen sind, automatisch sofort als gelesen markiert.
Hinweis: Dieser Code ist nur für das Standard-Datenkonto verfügbar.
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
