Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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 de 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

Opmerking:: In de bovenstaande code kunt u het aantal dagen binnen dit script wijzigen: Als DateDiff ("d", xItems (i) .ReceivedTime, Now)> = 15 Dan naar uw eigen nodig.

3. Sla vervolgens dit codevenster op en sluit het, want elke keer dat u Outlook start, worden alle ongelezen e-mails die ouder zijn dan de vooraf gedefinieerde dagen automatisch in één keer gemarkeerd als gelezen.

Opmerking:: Deze code is alleen beschikbaar voor het standaard data-account.


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ani · 10 months ago
    How do I modify the code to target a specific folder?