2 måder at batch-markere alle Outlook-e-mails ældre end en bestemt dato som læst

Efter at have importeret flere gamle e-mails til Outlook, og disse e-mails er i "ulæst" -status, skal du markere dem som læst. Nu, i denne artikel, viser vi dig 2 hurtige metoder.

Til tider skal du muligvis batch-markere flere e-mails som læst. For eksempel har du en gammel PST-fil, der indeholder en masse gamle e-mails. Derefter importerer du e-mails til din egen Outlook PST-fil. Efter import vises disse e-mails som standard som "ulæste". På dette tidspunkt vil du markere disse mails ældre end en bestemt dato som læst. Her vil vi se på dette krav om at dele 2 praktiske og effektive tilgange.

Metode 1: Batchmark fundet e-mails som læst manuelt

1. Til at starte med skal du åbne en postmappe.
2. Klik derefter i søgefeltet.
3. Klik derefter på knappen "Alle postvarer" i båndet "Søg" i gruppen "Omfang".
4. Indtast derefter kriterierne “sendt: <= 2018/5/21” i søgefeltet. Skift “2018/5/12” til den ønskede dato.
5. Når søgningen er færdig, skal du vælge alle de fundne postvarer via “Ctrl + A”.
6. Til sidst skal du højreklikke og vælge "Marker annonce som læst".

Metode 2: Batchmark e-mails ældre end specifik dato som læst med VBA

1. Til at begynde med skal du starte VBA-editor i Outlook i henhold til “Sådan køres VBA-kode i din Outlook".
2. Kopier derefter følgende kode til et modul.

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. Tryk derefter på “F5” -tasten for at køre denne makro lige nu.
4. Senere, i den lille popup-dialogboks, skal du indtaste den specifikke dato og trykke på "OK".
5. Til sidst markeres alle e-mails, der er ældre end den specifikke dato, som læst.

Gendan kompromitteret Outlook-fil

Outlook PST-filer kan blive beskadiget, efter at Outlook går ned uventet nu og da. Hvis du har en opdateret sikkerhedskopi, kan du bare gendanne Outlook data med din sikkerhedskopi. Ellers har du intet andet valg end at søge en specialiseret ekspert eller hjælpeprogram, f.eks DataNumen Outlook Repair at reparere Outlook-fil.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder mdf-rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com