Müəyyən bir tarixdən köhnə bütün Outlook e-poçtlarını Oxunmuş kimi qeyd etməyin 2 yolu

Birdən çox köhnə e-poçtu Outlook-a idxal etdikdən və bu e-poçtlar “oxunmamış” statusunda olduqdan sonra onları oxunmuş kimi qeyd etmək istəməlisiniz. İndi bu yazıda sizə 2 sürətli üsul göstərəcəyik.

Bəzən birdən çox e-poçtu oxunmuş kimi qeyd etmək lazım gələ bilər. Məsələn, çoxlu köhnə e-poçtları ehtiva edən köhnə PST faylınız var. Sonra e-poçtları öz Outlook PST faylınıza idxal edirsiniz. Bununla belə, idxaldan sonra bu e-poçtlar defolt olaraq “Oxunmamış” kimi göstərilir. Bu zaman müəyyən bir tarixdən köhnə olan bu məktubları oxunmuş kimi qeyd etmək istəyə bilərsiniz. Burada 2 əlverişli və səmərəli yanaşmanı bölüşmək üçün bu tələbi nəzərdən keçirəcəyik.

Metod 1: E-poçtları Əllə oxunmuş kimi tapdı

1. Kimi üçüntart, poçt qovluğunu açın.
2. Sonra axtarış qutusuna klikləyin.
3. Sonra, "Axtarış" lentində "Əhatə dairəsi" qrupunda "Bütün Poçt Elementləri" düyməsini basın.
4. Bundan sonra axtarış qutusuna “göndərilmiş: <=2018/5/21” meyarlarını daxil edin. İstədiyiniz tarixə “2018/5/12” dəyişdirin.
5. Axtarış tamamlandıqda, "Ctrl + A" düymələri ilə tapılan bütün poçt elementlərini seçin.
6. Nəhayət, sağ klikləyin və “Reklamı Oxumuş kimi qeyd et” seçimini edin.

Metod 2: VBA ilə oxunmuş kimi xüsusi tarixdən köhnə e-poçtların toplu işarəsi

1. Başlamaq üçün Outlook-da “VBA redaktorunu işə salın.Outlook-da VBA kodunu necə işlətmək olar".
2. Sonra aşağıdakı kodu modula köçürün.

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. Daha sonra bu makronu indi işə salmaq üçün “F5” düyməsini sıxın.
4. Daha sonra, kiçik açılan informasiya qutusunda xüsusi tarixi daxil edin və "OK" düyməsini basın.
5. Nəhayət, müəyyən tarixdən köhnə bütün e-poçtlar oxunmuş kimi qeyd olunacaq.

Təhlükəli Outlook faylını bərpa edin

Outlook PST faylları Outlook gözlənilmədən indi və sonra qəzaya uğradıqdan sonra zədələnə bilər. Yenilənmiş ehtiyat nüsxəniz varsa, sadəcə edə bilərsiniz Outlook-u bərpa edin data ehtiyat nüsxənizlə. Əks halda, sizin kimi ixtisaslaşmış ekspert və ya kommunal xidmət axtarmaqdan başqa seçiminiz yoxdur DataNumen Outlook Repair Outlook faylını təmir etmək üçün.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf düzəliş və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com