Як пакетно видалити всі прочитані квитанції у вашому

Щоб підтвердити, що одержувачі прочитали ваш електронний лист, ви можете запросити сповіщення про прочитання під час написання листа. У такому випадку ваша поштова скринька може бути заповнена такими сповіщеннями про прочитання. У цій публікації ви дізнаєтесь, як видалити їх пакетно назавжди.

Після прочитання статті “Як пакетно видалити всі квитанції про доставку у вашому“, Ви можете подумати про підхід до масового видалення всіх квитанцій про прочитання. Насправді явною різницею між двома видами надходжень є їх суб'єкти. Квитанція про доставку містить "Доставлено" в темі, але квитанція про прочитання містить "Прочитано". Тому ви можете використовувати той самий спосіб для пакетного видалення всіх прочитаних квитанцій. Далі ми детально навчимо вас конкретним крокам.

Пакетне видалення всіх прочитаних квитанцій

1. На самому початку запустіть свій Outlook.
2. Потім перейдіть до редактора Outlook VBA через “Alt + F11” відповідно до “Як запустити код VBA у своєму Outlook».
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. Це зробить великий вплив на ремонт корумпований Outlook файлу.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql ремонт та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com