So as to confirm that recipients have read your email, you can request read receipt when composing the email. In this situation, your mailbox may be stuffed with such read receipts. Now, this post will teach you how to batch delete them permanently.
After reading the article “How to Batch Delete All Delivery Receipts in Your Outlook“, you may think about the approach to bulk delete all read receipts. In fact, the manifest difference between the two kinds of receipts is their subjects. Delivery receipt contains “Delivered” in subject but read receipt contains “Read” instead. Therefore, you can use the same way to batch delete all read receipts. In the followings, we will teach you the concrete steps in detail.
Batch Delete All Read Receipts
- At the outset, start your Outlook.
- Then, go to Outlook VBA editor via “Alt + F11” according to “How to Run VBA Code in Your Outlook“.
- Next, in the new window, open an empty module and put the following code into it.
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
- After that, click into the first subroutine.
- Finally, press “F5” key button.
- At once, the macro will work to delete all read receipts from your Outlook.
- When it finishes, you will get a prompt about the result, like the screenshot below.
- At present, you can check your mail folders. All read receipts have been gone.
Defend Outlook Data
Although Outlook file is admittedly susceptible to corruption, we can take actions to safeguard it. For example, we should keep Outlook file in small size, protect it from malicious factors and back it up on a regular basis. Last but not least, you’d better prepare a potent external PST repair tool, like DataNumen Outlook Repair. It will make great impacts on repairing corrupt Outlook file.
Author Introduction:
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including sql repair and outlook repair software products. For more information visit www.datanumen.com
What is the “First subroutine”. Sorry I am a newb.