2 mënyra për të shënuar të gjitha emailet e Outlook më të vjetra se një datë specifike si të lexuara

Pasi të keni importuar shumë emaile të vjetra në Outlook dhe këto emaile janë në statusin "të palexuar", duhet t'i shënoni ato si të lexuara. Tani, në këtë artikull, ne do t'ju tregojmë 2 metoda të shpejta.

Ndonjëherë, mund t'ju duhet të shënoni në grup email të shumtë si të lexuar. Për shembull, ju keni një skedar të vjetër PST, i cili përmban shumë email të vjetër. Pastaj, ju importoni emailet në skedarin tuaj të Outlook PST. Megjithatë, pas importimit, këto emaile shfaqen si "të palexuara" si parazgjedhje. Në këtë kohë, ju do të dëshironi t'i shënoni këto poste, më të vjetra se një datë specifike, si të lexuara. Këtu do të shikojmë këtë kërkesë për të ndarë 2 qasje të dobishme dhe efikase.

Metoda 1: Batch Mark Email-et e gjetura si të lexuara me dorë

1. Për të filluar, hapni një dosje postare.
2. Pastaj, klikoni në kutinë e kërkimit.
3. Më pas, në shiritin "Kërko", kliko butonin "Të gjitha artikujt e postës" në grupin "Fushaveprimi".
4. Pas kësaj, futni kriteret "dërguar: <=2018/5/21" në kutinë e kërkimit. Ndrysho “2018/5/12” në datën e dëshiruar.
5. Kur kërkimi të përfundojë, zgjidhni të gjithë artikujt e gjetur të postës përmes "Ctrl + A".
6. Në fund, klikoni me të djathtën dhe zgjidhni opsionin "Shëno reklamën të lexuar".

Metoda 2: Batch Mark email-et më të vjetra se data specifike si të lexuara me VBA

1. Për të filluar, hapni redaktorin VBA në Outlook sipas "Si të ekzekutoni kodin VBA në Outlook tuaj".
2. Pastaj, kopjoni kodin e mëposhtëm në një 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. Më pas, shtypni tastin "F5" për të ekzekutuar këtë makro tani.
4. Më vonë, në kutinë e vogël të dialogut që shfaqet, futni datën specifike dhe shtypni "OK".
5. Përfundimisht, të gjitha emailet më të vjetra se data specifike do të shënohen si të lexuara.

Rivendos skedarin e komprometuar të Outlook

Skedarët PST të Outlook mund të dëmtohen pasi Outlook rrëzohet papritur herë pas here. Nëse keni një kopje rezervë të përditësuar, thjesht mundeni rikuperoni Outlook të dhënat me kopjen rezervë. Përndryshe, ju nuk keni zgjidhje tjetër veçse të kërkoni një ekspert ose shërbim të specializuar, si p.sh DataNumen Outlook Repair për të riparuar skedarin Outlook.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rregullim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com