2 būdai, kaip grupiniu būdu pažymėti visus „Outlook“ laiškus, senesnius nei tam tikra data, kaip skaitytus

Importavus kelis senus el. laiškus į „Outlook“ ir šių el. laiškų būsena „neskaityti“, turite pažymėti juos kaip skaitytus. Dabar šiame straipsnyje parodysime jums 2 greitus metodus.

Kartais gali tekti kelis el. laiškus pažymėti kaip perskaitytus. Pavyzdžiui, turite seną PST failą, kuriame yra daug senų el. Tada importuojate el. laiškus į savo Outlook PST failą. Tačiau po importavimo šie el. laiškai pagal numatytuosius nustatymus rodomi kaip „Neskaityti“. Šiuo metu šiuos laiškus, senesnius nei tam tikra data, norėsite pažymėti kaip perskaitytus. Čia apžvelgsime šį reikalavimą pasidalinti 2 patogiais ir efektyviais metodais.

1 būdas: Pažymėkite rastus el. laiškus kaip perskaitytus rankiniu būdu

1. Norėdami pradėti, atidarykite pašto aplanką.
2. Tada spustelėkite paieškos laukelį.
3. Tada juostelėje „Paieška“ spustelėkite mygtuką „Visi pašto elementai“, esantį grupėje „Apimtis“.
4. Po to paieškos laukelyje įveskite kriterijus „išsiųsta: <=2018/5/21“. Pakeiskite „2018/5/12“ į norimą datą.
5. Kai paieška bus baigta, pasirinkite visus rastus laiškus naudodami „Ctrl + A“.
6. Galiausiai dešiniuoju pelės mygtuku spustelėkite ir pasirinkite parinktį „Pažymėti skelbimą kaip skaitytą“.

2 metodas: Pažymėkite senesnius nei konkrečios datos el. laiškus kaip perskaitytus naudojant VBA

1. Pirmiausia paleiskite VBA redaktorių programoje „Outlook“ pagal „Kaip paleisti VBA kodą „Outlook“.".
2. Tada nukopijuokite šį kodą į 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. Po to paspauskite klavišą F5, kad paleistumėte šią makrokomandą dabar.
4. Vėliau mažame iššokančiame dialogo lange įveskite konkrečią datą ir paspauskite „Gerai“.
5. Galiausiai visi el. laiškai, senesni už konkrečią datą, bus pažymėti kaip perskaityti.

Atkurti pažeistą Outlook failą

„Outlook“ PST failai gali būti sugadinti, kai „Outlook“ kartais netikėtai užstringa. Jei turite atnaujintą atsarginę kopiją, galite tiesiog atkurti Outlook duomenis su atsargine kopija. Priešingu atveju jūs neturite kito pasirinkimo, kaip kreiptis į specializuotą ekspertą ar komunalinę paslaugą, pvz DataNumen Outlook Repair Norėdami pataisyti „Outlook“ failą.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com