Πώς να λάβετε λίστα φακέλων στο Outlook;

Μερικές φορές η ιεραρχημένη δομή όλων των φακέλων αλληλογραφίας (περιλαμβάνονται οι δημιουργημένοι προσωπικοί φάκελοι) στο παράθυρο περιήγησης μπορεί να κάνει κάποια βοήθεια για τους χρήστες του Outlook κατά τη διάρκεια της εργασίας τους. Για γρήγορη λίστα ολόκληρων φακέλων δομής δέντρου, ο κώδικας VBA μπορεί να σας βοηθήσει. Σε αυτό το σεμινάριο, μπορείτε να μάθετε πώς να λαμβάνετε εύκολα λίστα φακέλων με τον κώδικα VBA.

Λάβετε λίστα φακέλων στο Outlook με κωδικό VBA

Λάβετε λίστα φακέλων στο Outlook με κωδικό VBA

Για λήψη λίστας φακέλων στο Outlook με κώδικα VBA, κάντε τα εξής.

1. Πάτα το άλλος + F11 για να ανοίξετε το πλήκτρο Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στη συνέχεια, κάντε διπλό κλικ στο Project1 > Αντικείμενο Microsoft Outlook > Αυτό το OutlookSession για να ανοίξετε το Project1 - ThisOutlookSession παράθυρο. Δείτε το στιγμιότυπο οθόνης:

3. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο Project1 - ThisOutlookSession.

VBA: λήψη λίστας φακέλων στο Outlook

Option Explicit
Sub GetFoldersList()
    On Error GoTo On_Error
    
    Dim Report As String
    Dim Folder As Outlook.Folder
       
    For Each Folder In Application.Session.Folders
        Report = Report & "---------------------------------------------------------------------------" & vbCrLf
        Call RecurseFolders(Folder, "", Report)
    Next
    Call CreateReportEmail("Outlook Folders List", Report)
    
Exiting:
    Exit Sub
On_Error:
    MsgBox "error=" & Err.Number & " " & Err.Description
End Sub
Sub RecurseFolders(CurrentFolder As Outlook.Folder, TabChars, ByRef Report As String)
    Dim SubFolder As Outlook.Folder
    Dim FolderName, StoreName As String
    
    FolderName = CurrentFolder.Name
    StoreName = CurrentFolder.Store.DisplayName
    
    Report = Report & TabChars & FolderName & " (Store: " & StoreName & ")" & vbCrLf
    
    For Each SubFolder In CurrentFolder.Folders
        Call RecurseFolders(SubFolder, TabChars & vbTab, Report)
    Next SubFolder
End Sub
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub

4. Πάτα το F5 πληκτρολογήστε το πληκτρολόγιο για να ξεκινήσετε να εκτελείτε τον κωδικό VBA.

5. Τώρα α Macro εμφανίζεται το παράθυρο διαλόγου, κάντε κλικ στο τρέξιμο κουμπί.

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

Note: Αυτός ο κωδικός VBA μπορεί να εφαρμοστεί στο Outlook 2007, 2010 και 2013.

---

Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!

• Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
• Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
• Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
• Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
• Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.

Διαβάστε περισσότερα ... Κατεβάστε τώρα...