Jak wsadowo usunąć wszystkie potwierdzenia odczytu w programie Outlook

Aby upewnić się, że odbiorcy przeczytali Twoją wiadomość e-mail, możesz poprosić o potwierdzenie odczytu podczas jej pisania. W takiej sytuacji Twoja skrzynka pocztowa może być przepełniona takimi potwierdzeniami odczytu. W tym poście dowiesz się, jak je trwale usunąć zbiorczo.

Po przeczytaniu artykułu „Jak wsadowo usunąć wszystkie potwierdzenia dostawy w programie Outlook„Możesz pomyśleć o podejściu do masowego usuwania wszystkich potwierdzeń odczytu. W rzeczywistości oczywistą różnicą między tymi dwoma rodzajami wpływów jest ich przedmiot. Potwierdzenie dostarczenia zawiera w temacie „Dostarczono”, ale potwierdzenie przeczytania zawiera zamiast tego „Przeczytane”. Dlatego możesz użyć tego samego sposobu, aby zbiorczo usunąć wszystkie potwierdzenia odczytu. W dalszej części szczegółowo nauczymy Cię konkretnych kroków.

Zbiorcze usuwanie wszystkich potwierdzeń odczytu

1. Na początek uruchom Outlooka.
2. Następnie przejdź do edytora Outlook VBA za pomocą „Alt + F11” zgodnie z „Jak uruchomić kod VBA w swoim Outlooku".
3. Następnie w nowym oknie otwórz pusty moduł i umieść w nim następujący 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. Następnie kliknij pierwszy podprogram.
5. Na koniec naciśnij klawisz „F5”.
6. Od razu makro zadziała, aby usunąć wszystkie potwierdzenia odczytu z programu Outlook.
7. Po zakończeniu pojawi się monit o wynik, jak na poniższym zrzucie ekranu.
8. Obecnie możesz sprawdzić swoje foldery pocztowe. Wszystkie potwierdzenia odczytu zniknęły.

Chroń dane programu Outlook

Chociaż plik programu Outlook jest co prawda podatny na uszkodzenie, możemy podjąć działania, aby go zabezpieczyć. Na przykład powinniśmy zachować mały rozmiar pliku programu Outlook, chronić go przed złośliwymi czynnikami i regularnie tworzyć kopie zapasowe. Na koniec lepiej przygotuj potężne zewnętrzne narzędzie do naprawy PST, takie jak DataNumen Outlook Repair. Będzie to miało duży wpływ na naprawę uszkodzony Outlook plik.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com