Πώς να επισημάνετε μη αναγνωσμένα μηνύματα ηλεκτρονικού ταχυδρομείου παλαιότερα από συγκεκριμένες ημέρες ως αναγνωσμένα αυτόματα στο Outlook;

Συγγραφέας: Xiaoyang Τελευταία τροποποίηση: 2018-04-10

Εάν υπάρχουν πολλά μη αναγνωσμένα μηνύματα ηλεκτρονικού ταχυδρομείου στο φάκελο Εισερχόμενα, κανονικά, μπορείτε να εφαρμόσετε τη λειτουργία Επισήμανση όλων ως αναγνωσμένων για να επισημάνετε όλα τα μη αναγνωσμένα μηνύματα ηλεκτρονικού ταχυδρομείου ως αναγνωσμένα μηνύματα με μη αυτόματο τρόπο. Όμως, έχετε ποτέ προσπαθήσει να επισημάνετε μη αναγνωσμένα μηνύματα ηλεκτρονικού ταχυδρομείου που είναι παλαιότερα από συγκεκριμένες ημέρες ως αναγνωσμένα αυτόματα στο Outlook χωρίς να το ρυθμίζετε χειροκίνητα κάθε φορά;

Επισημάνετε μη αναγνωσμένα μηνύματα ηλεκτρονικού ταχυδρομείου παλαιότερα από συγκεκριμένες ημέρες ως αυτόματα διαβασμένα με τον κώδικα VBA

Επισημάνετε μη αναγνωσμένα μηνύματα ηλεκτρονικού ταχυδρομείου παλαιότερα από συγκεκριμένες ημέρες ως αυτόματα διαβασμένα με τον κώδικα VBA

Για να επισημάνετε αυτόματα όλα τα μη αναγνωσμένα μηνύματα ηλεκτρονικού ταχυδρομείου παλαιότερα από συγκεκριμένες ημέρες ως αναγνωσμένα, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στην Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Αυτό το OutlookSession από το Έργο1 (VbaProject.OTM) παράθυρο για να ανοίξετε τη λειτουργία και, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην κενή μονάδα.

Κωδικός VBA: Αυτόματη επισήμανση μη αναγνωσμένων μηνυμάτων ηλεκτρονικού ταχυδρομείου παλαιότερων από συγκεκριμένες ημέρες ως αναγνωσμένες:

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

Note: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε τον αριθμό των ημερών σε αυτό το σενάριο: Αν DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Τότε στις δικές σας ανάγκες.

3. Στη συνέχεια, αποθηκεύστε και κλείστε αυτό το παράθυρο κώδικα, από τότε, κάθε φορά που εκκινείτε το Outlook, όλα τα μη αναγνωσμένα μηνύματα ηλεκτρονικού ταχυδρομείου που είναι παλαιότερα από προκαθορισμένες ημέρες θα επισημαίνονται αυτόματα ως αναγνωσμένα ταυτόχρονα.

Note: Αυτός ο κωδικός είναι διαθέσιμος μόνο στον προεπιλεγμένο λογαριασμό δεδομένων.