2 façons de marquer par lots tous les e-mails Outlook antérieurs à une date spécifique comme lus

Après avoir importé plusieurs anciens e-mails dans Outlook et que ces e-mails sont à l'état "non lu", vous devez les marquer par lots comme lus. Maintenant, dans cet article, nous allons vous montrer 2 méthodes rapides.

Parfois, vous devrez peut-être marquer par lots plusieurs e-mails comme lus. Par exemple, vous avez un ancien fichier PST, qui contient de nombreux anciens e-mails. Ensuite, vous importez les e-mails dans votre propre fichier Outlook PST. Cependant, après l'importation, ces e-mails sont affichés comme "Non lus" par défaut. À ce stade, vous souhaiterez marquer par lots ces e-mails, antérieurs à une date spécifique, comme lus. Nous allons ici nous pencher sur cette exigence de partager 2 approches pratiques et efficaces.

Méthode 1 : marquer par lots les e-mails trouvés comme lus manuellement

1. Pour commencer, ouvrez un dossier de messagerie.
2. Cliquez ensuite dans le champ de recherche.
3. Ensuite, dans le ruban "Rechercher", cliquez sur le bouton "Tous les éléments de courrier" dans le groupe "Portée".
4. Après cela, saisissez les critères "envoyé : <=2018/5/21" dans la zone de recherche. Remplacez "2018/5/12" par la date souhaitée.
5. Lorsque la recherche est terminée, sélectionnez tous les éléments de courrier trouvés via "Ctrl + A".
6. Enfin, faites un clic droit et choisissez l'option "Marquer l'annonce comme lue".

Méthode 2 : Marquer par lots les e-mails plus anciens qu'une date spécifique comme lus avec VBA

1. Pour commencer, lancez l'éditeur VBA dans Outlook selon "Comment exécuter le code VBA dans votre Outlook" .
2. Ensuite, copiez le code suivant dans un module.

Dim dDate As Date

Sub MarkEmailsOlderThanSpecificDateRead()
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    dDate = InputBox("Enter the specific date:", , "2018/5/11")
 
    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)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objSubfolder As Outlook.Folder
 
    For Each objItem In objCurFolder.Items
        If TypeOf objItem Is MailItem Then
           Set objMail = objItem
 
           If objMail.SentOn <= dDate Then
              If objMail.UnRead = True Then
                 objMail.UnRead = False
                 objMail.Save
              End If
           End If
        End If
    Next
 
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

3. Ensuite, appuyez sur la touche "F5" pour exécuter cette macro maintenant.
4. Plus tard, dans la petite boîte de dialogue contextuelle, entrez la date spécifique et appuyez sur "OK".
5. Finalement, tous les e-mails antérieurs à la date spécifique seront marqués comme lus.

Restaurer le fichier Outlook compromis

Les fichiers Outlook PST peuvent être endommagés après qu'Outlook se bloque de temps en temps de manière inattendue. Si vous avez une sauvegarde mise à jour, vous pouvez simplement récupérer Outlook données avec votre sauvegarde. Sinon, vous n'avez pas d'autre choix que de rechercher un expert ou un utilitaire spécialisé, tel que DataNumen Outlook Repair pour réparer le fichier Outlook.

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 correctif mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com