Để xác nhận người nhận đã đọc email của bạn, bạn có thể yêu cầu biên nhận đã đọc khi soạn email. Trong trường hợp này, hộp thư của bạn có thể bị đầy những biên nhận đã đọc như vậy. Bài viết này sẽ hướng dẫn bạn cách xóa hàng loạt chúng vĩnh viễn.
Sau khi đọc bài viết “Cách xóa hàng loạt tất cả biên lai giao hàng trong Outlook của bạn“, bạn có thể nghĩ về phương pháp xóa hàng loạt tất cả các biên nhận đã đọc. Trên thực tế, sự khác biệt rõ ràng giữa hai loại biên lai là đối tượng của chúng. Biên lai giao hàng chứa "Đã giao" trong chủ đề nhưng thay vào đó, biên nhận đã đọc chứa "Đã đọc". Do đó, bạn có thể sử dụng cùng một cách để xóa hàng loạt tất cả các biên nhận đã đọc. Trong phần sau đây, chúng tôi sẽ hướng dẫn bạn các bước cụ thể một cách chi tiết.
Xóa hàng loạt tất cả biên nhận đã đọc
- Trước tiên, hãy khởi động Outlook của bạn.
- Sau đó, vào trình soạn thảo Outlook VBA thông qua “Alt + F11” theo “Cách chạy mã VBA trong Outlook của bạn".
- Tiếp theo, trong cửa sổ mới, hãy mở một mô-đun trống và nhập đoạn mã sau vào đó.
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
- Sau đó, nhấp vào chương trình con đầu tiên.
- Cuối cùng, nhấn nút phím “F5”.
- Ngay lập tức, macro sẽ hoạt động để xóa tất cả biên nhận đã đọc khỏi Outlook của bạn.
- Khi nó kết thúc, bạn sẽ nhận được lời nhắc về kết quả, giống như ảnh chụp màn hình bên dưới.
- Hiện tại, bạn có thể kiểm tra các thư mục thư của mình. Tất cả biên nhận đã đọc đã biến mất.
Bảo vệ dữ liệu Outlook
Mặc dù tệp Outlook được thừa nhận là dễ bị hỏng nhưng chúng tôi có thể thực hiện các hành động để bảo vệ tệp. Ví dụ: chúng ta nên giữ tệp Outlook ở kích thước nhỏ, bảo vệ tệp khỏi các yếu tố độc hại và sao lưu tệp thường xuyên. Cuối cùng nhưng không kém phần quan trọng, bạn nên chuẩn bị một công cụ sửa chữa PST bên ngoài mạnh mẽ, chẳng hạn như DataNumen Outlook Repair. Nó sẽ có tác động lớn đến việc sửa chữa Outlook bị hỏng tập tin.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa lỗi sql và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm