Πώς να επεκτείνετε αυτόματα όλους τους φακέλους μέσω VBA κατά την εκκίνηση του Outlook

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

Μπορεί να έχετε δημιουργήσει πολλούς υποφακέλους στους προεπιλεγμένους φακέλους στο Outlook. Λόγω του μεγάλου αριθμού φακέλων, για να έχετε γρήγορη πρόσβαση σε αυτούς ανά πάσα στιγμή, ίσως θελήσετε να διατηρείτε όλους τους φακέλους συνεχώς αναπτυγμένους. Το πρώτο βήμα πρέπει να είναι να ρυθμίσετε το Outlook ώστε να επεκτείνει αυτόματα τους φακέλους κατά την εκκίνηση. Προφανώς, δεν υπάρχει τέτοια εγγενής λειτουργία στο Outlook. Επομένως, πρέπει να χρησιμοποιήσετε μακροεντολές. Στη συνέχεια, θα σας δείξουμε πώς να το πετύχετε με VBA. Όσον αφορά τον τρόπο εφαρμογής της VBA, μπορείτε να ανατρέξετε σε ένα άλλο άρθρο - "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".

Αυτόματη ανάπτυξη όλων των φακέλων κατά την εκκίνηση του Outlook

1. Αρχικά, πατήστε "Alt + F11" στο Outlook για πρόσβαση στον επεξεργαστή VBA.
2. Στη συνέχεια, στο νέο παράθυρο, τοποθετήστε τον κωδικό στο έργο "ThisOutlookSession".

'Auto expand all folders on startup
Private Sub Application_Startup()
    Call ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objStore As Outlook.Store
    Dim objFileFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
   
    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
 
    'Process all email accounts in your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objFileFolders = objStore.GetRootFolder.Folders
 
        For Each objFolder In objFileFolders
            Call LoopFolders(objFolder)
        Next
 
        DoEvents
        Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
    Next
End Sub

Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    Set Application.ActiveExplorer.CurrentFolder = objCurFolder
    DoEvents
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call LoopFolders(objSubfolder)
       Next
    End If
End Sub

3. Μετά από αυτό, κλείστε τον επεξεργαστή VBA.
4. Στη συνέχεια, βγείτε σωστά από την εφαρμογή Outlook.
5. Αργότερα, ξεκινήστε το Outlook. Σε αυτό το σημείο, η μακροεντολή θα εκτελεστεί αυτόματα.
6. Μετά την εκκίνηση του Outlook, μπορείτε να δείτε ότι όλοι οι φάκελοι έχουν αναπτυχθεί, όπως φαίνεται στο παρακάτω σχήμα.

Διατηρήστε όλες τις κακόβουλες μακροεντολές στο Bay

Έχετε λάβει ποτέ τα μηνύματα ηλεκτρονικού ταχυδρομείου που είναι συνημμένα με ύποπτα αρχεία ή είναι ενσωματωμένα με άγνωστους συνδέσμους; Συνήθως, κατά την αντιμετώπιση τέτοιων μηνυμάτων ηλεκτρονικού ταχυδρομείου, πρέπει να αυξήσετε την επαγρύπνησή σας. Δεν πρέπει ποτέ να τους εμπιστεύεστε εύκολα ότι ενδέχεται να μεταφέρουν ιούς. Μόλις κατεβάσετε τα συνημμένα ή ανοίξετε τους συνδέσμους, ενδέχεται να επιτεθείτε όχι μόνο στο Outlook αλλά και στον υπολογιστή. Εκείνη τη στιγμή, πρέπει να επιδιορθώστε το Outlook αρχείο. Θα μπορούσε να είναι αρκετά κόμπο, εκτός αν έχετε ενημερωμένο αντίγραφο ασφαλείας του Outlook ή κάνετε χρήση ενός ισχυρού εργαλείου αποκατάστασης, όπως DataNumen Outlook Repair.

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

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