Kako grupno izbrisati sve potvrde o čitanju u vašem Outlooku

Kako biste potvrdili da su primatelji pročitali vašu e-poštu, možete zatražiti potvrdu o čitanju prilikom sastavljanja e-pošte. U toj situaciji, vaš poštanski sandučić može biti prepun takvih potvrda o čitanju. U ovom postu ćete naučiti kako ih trajno izbrisati.

Nakon čitanja članka "Kako grupno izbrisati sve potvrde o isporuci u vašem Outlooku“, možete razmisliti o pristupu skupnog brisanja svih potvrda čitanja. Zapravo, očita razlika između dviju vrsta potvrda je njihov predmet. Potvrda o dostavi sadrži "Dostavljeno" u predmetu, ali potvrda o čitanju umjesto toga sadrži "Pročitano". Stoga možete koristiti isti način za skupno brisanje svih potvrda čitanja. U nastavku ćemo vas detaljno upoznati s konkretnim koracima.

Skupno brisanje svih potvrda o čitanju

1. Na početku pokrenite Outlook.
2. Zatim idite na Outlook VBA editor putem “Alt + F11” prema “Kako pokrenuti VBA kod u vašem Outlooku".
3. Zatim u novom prozoru otvorite prazan modul i u njega stavite sljedeći kod.

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. Nakon toga kliknite na prvu potprogram.
5. Na kraju pritisnite tipku "F5".
6. Makronaredba će odjednom izbrisati sve potvrde čitanja iz vašeg Outlooka.
7. Kada završi, dobit ćete upit o rezultatu, kao na snimci zaslona u nastavku.
8. Trenutno možete provjeriti mape svoje pošte. Sve potvrde o čitanju su nestale.

Obranite Outlook podatke

Iako je Outlook datoteka doduše osjetljiva na oštećenje, možemo poduzeti radnje da je zaštitimo. Na primjer, trebali bismo držati Outlook datoteku u maloj veličini, zaštititi je od zlonamjernih čimbenika i redovito je sigurnosno kopirati. Posljednje, ali ne manje važno, bolje pripremite moćan vanjski alat za popravak PST-a, kao što je DataNumen Outlook Repair. Imat će veliki utjecaj na popravak pokvareni Outlook file.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql popravak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com