2 måter å batchmerke alle Outlook-e-poster eldre enn en bestemt dato som lest

Etter å ha importert flere gamle e-poster til Outlook og disse e-postene er i «ulest»-status, må du batchmerke dem som lest. Nå, i denne artikkelen, vil vi vise deg 2 raske metoder.

Noen ganger må du kanskje batchmerke flere e-poster som lest. For eksempel har du en gammel PST-fil, som inneholder mange gamle e-poster. Deretter importerer du e-postene til din egen Outlook PST-fil. Etter import vises imidlertid disse e-postene som "ulest" som standard. På dette tidspunktet bør du batchmerke disse e-postene, eldre enn en bestemt dato, som lest. Her vil vi se på dette kravet for å dele 2 nyttige og effektive tilnærminger.

Metode 1: Batchmerk funnet e-poster som lest manuelt

1. For somtart, åpne en e-postmappe.
2. Klikk deretter i søkeboksen.
3. Deretter, i "Søk"-båndet, klikker du på "Alle e-postelementer"-knappen i "Omfang"-gruppen.
4. Etter det, skriv inn kriteriene "sendt: <=2018/5/21" i søkeboksen. Endre "2018/5/12" til ønsket dato.
5. Når søket er fullført, velg alle postene som ble funnet via "Ctrl + A".
6. Til slutt høyreklikker du og velger alternativet "Merk annonse som lest".

Metode 2: Batchmerk e-poster eldre enn spesifikk dato som lest med VBA

1. Til å begynne med, start VBA editor i Outlook i henhold til "Hvordan kjøre VBA-kode i Outlook".
2. Kopier deretter følgende kode inn i en 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. Etterpå, trykk "F5"-tasten for å kjøre denne makroen akkurat nå.
4. Senere, i den lille popup-dialogboksen, skriv inn den spesifikke datoen og trykk "OK".
5. Til slutt vil alle e-poster som er eldre enn den spesifikke datoen bli merket som lest.

Gjenopprett kompromittert Outlook-fil

Outlook PST-filer kan bli skadet etter at Outlook krasjer uventet nå og da. Hvis du har en oppdatert sikkerhetskopi, kan du bare gjenopprette Outlook data med sikkerhetskopien. Ellers har du ikke noe annet valg enn å søke en spesialisert ekspert eller verktøy, som f.eks DataNumen Outlook Repair for å reparere Outlook-filen.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert mdf-fiks og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med