Kā partijā izdzēst visas lasītās kvītis programmā Outlook

Lai pārliecinātos, ka adresāti ir izlasījuši jūsu e-pastu, rakstot e-pastu, varat pieprasīt izlasīšanas apstiprinājumu. Šādā gadījumā jūsu pastkastīte var būt pārpildīta ar šādiem izlasīšanas apstiprinājumiem. Šajā ierakstā ir paskaidrots, kā tos neatgriezeniski izdzēst grupās.

Pēc raksta “Kā partijā izdzēst visus piegādes kvītis programmā Outlook“, Jūs varat domāt par pieeju visu lasīšanas kvīšu lielapjoma dzēšanai. Faktiski acīmredzamā atšķirība starp abiem kvīšu veidiem ir viņu priekšmets. Piegādes kvīts priekšmetā ir “Piegādāts”, bet lasīšanas kvītī tā vietā ir “Lasīt”. Tādēļ jūs varat izmantot to pašu veidu, kā partijas dzēst visas lasītās kvītis. Turpmāk mēs jums detalizēti iemācīsim konkrētus soļus.

Sērija Dzēst visas lasītās kvītis

1. Sākumā sāciet savu Outlook.
2. Pēc tam dodieties uz Outlook VBA redaktoru, izmantojot “Alt + F11” saskaņā ar “Kā palaist VBA kodu programmā Outlook".
3. Pēc tam jaunajā logā atveriet tukšu moduli un ievietojiet tajā šādu kodu.

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. Pēc tam noklikšķiniet uz pirmās apakšprogrammas.
5. Visbeidzot, nospiediet taustiņa “F5” taustiņu.
6. Uzreiz makro darbosies, lai izdzēstu visas lasītās kvītis no jūsu Outlook.
7. Kad tas būs pabeigts, jūs saņemsit uzvedni par rezultātu, piemēram, zemāk redzamo ekrānuzņēmumu.
8. Pašlaik jūs varat pārbaudīt savas pasta mapes. Visas lasītās kvītis ir pazudušas.

Aizstāvēt Outlook datus

Lai gan Outlook fails, protams, ir pakļauts korupcijai, mēs varam rīkoties, lai to aizsargātu. Piemēram, mums vajadzētu saglabāt Outlook failu mazā izmērā, pasargāt to no ļaunprātīgiem faktoriem un regulāri dublēt to. Visbeidzot, bet ne mazāk svarīgi, labāk sagatavot spēcīgu ārēju PST labošanas rīku, piemēram, DataNumen Outlook Repair. Tas ļoti ietekmēs remontu korumpēta Outlook fails.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql remonts un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar