Outlook-ის ყველა ელფოსტის სერიული მონიშვნის 2 გზა კონკრეტულ თარიღზე უფრო ძველი, როგორც წაკითხული

რამდენიმე ძველი ელფოსტის Outlook-ში იმპორტის შემდეგ და ეს წერილები „წაუკითხავი“ სტატუსშია, უნდა გინდოდეთ მათი ჯგუფური მონიშვნა წაკითხულად. ახლა, ამ სტატიაში, ჩვენ გაჩვენებთ 2 სწრაფ მეთოდს.

ზოგჯერ შეიძლება დაგჭირდეთ რამდენიმე ელ.წერილის წაკითხულად მონიშვნა. მაგალითად, თქვენ გაქვთ ძველი PST ფაილი, რომელიც შეიცავს უამრავ ძველ ელ.წერილს. შემდეგ, თქვენ იმპორტირებთ ელ.წერილს თქვენს საკუთარ Outlook PST ფაილში. თუმცა, იმპორტის შემდეგ, ეს ელფოსტა ნაჩვენებია როგორც „წაუკითხავი“ ნაგულისხმევად. ამ დროს, თქვენ მოგინდებათ ჯგუფურად მონიშნოთ ეს წერილები, რომლებიც უფრო ძველია, ვიდრე კონკრეტული თარიღი, როგორც წაკითხული. აქ ჩვენ განვიხილავთ ამ მოთხოვნას 2 მოსახერხებელი და ეფექტური მიდგომის გასაზიარებლად.

მეთოდი 1: ჯგუფური მონიშვნა ნაპოვნი ელფოსტა, როგორც ხელით წაკითხული

1. დასაწყებად, გახსენით ფოსტის საქაღალდე.
2. შემდეგ დააწკაპუნეთ საძიებო ველში.
3. შემდეგი, "ძებნის" ლენტით, დააჭირეთ ღილაკს "ფოსტის ყველა ელემენტი" ჯგუფში "ფარგლები".
4. ამის შემდეგ საძიებო ველში შეიყვანეთ კრიტერიუმი „გაგზავნილი: <=2018/5/21“. შეცვალეთ „2018/5/12“ თქვენთვის სასურველ თარიღზე.
5. ძიების დასრულებისას აირჩიეთ ყველა ნაპოვნი ფოსტის ელემენტი "Ctrl + A" საშუალებით.
6. ბოლოს დააწკაპუნეთ მარჯვენა ღილაკით და აირჩიეთ „რეკლამის წაკითხვის მონიშვნა“.

მეთოდი 2: ჯგუფურად მონიშნეთ ელ.წერილები კონკრეტულ თარიღზე ძველი, როგორც წაკითხული VBA-ით

1. დასაწყისისთვის, გაუშვით VBA რედაქტორი Outlook-ში "როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
2. შემდეგ დააკოპირეთ შემდეგი კოდი მოდულში.

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. ამის შემდეგ დააჭირეთ "F5" ღილაკს ამ მაკროს ახლავე გასაშვებად.
4. მოგვიანებით, პატარა ამომხტარ დიალოგურ ფანჯარაში, შეიყვანეთ კონკრეტული თარიღი და დააჭირეთ "OK".
5. საბოლოოდ, კონკრეტულ თარიღზე ძველი ყველა ელ.წერილი მოინიშნება წაკითხულად.

აღადგინეთ კომპრომეტირებული Outlook ფაილი

Outlook PST ფაილები შეიძლება დაზიანდეს მას შემდეგ, რაც Outlook მოულოდნელად ავარია დროდადრო. თუ თქვენ გაქვთ განახლებული სარეზერვო საშუალება, შეგიძლიათ უბრალოდ Outlook-ის აღდგენა მონაცემები თქვენი სარეზერვო საშუალებით. წინააღმდეგ შემთხვევაში, თქვენ სხვა არჩევანი არ გაქვთ, გარდა სპეციალიზებული ექსპერტის ან კომუნალური დახმარების მოძიებაზე, როგორიცაა DataNumen Outlook Repair Outlook ფაილის შესაკეთებლად.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის mdf შესწორება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად