2 manieren om batchgewijs alle Outlook-e-mails ouder dan een specifieke datum te markeren als gelezen

Nadat u meerdere oude e-mails in Outlook hebt geïmporteerd en deze e-mails hebben de status "ongelezen", moet u ze batchgewijs als gelezen willen markeren. In dit artikel laten we u nu twee snelle methoden zien.

Soms moet u mogelijk meerdere e-mails als gelezen markeren. U hebt bijvoorbeeld een oud PST-bestand, dat veel oude e-mails bevat. Vervolgens importeert u de e-mails in uw eigen Outlook PST-bestand. Na het importeren worden deze e-mails echter standaard als "Ongelezen" weergegeven. Op dit moment wilt u deze e-mails, ouder dan een specifieke datum, als gelezen markeren. Hier zullen we naar deze vereiste kijken om 2 handige en efficiënte benaderingen te delen.

Methode 1: Batch Markeer gevonden e-mails als handmatig gelezen

1. Open om te beginnen een e-mailmap.
2. Klik vervolgens in het zoekvak.
3. Klik vervolgens in het lint "Zoeken" op de knop "Alle poststukken" in de groep "Bereik".
4. Voer daarna het criterium "verzonden: <= 2018/5/21" in het zoekvak in. Verander "2018/5/12" naar de gewenste datum.
5. Als het zoeken is voltooid, selecteert u alle gevonden poststukken via “Ctrl + A”.
6. Klik ten slotte met de rechtermuisknop en kies de optie "Advertentie markeren als gelezen".

Methode 2: Batchmarkering van e-mails ouder dan een specifieke datum zoals gelezen met VBA

1. Start om te beginnen de VBA-editor in Outlook volgens “Hoe u VBA-code in uw Outlook uitvoert'.
2. Kopieer vervolgens de volgende code naar een module.

Dim dDate As Date

Sub MarkEmailsOlderThanSpecificDateRead()
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    dDate = InputBox("Enter the specific date:", , "2018/5/11")
 
    For Each objStore In Outlook.Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
 
        For Each objFolder In objOutlookFile.Folders
            If objFolder.DefaultItemType = olMailItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objSubfolder As Outlook.Folder
 
    For Each objItem In objCurFolder.Items
        If TypeOf objItem Is MailItem Then
           Set objMail = objItem
 
           If objMail.SentOn <= dDate Then
              If objMail.UnRead = True Then
                 objMail.UnRead = False
                 objMail.Save
              End If
           End If
        End If
    Next
 
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

3. Druk daarna op de "F5" -toets om deze macro nu uit te voeren.
4. Voer later in het kleine pop-upvenster de specifieke datum in en klik op "OK".
5. Uiteindelijk worden alle e-mails die ouder zijn dan de specifieke datum gemarkeerd als gelezen.

Herstel gecompromitteerd Outlook-bestand

Outlook PST-bestanden kunnen beschadigd raken nadat Outlook af en toe onverwacht crasht. Als u een bijgewerkte back-up heeft, kunt u dat gewoon doen Outlook herstellen gegevens met uw back-up. Anders hebt u geen andere keuze dan een gespecialiseerde expert of hulpprogramma te zoeken, zoals DataNumen Outlook Repair om Outlook-bestand te repareren.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder mdf-oplossing en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com