2 viisi, kuidas märkida kõik Outlooki meilid, mis on teatud kuupäevast vanemad, loetuks

Pärast mitme vana meili importimist Outlooki ja need meilid on olekus "lugemata", peate need loetuks märkima. Nüüd, selles artiklis, näitame teile kahte kiiret meetodit.

Mõnikord peate võib-olla mitu meili loetuks märkima. Näiteks on teil vana PST-fail, mis sisaldab palju vanu e-kirju. Seejärel impordite meilid oma Outlooki PST-faili. Kuid pärast importimist kuvatakse need meilid vaikimisi kui "Lugemata". Praegu soovite need kindlast kuupäevast vanemad kirjad loetuks lugeda. Siin vaatleme seda nõuet jagada kahte käepärast ja tõhusat lähenemisviisi.

1. meetod: märkige leitud e-kirjad käsitsi loetuks

1. Alustuseks avage meilikaust.
2. Seejärel klõpsake otsingukasti.
3. Järgmisena klõpsake lindil "Otsi" nuppu "Kõik meiliüksused" rühmas "Uurimisala".
4. Pärast seda sisestage otsingukasti kriteeriumid "saadetud: <=2018/5/21". Muutke "2018/5/12" soovitud kuupäevaks.
5. Kui otsimine on lõppenud, valige kõik leitud kirjad, kasutades "Ctrl + A".
6. Lõpuks paremklõpsake ja valige suvand "Märgi reklaam loetuks".

2. meetod: VBA abil märkige kindlast kuupäevast vanemad meilid loetuks

1. Alustuseks käivitage Outlookis VBA redaktor vastavalt "Kuidas Outlookis VBA-koodi käivitada".
2. Seejärel kopeerige järgmine kood moodulisse.

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. Seejärel vajutage selle makro käivitamiseks kohe klahvi "F5".
4. Hiljem sisestage väikesesse hüpikaknasse konkreetne kuupäev ja klõpsake nuppu "OK".
5. Lõpuks märgitakse kõik konkreetsest kuupäevast vanemad meilid loetuks.

Ohustatud Outlooki faili taastamine

Outlooki PST-failid võivad olla kahjustatud pärast seda, kui Outlook aeg-ajalt ootamatult kokku jookseb. Kui teil on värskendatud varukoopia, saate lihtsalt Outlooki taastamine andmed koos varukoopiaga. Vastasel juhul ei jää teil muud üle, kui otsida spetsialiseerunud eksperti või utiliiti, näiteks DataNumen Outlook Repair Outlooki faili parandamiseks.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf parandus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom