Paano I-Batch ang I-delete ang Lahat ng Read Receipts sa Iyong Outlook

Para makumpirma na nabasa na ng mga tatanggap ang iyong email, maaari kang humiling ng read receipt kapag ginagawa ang email. Sa ganitong sitwasyon, maaaring puno ng mga read receipt ang iyong mailbox. Ngayon, ituturo sa iyo ng post na ito kung paano permanenteng i-batch delete ang mga ito.

Pagkatapos basahin ang artikulo "Paano Batch Tanggalin ang Lahat ng Mga Resibo sa Paghahatid sa Iyong Outlook", maaari mong isipin ang tungkol sa diskarte sa maramihang tanggalin ang lahat ng mga read receipts. Sa katunayan, ang malinaw na pagkakaiba sa pagitan ng dalawang uri ng mga resibo ay ang kanilang mga paksa. Ang resibo ng paghahatid ay naglalaman ng "Naihatid" sa paksa ngunit ang nabasang resibo ay naglalaman ng "Basahin" sa halip. Samakatuwid, maaari mong gamitin ang parehong paraan upang i-batch na tanggalin ang lahat ng mga read receipts. Sa mga sumusunod, ituturo namin sa iyo ang mga kongkretong hakbang nang detalyado.

Batch Delete Lahat ng Read Receipts

1. Sa simula, simulan ang iyong Outlook.
2. Pagkatapos, pumunta sa Outlook VBA editor sa pamamagitan ng “Alt + F11” ayon sa “Paano Patakbuhin ang VBA Code sa Iyong Outlook".
3. Susunod, sa bagong window, buksan ang isang walang laman na module at ilagay ang sumusunod na code dito.

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. Pagkatapos nito, mag-click sa unang subroutine.
5. Panghuli, pindutin ang "F5" key button.
6. Sabay-sabay, gagana ang macro na tanggalin ang lahat ng mga read receipts mula sa iyong Outlook.
7. Kapag natapos na ito, makakatanggap ka ng prompt tungkol sa resulta, tulad ng screenshot sa ibaba.
8. Sa kasalukuyan, maaari mong suriin ang iyong mga folder ng mail. Nawala na lahat ng read receipts.

Ipagtanggol ang Data ng Outlook

Kahit na ang Outlook file ay tinatanggap na madaling kapitan ng katiwalian, maaari kaming gumawa ng mga aksyon upang mapangalagaan ito. Halimbawa, dapat nating panatilihin ang Outlook file sa maliit na sukat, protektahan ito mula sa mga nakakahamak na kadahilanan at i-back up ito nang regular. Panghuli ngunit hindi bababa sa, mas mahusay kang maghanda ng isang makapangyarihang panlabas na tool sa pag-aayos ng PST, tulad ng DataNumen Outlook Repair. Magkakaroon ito ng malaking epekto sa pag-aayos sira ang Outlook file.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang pag-aayos ng sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa