2 načina za skupinsko označevanje vseh e-poštnih sporočil Outlook, starejših od določenega datuma, kot prebranih

Po uvozu več starih e-poštnih sporočil v Outlook in ta e-poštna sporočila so v stanju »neprebranega«, jih morate paketno označiti kot prebrana. Zdaj vam bomo v tem članku prikazali 2 hitri metodi.

Včasih boste morda morali več e-poštnih sporočil označiti kot prebrana. Na primer, imate staro datoteko PST, ki vsebuje veliko starih e-poštnih sporočil. Nato e-poštna sporočila uvozite v svojo datoteko Outlook PST. Po uvozu pa so ta e-poštna sporočila privzeto prikazana kot »neprebrana«. Trenutno boste želeli paketno pošto, starejšo od določenega datuma, paketno označiti kot prebrano. Tu bomo preučili to zahtevo, da si delimo dva priročna in učinkovita pristopa.

1. način: Oznaka serije je našla e-poštna sporočila kot ročno prebrana

1. Za začetek odprite mapo s pošto.
2. Nato kliknite v iskalno polje.
3. Nato na traku »Išči« kliknite gumb »Vsi poštni predmeti« v skupini »Obseg«.
4. Po tem v iskalno polje vnesite merila »poslano: <= 2018/5/21«. Spremenite »2018/5/12« na želeni datum.
5. Ko je iskanje končano, izberite vse najdene poštne elemente s pomočjo "Ctrl + A".
6. Na koncu kliknite z desno miškino tipko in izberite možnost »Označi oglas kot prebran«.

2. način: E-poštna sporočila z oznako serije, starejša od določenega datuma, kot prebrana z VBA

1. Za začetek v programu Outlook zaženite urejevalnik VBA v skladu z »Kako zagnati kodo VBA v Outlooku".
2. Nato v modul kopirajte naslednjo kodo.

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. Nato pritisnite tipko “F5”, da zaženete ta makro zdaj.
4. Kasneje v majhno pojavno okno vnesite določen datum in pritisnite »V redu«.
5. Sčasoma bodo vsa e-poštna sporočila, starejša od določenega datuma, označena kot prebrana.

Obnovitev ogrožene datoteke Outlook

Datoteke Outlook PST se lahko poškodujejo, ko se Outlook tu in tam nepričakovano zruši. Če imate posodobljeno varnostno kopijo, lahko samo obnoviti Outlook podatkov z varnostno kopijo. V nasprotnem primeru vam ne preostane drugega, kot da poiščete specializiranega strokovnjaka ali pripomoček, kot je npr DataNumen Outlook Repair za popravilo datoteke Outlook.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z mdf popravek in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com