Τρόπος δέσμης σήμανσης όλων των μηνυμάτων ως αναγνωσμένων σε όλους τους φακέλους του Outlook με VBA

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

Όπως όλοι γνωρίζουμε, είναι εύκολο να επισημάνετε όλα τα μηνύματα σε έναν φάκελο ως αναγνωσμένα. Απλώς επιλέξτε και κάντε δεξί κλικ στο φάκελο και μετά επιλέξτε "Επισήμανση όλων ως αναγνωσμένων" στο μενού περιβάλλοντος. Ωστόσο, εάν υπάρχουν αρκετοί φάκελοι με μη αναγνωσμένα μηνύματα ηλεκτρονικού ταχυδρομείου, με τα παραπάνω μέσα, πρέπει να εκτελέσετε τους φακέλους έναν προς έναν. Είναι πολύ ενοχλητικό. Ως εκ τούτου, εδώ θα σας μοιραστούμε έναν πολύ πιο αποτελεσματικό τρόπο, ο οποίος θα σας επιτρέψει να το πραγματοποιήσετε χύμα.

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

1. Για να ξεκινήσετε, ανοίξτε την εφαρμογή Outlook.
2. Στη συνέχεια, πατήστε "Alt + F11" για πρόσβαση στο πρόγραμμα επεξεργασίας του Outlook VBA.
3. Στη συνέχεια, στο παράθυρο "Microsoft Visual Basic for Applications", αντιγράψτε τον παρακάτω κώδικα σε μια λειτουργική μονάδα που δεν χρησιμοποιείται.

Sub MarkAllItemsAsRead()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Process all Outlook files
    Set objStores = Outlook.Application.Session.Stores
  
    For Each objStore In objStores
        Set objOutlookFile = objStore.GetRootFolder
 
        For Each objFolder In objOutlookFile.Folders
            'Process mail folders
            If objFolder.DefaultItemType = olMailItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objUnreadItems As Outlook.Items
    Dim i As Integer
    Dim objItem As Object
    Dim objSubFolder As Outlook.Folder
 
    Set objUnreadItems = objCurFolder.Items.Restrict("[Unread]=True")
 
    'Mark all unread emails as read
    For i = 1 To objUnreadItems.Count
        Set objItem = objUnreadItems.Item(i)
        objItem.UnRead = False
        objItem.Save
    Next
 
    'Process subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubFolder In objCurFolder.Folders
           Call ProcessFolders(objSubFolder)
       Next
    End If
End Sub

4. Στη συνέχεια, βάλτε το δρομέα στην πρώτη υπορουτίνα.
5. Στη συνέχεια, πατήστε το πλήκτρο "F5" ή κάντε κλικ στο εικονίδιο "Εκτέλεση" στη γραμμή εργαλείων.
6. Τελικά, μετά την ολοκλήρωση της μακροεντολής, μπορείτε να επιστρέψετε στη λίστα φακέλων αλληλογραφίας.
7. Εκεί, θα δείτε ότι όλα τα μη αναγνωσμένα μηνύματα ηλεκτρονικού ταχυδρομείου έχουν επισημανθεί ως αναγνωσμένα, όπως φαίνεται στο στιγμιότυπο οθόνης.

Αποδράστε από την άθλια απώλεια δεδομένων του Outlook

Οι χρήστες μπορεί να έχουν αποδεχτεί το γεγονός ότι τα έγγραφα του Word και τα βιβλία εργασίας του Excel μπορούν να καταστραφούν εύκολα. Στην πραγματικότητα, παρόμοια με αυτά τα αρχεία, το αρχείο δεδομένων του Outlook είναι επίσης επιρρεπές σε ζημιές. Ως εκ τούτου, εάν είστε απρόθυμοι να το ζήσετε αυτό, θα πρέπει να κάνετε κάποιες ενέργειες. Θα πρέπει να περιλαμβάνει προφυλάξεις, όπως τακτικά αντίγραφα ασφαλείας και αποκλεισμό όλων των κακόβουλων προγραμμάτων ή ιών, καθώς και ορισμένα μέτρα ανακούφισης, όπως η εκμάθηση του εργαλείου επισκευής εισερχομένων, Σάρωση και διατηρώντας ένα ισχυρό εξωτερικό εργαλείο διόρθωσης, όπως DataNumen Outlook Repair.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή mdf και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com