როგორ წავშალოთ ყველა წაკითხული ქვითრის ჯგუფური წაშლა თქვენს Outlook-ში

იმის დასადასტურებლად, რომ მიმღებებმა წაიკითხეს თქვენი ელ.წერილი, შეგიძლიათ მოითხოვოთ წაკითხვის დადასტურება ელ.ფოსტის წერისას. ამ შემთხვევაში, თქვენი საფოსტო ყუთი შეიძლება სავსე იყოს ასეთი წაკითხვის დადასტურებებით. ახლა, ეს პოსტი გასწავლით, თუ როგორ წაშალოთ ისინი ჯგუფურად და სამუდამოდ.

სტატიის წაკითხვის შემდეგ "როგორ წავშალოთ მიწოდების ყველა ქვითარი თქვენს Outlook-ში“, თქვენ შეიძლება იფიქროთ ყველა წაკითხული ქვითრის ნაყარი წაშლის მიდგომაზე. სინამდვილეში, აშკარა განსხვავება ამ ორი სახის ქვითრებს შორის არის მათი საგნები. მიწოდების ქვითარი შეიცავს თემაში "მიწოდებულია", მაგრამ წაკითხვის ქვითარი შეიცავს "წაკითხვას". ამიტომ, თქვენ შეგიძლიათ გამოიყენოთ იგივე გზა ყველა წაკითხული ქვითრის ჯგუფური წასაშლელად. შემდგომში დეტალურად გასწავლით კონკრეტულ ნაბიჯებს.

ჯგუფური წაშლა ყველა წაკითხული ქვითრის

1. დასაწყისისთვის, ჩართეთ თქვენი Outlook.
2. შემდეგ გადადით Outlook VBA რედაქტორში "Alt + F11"-ის საშუალებით "როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
3. შემდეგ, ახალ ფანჯარაში, გახსენით ცარიელი მოდული და ჩადეთ მასში შემდეგი კოდი.

Dim objOutlookFile As Outlook.Folder

Sub BatchDeleteAllReadReceipts()
    Dim objStore As Outlook.Store
    Dim objFolder As Outlook.Folder
    Dim lTotalCount As Long
 
    lTotalCount = 0
   'Process all Outlook files
    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, lTotalCount)
            End If
        Next
    Next
 
    'Prompt you of the results
    MsgBox lTotalCount & " read receipts are deleted!", vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder, lCount As Long)
    Dim i As Long
    Dim objDeliveryReceipt As Outlook.ReportItem
    Dim objSubfolder As Outlook.Folder
    Dim objDeletedItems As Outlook.Items
    Dim objItem As Object
 
    For i = objCurrentFolder.Items.Count To 1 Step -1
        'Find read receipts
        If (TypeOf objCurrentFolder.Items(i) Is ReportItem) And (Left(objCurrentFolder.Items(i).Subject, 5) = "Read:") Then
           Set objDeliveryReceipt = objCurrentFolder.Items.Item(i)
           objDeliveryReceipt.Delete
 
           lCount = lCount + 1
 
           'Permanently delete them
           Set objDeletedItems = objOutlookFile.Folders("Deleted Items").Items
           For Each objItem In objDeletedItems
               If (TypeOf objItem Is ReportItem) And (Left(objItem.Subject, 5) = "Read:") Then
                  objItem.Delete
               End If
           Next
         End If
    Next
 
    'Loop subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder, lCount)
       Next
    End If
End Sub

4. ამის შემდეგ დააჭირეთ პირველ ქვეპროგრამას.
5. ბოლოს დააჭირეთ ღილაკს "F5".
6. ერთდროულად, მაკრო იმუშავებს წაშლის ყველა წაკითხული ქვითრის თქვენი Outlook-დან.
7. როდესაც ის დასრულდება, თქვენ მიიღებთ შეტყობინებას შედეგის შესახებ, როგორც ქვემოთ მოცემული ეკრანის სურათი.
8. ამჟამად, შეგიძლიათ შეამოწმოთ თქვენი ფოსტის საქაღალდეები. წაკითხვის ყველა ქვითარი გაქრა.

დაიცავი Outlook მონაცემები

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

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

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