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ères nouvelles : Kutools pour Outlook lance une version gratuite !
Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !
📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...
📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...
🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...
👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...
