Kuinka poistaa kaikki lukukuitit erässä Outlookistasi

Voit pyytää lukukuittausta sähköpostin kirjoittamisen yhteydessä varmistaaksesi, että vastaanottajat ovat lukeneet sähköpostisi. Tässä tilanteessa postilaatikkosi saattaa olla täynnä tällaisia ​​lukukuittauksia. Tässä artikkelissa kerrotaan, kuinka voit poistaa ne pysyvästi erissä.

Luettuani artikkelin “Kuinka poistaa kaikki toimituskuitit erässä Outlookistasi", voit harkita kaikkien lukukuittausten joukkopoistamista. Itse asiassa ilmeinen ero näiden kahden kuitin välillä on niiden aiheet. Toimituskuittauksen aiheessa on "Toimitettu", mutta lukukuitti sisältää sen sijaan "Luettu". Siksi voit käyttää samaa tapaa kaikkien lukukuittausten eräpoistoon. Seuraavassa opetamme sinulle yksityiskohtaisesti konkreettiset vaiheet.

Erä Poista kaikki lukukuitit

1. Aluksi, käynnistä Outlook.
2. Siirry sitten Outlook VBA -editoriin painamalla "Alt + F11" ""Kuinka suorittaa VBA-koodi Outlookissa".
3. Avaa seuraavaksi uudessa ikkunassa tyhjä moduuli ja laita siihen seuraava koodi.

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. Sen jälkeen napsauta ensimmäistä alirutiinia.
5. Paina lopuksi ”F5” -näppäintä.
6. Makro poistaa heti kaikki lukukuittaukset Outlookistasi.
7. Kun se on valmis, saat kehotteen tuloksesta, kuten alla oleva kuvakaappaus.
8. Tällä hetkellä voit tarkistaa sähköpostikansiosi. Kaikki lukukuitit ovat kadonneet.

Puolusta Outlook-tietoja

Vaikka Outlook-tiedosto on tosin altis korruptiolle, voimme ryhtyä toimiin sen suojaamiseksi. Meidän tulee esimerkiksi pitää Outlook-tiedosto pienenä, suojata se haitallisilta tekijöiltä ja varmuuskopioida se säännöllisesti. Viimeisenä mutta ei vähäisimpänä, sinun on parempi valmistaa tehokas ulkoinen PST-korjaustyökalu, kuten DataNumen Outlook Repair. Sillä on suuri vaikutus korjaukseen korruptoitunut Outlook tiedosto.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com