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
- For somtart, åpne en e-postmappe.
- Klikk deretter i søkeboksen.
- Deretter, i "Søk"-båndet, klikker du på "Alle e-postelementer"-knappen i "Omfang"-gruppen.
- Etter det, skriv inn kriteriene "sendt: <=2018/5/21" i søkeboksen. Endre "2018/5/12" til ønsket dato.
- Når søket er fullført, velg alle postene som ble funnet via "Ctrl + A".
- 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
- Til å begynne med, start VBA editor i Outlook i henhold til "Hvordan kjøre VBA-kode i Outlook".
- 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("Skriv inn den spesifikke datoen:", , "2018/5/11") For hver objStore I Outlook.Application.Session.Stores Sett objOutlookFile = objStore.GetRootFolder for hver objFolder I objOutlookFile.Folders If objFolder.DefaultItemType = olMailItem Deretter kaller ProcessFolders(objFolder) End If Next obj.(B Sub ProcessFold) objItem As Object Dim objMail As Outlook.MailItem Dim objSubmappe As Outlook.Folder For Every objItem In objCurFolder.Items If TypeOf objItem Is MailItem Then Set objMail = objItem If objMail.SentOn <= dDate Then If objMail.UnRead.UnRead = TrueRead = False objMail.Save End If End If End If Next If objCurFolder.Folders.Count > 0 Then For Every objSubfolder In objCurFolder.Folders Call ProcessFolders(objSubfolder) Next End If End Sub
- Etterpå, trykk "F5"-tasten for å kjøre denne makroen akkurat nå.
- Senere, i den lille popup-dialogboksen, skriv inn den spesifikke datoen og trykk "OK".
- 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