Hoe markeer ik ongelezen e-mails ouder dan specifieke dagen als automatisch gelezen in Outlook?
Als er meerdere ongelezen e-mails in uw Inbox-map staan, kunt u normaal gesproken de functie Alles markeren als gelezen toepassen om alle ongelezen e-mails handmatig als gelezen e-mails te markeren. Maar heb je ooit geprobeerd ongelezen e-mails te markeren die ouder zijn dan specifieke dagen als automatisch gelezen in Outlook zonder deze elke keer handmatig in te stellen?
Markeer ongelezen e-mails ouder dan specifieke dagen als automatisch gelezen met VBA-code
Markeer ongelezen e-mails ouder dan specifieke dagen als automatisch gelezen met VBA-code
Om automatisch alle ongelezen e-mails ouder dan specifieke dagen als gelezen te markeren, kan de volgende VBA-code u een plezier doen:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie van het Project1 (VbaProject.OTM) om de modus te openen en kopieer en plak de onderstaande code in de lege module.
VBA-code: markeer automatisch ongelezen e-mails ouder dan specifieke dagen 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
Note: In de bovenstaande code kun je het aantal dagen binnen dit script wijzigen: If DateDiff("d", xItems(i).OntvangenTijd, Nu) >= 15 Dan naar je eigen behoefte.
3. Sla vervolgens dit codevenster op en sluit het, sindsdien worden elke keer dat u Outlook start, alle ongelezen e-mails die ouder zijn dan de vooraf gedefinieerde dagen automatisch in één keer gemarkeerd als gelezen.
Note: Deze code is alleen beschikbaar voor het standaard data-account.
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.