Ma'lum bir sanadan eski barcha Outlook elektron pochta xabarlarini o'qilgan deb belgilashning 2 usuli

Outlook-ga bir nechta eski elektron pochta xabarlarini import qilgandan so'ng va bu xatlar "o'qilmagan" holatida bo'lsa, ularni o'qilgan deb belgilashni xohlashingiz kerak. Endi, ushbu maqolada biz sizga 2 ta tezkor usulni ko'rsatamiz.

Ba'zan bir nechta elektron pochta xabarlarini o'qilgan deb belgilashingiz kerak bo'lishi mumkin. Misol uchun, sizda ko'plab eski elektron pochta xabarlarini o'z ichiga olgan eski PST faylingiz bor. Keyin, siz elektron pochta xabarlarini o'zingizning Outlook PST faylingizga import qilasiz. Biroq, import qilingandan so'ng, bu elektron pochta xabarlari sukut bo'yicha "O'qilmagan" sifatida ko'rsatiladi. Ayni paytda siz ma'lum bir sanadan eski bo'lgan ushbu xatlarni o'qilgan deb to'liq belgilashni xohlaysiz. Bu erda biz 2 ta qulay va samarali yondashuvni baham ko'rish uchun ushbu talabni ko'rib chiqamiz.

1-usul: Elektron pochta xabarlarini qo'lda o'qilgan deb topdi

1. Boshlash uchun pochta papkasini oching.
2. Keyin, qidiruv maydoniga bosing.
3. Keyin, "Qidiruv" lentasida "Ko'lam" guruhidagi "Barcha pochta xabarlari" tugmasini bosing.
4. Shundan so'ng, qidiruv maydoniga "yuborilgan: <=2018/5/21" mezonini kiriting. "2018/5/12" ni xohlagan sanaga o'zgartiring.
5. Qidiruv tugallangandan so'ng, "Ctrl + A" tugmalari yordamida barcha topilgan pochta xabarlarini tanlang.
6. Nihoyat, o'ng tugmasini bosing va "Reklamani o'qilgan deb belgilash" opsiyasini tanlang.

2-usul: VBA bilan o'qilgan sanadan eskiroq bo'lgan to'plamli elektron pochta xabarlari

1. Boshlash uchun Outlook-da "VBA muharriri" ga muvofiq ishga tushiring.Outlook-da VBA kodini qanday ishlatish kerak".
2. Keyin quyidagi kodni modulga nusxalang.

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. Shundan so'ng, ushbu makrosni hozir ishga tushirish uchun "F5" tugmasini bosing.
4. Keyinchalik, kichik qalqib chiquvchi dialog oynasida aniq sanani kiriting va "OK" tugmasini bosing.
5. Oxir-oqibat, ma'lum bir sanadan eski barcha elektron pochta xabarlari o'qilgan deb belgilanadi.

Buzilgan Outlook faylini tiklash

Outlook vaqti-vaqti bilan kutilmaganda ishdan chiqqandan keyin Outlook PST fayllari shikastlangan bo'lishi mumkin. Agar sizda yangilangan zaxirangiz bo'lsa, shunchaki mumkin Outlook-ni tiklash zaxirangiz bilan ma'lumotlar. Aks holda, ixtisoslashgan mutaxassis yoki yordamchi dasturni izlashdan boshqa tanlovingiz yo'q, masalan DataNumen Outlook Repair Outlook faylini tuzatish uchun.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com