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

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

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

Καρτέλα Office - Ενεργοποιήστε την επεξεργασία με καρτέλες και την περιήγηση στο Microsoft Office, κάνοντας την εργασία άνετη

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

Kutools for Outlook - Ενισχύστε το Outlook με 100+ προηγμένες δυνατότητες για ανώτερη απόδοση

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

Ενισχύστε το Outlook 2021 - 2010 ή το Outlook 365 με αυτές τις προηγμένες δυνατότητες. Απολαύστε μια ολοκληρωμένη δωρεάν δοκιμή 60 ημερών και αναβαθμίστε την εμπειρία ηλεκτρονικού ταχυδρομείου σας!

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

Λάβετε λίστα φακέλων στο 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 σας εμφανίζεται αμέσως σε ένα νέο παράθυρο μηνυμάτων που δημιουργήθηκε. Μπορείτε εύκολα να το εκτυπώσετε. Δείτε το στιγμιότυπο οθόνης: