Cum să ștergeți în lot toate chitanțele citite din Outlook

Pentru a confirma că destinatarii au citit e-mailul dvs., puteți solicita confirmarea de citire atunci când îl scrieți. În această situație, căsuța dvs. poștală poate fi plină de astfel de confirmări de citire. Acum, această postare vă va învăța cum să le ștergeți definitiv în bloc.

După ce am citit articolul „Cum să ștergeți în loturi toate chitanțele de livrare din Outlook„, s-ar putea să vă gândiți la abordarea de a șterge în bloc toate confirmările citite. De fapt, diferența vădită dintre cele două tipuri de chitanțe este subiectul acestora. Bonul de livrare conține „Livrat” în subiect, dar chitanța de citire conține în schimb „Citește”. Prin urmare, puteți folosi același mod pentru a șterge în serie toate confirmările de citire. În cele ce urmează, vă vom învăța pașii concreti în detaliu.

Ștergeți în loturi toate chitanțele citite

1. Pentru început, pornește Outlook.
2. Apoi, accesați editorul Outlook VBA prin „Alt + F11” conform „Cum să rulați codul VBA în Outlook".
3. Apoi, în noua fereastră, deschideți un modul gol și introduceți următorul cod în el.

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. După aceea, faceți clic pe prima subrutină.
5. În cele din urmă, apăsați butonul „F5”.
6. Deodată, macro-ul va funcționa pentru a șterge toate confirmările de citire din Outlook.
7. Când se termină, veți primi o solicitare despre rezultat, cum ar fi captura de ecran de mai jos.
8. În prezent, vă puteți verifica folderele de e-mail. Toate chitanțele citite au dispărut.

Apărați datele Outlook

Deși fișierul Outlook este susceptibil la corupție, putem lua măsuri pentru a-l proteja. De exemplu, ar trebui să păstrăm fișierul Outlook în dimensiuni reduse, să-l protejăm de factorii rău intenționați și să-i facem copii de rezervă în mod regulat. Nu în ultimul rând, ar fi bine să pregătiți un instrument extern puternic de reparare a PST, cum ar fi DataNumen Outlook Repair. Va avea un impact mare asupra reparației corupt Outlook fișier.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparație sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com