Comment marquer automatiquement les e-mails non lus de plus d'un certain nombre de jours comme lus dans Outlook ?
S'il y a plusieurs e-mails non lus dans votre dossier Boîte de réception, normalement, vous pouvez appliquer la fonction Marquer tout comme lu pour marquer manuellement tous les e-mails non lus comme lus. Mais avez-vous déjà essayé de marquer automatiquement les e-mails non lus de plus d'un certain nombre de jours comme lus dans Outlook sans avoir à le configurer manuellement à chaque fois ?
Marquer automatiquement les e-mails non lus de plus d'un certain nombre de jours comme lus avec un code VBA
Pour marquer automatiquement tous les e-mails non lus de plus d'un certain nombre de jours comme lus, le code VBA suivant peut vous aider :
1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Dans la fenêtre Microsoft Visual Basic for Applications, double-cliquez sur ThisOutlookSession dans le volet Project1(VbaProject.OTM) pour ouvrir le module, puis copiez et collez le code ci-dessous dans le module vide.
Code VBA : Marquer automatiquement les e-mails non lus de plus d'un certain nombre de jours comme lus :
Private Sub Application_Startup()
Call MarkOldUnreadEmailsAsRead
End Sub
Private Sub MarkOldUnreadEmailsAsRead()
Dim xInboxFld As Outlook.Folder
Dim xAccount As Account
On Error GoTo L1
For Each xAccount In Outlook.Application.Session.Accounts
Set xInboxFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderInbox)
Call Processfolders(xInboxFld)
Next xAccount
L1: Exit Sub
End Sub
Private Sub Processfolders(ByVal InboxFld As Outlook.Folder)
Dim xItems As Outlook.Items
Dim i As Long
Dim xSubFld As Outlook.Folder
On Error Resume Next
Set xItems = InboxFld.Items
For i = 1 To xItems.Count
If DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Then
If xItems(i).UnRead = True Then
xItems(i).UnRead = False
xItems(i).Save
End If
End If
Next
If InboxFld.Folders.Count > 0 Then
For Each xSubFld In InboxFld.Folders
Call Processfolders(xSubFld)
Next
End If
End Sub
Remarque : Dans le code ci-dessus, vous pouvez modifier le nombre de jours dans ce script : If DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Then selon vos besoins.
3. Ensuite, sauvegardez et fermez cette fenêtre de code. Dès lors, chaque fois que vous lancerez Outlook, tous les e-mails non lus de plus d'un nombre prédéfini de jours seront automatiquement marqués comme lus immédiatement.
Remarque : Ce code n'est disponible que pour le compte de données par défaut.
Meilleurs outils de productivité pour Office
Dernière nouvelle : Kutools pour Outlook lance une version gratuite !
Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !
📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...
📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...
🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...
Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !
