Comment marquer les e-mails non lus antérieurs à des jours spécifiques comme lus automatiquement dans Outlook?
S'il y a plusieurs e-mails non lus dans votre dossier Boîte de réception, vous pouvez normalement appliquer la fonction Tout marquer comme lu pour marquer manuellement tous les e-mails non lus comme e-mails lus. Mais avez-vous déjà essayé de marquer les e-mails non lus qui datent de plus de jours spécifiques comme lus automatiquement dans Outlook sans le configurer manuellement à chaque fois?
Marquer les e-mails non lus plus anciens que des jours spécifiques comme lus automatiquement avec le code VBA
Pour marquer automatiquement tous les e-mails non lus antérieurs à des jours spécifiques comme lus, le code VBA suivant peut vous rendre service:
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. Dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Cette session Outlook du Projet1 (VbaProject.OTM) volet pour ouvrir le mode, puis copiez et collez le code ci-dessous dans le module vide.
Code VBA: marque automatiquement les e-mails non lus antérieurs à des jours spécifiques 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
Notes: Dans le code ci-dessus, vous pouvez modifier le nombre de jours dans ce script: Si DateDiff ("d", xItems (i) .ReceivedTime, Now)> = 15 Ensuite à votre propre besoin.
3. Ensuite, enregistrez et fermez cette fenêtre de code, car à chaque fois que vous lancez Outlook, tous les e-mails non lus datant de plus de jours prédéfinis seront marqués comme lus automatiquement à la fois.
Notes: Ce code n'est disponible que pour le compte de données par défaut.
Meilleurs outils de productivité bureautique
Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!
Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!
📧 Email Automation: Réponse automatique (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Vous rappeler lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
