如何批量删除Outlook中的所有已读回执

为了确认收件人已阅读您的邮件，您可以在撰写邮件时请求已读回执。这样一来，您的邮箱可能会被大量的已读回执塞满。本文将教您如何批量永久删除这些已读回执。

阅读文章后“如何批量删除Outlook中的所有送货回执”，你可能会想到批量删除所有已读回执的方法。 事实上，这两种收据的明显区别在于它们的主题。 送达收据在主题中包含“已送达”，但已读收据包含“已读”。 因此，您可以使用相同的方式批量删除所有已读回执。 下面，我们将详细教大家具体的步骤。

批量删除所有已读回执

1. 首先，启动 Outlook。
2. 然后，根据“Alt+F11”进入Outlook VBA编辑器如何在 Outlook 中运行 VBA 代码“。
3. 接下来，在新窗口中，打开一个空模块并将以下代码放入其中。

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. 之后，点击进入第一个子程序。
5. 最后，按“F5”键按钮。
6. 宏将立即从您的 Outlook 中删除所有已读回执。
7. 完成后，您将收到有关结果的提示，如下面的屏幕截图所示。
8. 目前，您可以检查您的邮件文件夹。 所有已读回执都已消失。

保护 Outlook 数据

虽然 Outlook 文件确实容易受到损坏，但我们可以采取措施保护它。 例如，我们应该保持 Outlook 文件的体积小，保护它免受恶意因素的影响，并定期备份。 最后但同样重要的是，你最好准备一个强大的外部 PST 修复工具，比如 DataNumen Outlook Repair. 会对修复产生很大的影响 腐败的前景 文件中。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 sql修复 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com