2 načina da grupno označite sve Outlook e-poruke starije od određenog datuma kao pročitane

Nakon uvoza više starih e-poruka u Outlook i ove e-poruke su u statusu „nepročitane“, morate ih grupno označiti kao pročitane. Sada, u ovom članku, pokazat ćemo vam 2 brze metode.

Ponekad ćete možda morati grupno označiti više e-poruka kao pročitane. Na primjer, imate staru PST datoteku, koja sadrži mnogo starih e-poruka. Zatim uvozite e-poštu u svoju Outlook PST datoteku. Međutim, nakon uvoza, ove e-poruke se prema zadanim postavkama prikazuju kao "Nepročitane". U ovom trenutku, željet ćete grupno označiti ove mailove, starije od određenog datuma, kao pročitane. Ovdje ćemo pogledati ovaj zahtjev da podijelimo 2 zgodna i efikasna pristupa.

Metoda 1: Grupno označite pronađene e-poruke kao ručno pročitane

1. Za početak, otvorite mapu pošte.
2. Zatim kliknite na polje za pretragu.
3. Zatim, na traci „Pretraga“, kliknite na dugme „Sve pošte“ u grupi „Opseg“.
4. Nakon toga, u polje za pretragu unesite kriterijum “poslano: <=2018/5/21”. Promijenite “2018/5/12” na željeni datum.
5. Kada se pretraživanje završi, odaberite sve pronađene poruke pošte pomoću “Ctrl + A”.
6. Na kraju, kliknite desnim tasterom miša i odaberite opciju “Označi oglas kao pročitan”.

Metod 2: Grupno označite e-poruke starije od određenog datuma kao pročitane pomoću VBA

1. Za početak, pokrenite VBA editor u Outlooku prema “Kako pokrenuti VBA kod u vašem Outlooku".
2. Zatim kopirajte sljedeći kod u 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. Nakon toga, pritisnite tipku “F5” da pokrenete ovaj makro odmah.
4. Kasnije, u malom iskačućem dijaloškom okviru, unesite određeni datum i pritisnite “OK”.
5. Na kraju će svi emailovi stariji od određenog datuma biti označeni kao pročitani.

Vratite kompromitovanu Outlook datoteku

Outlook PST datoteke mogu biti oštećene nakon što se Outlook neočekivano sruši s vremena na vrijeme. Ako imate ažuriranu sigurnosnu kopiju, možete jednostavno oporaviti Outlook podataka sa sigurnosnom kopijom. U suprotnom, ne preostaje vam ništa drugo nego da potražite specijaliziranog stručnjaka ili pomoćnu službu, kao npr DataNumen Outlook Repair da popravite Outlook datoteku.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf fix i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com