Comment supprimer par lots toutes les confirmations de lecture dans votre Outlook

Pour confirmer que les destinataires ont bien lu votre courriel, vous pouvez demander un accusé de réception lors de sa rédaction. Dans ce cas, votre boîte de réception risque d'être saturée de ces accusés de réception. Cet article vous explique comment les supprimer définitivement en une seule fois.

Après avoir lu l'article "Comment supprimer par lots tous les accusés de réception dans votre Outlook", vous pouvez penser à l'approche de suppression en bloc de toutes les confirmations de lecture. En fait, la différence manifeste entre les deux types de reçus est leur objet. L'accusé de réception contient « Livré » dans l'objet, mais l'accusé de lecture contient « Lu » à la place. Par conséquent, vous pouvez utiliser la même méthode pour supprimer par lots toutes les confirmations de lecture. Dans ce qui suit, nous allons vous apprendre les étapes concrètes en détail.

Supprimer par lots tous les reçus de lecture

1. Pour commencer, ouvrez Outlook.
2. Ensuite, allez dans l'éditeur Outlook VBA via "Alt + F11" selon "Comment exécuter le code VBA dans votre Outlook" .
3. Ensuite, dans la nouvelle fenêtre, ouvrez un module vide et insérez-y le code suivant.

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. Après cela, cliquez sur le premier sous-programme.
5. Enfin, appuyez sur la touche "F5".
6. À la fois, la macro fonctionnera pour supprimer toutes les confirmations de lecture de votre Outlook.
7. Une fois terminé, vous recevrez une invite sur le résultat, comme la capture d'écran ci-dessous.
8. À l'heure actuelle, vous pouvez vérifier vos dossiers de messagerie. Toutes les confirmations de lecture ont disparu.

Défendre les données Outlook

Bien que le fichier Outlook soit certes susceptible d'être corrompu, nous pouvons prendre des mesures pour le protéger. Par exemple, nous devons conserver le fichier Outlook en petite taille, le protéger des facteurs malveillants et le sauvegarder régulièrement. Enfin, vous feriez mieux de préparer un puissant outil de réparation PST externe, comme DataNumen Outlook Repair. Cela aura un impact important sur la réparation Outlook corrompu fichier.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparation sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com