Note: The other languages of the website are Google-translated. Back to English
English English
  • Documents
  • Outlook
  • Comment marquer les e-mails non lus antérieurs à des jours spécifiques comme lus automatiquement dans Outlook?

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


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.


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (1)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Comment modifier le code pour cibler un dossier spécifique ?
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL