Note: The other languages of the website are Google-translated. Back to English

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

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

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

Καρτέλα Office - Ενεργοποίηση επεξεργασίας καρτέλας και περιήγησης στο Office και να κάνετε την εργασία πολύ πιο εύκολη ...
Kutools για Outlook - Φέρνει 100 ισχυρές προηγμένες δυνατότητες στο Microsoft Outlook
  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά email μέσω κανόνων. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC. Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου. Απάντηση σε πολλά email ταυτόχρονα. Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Αυτόματη προσθήκη ημερομηνίας και ώρας στο θέμα ...
  • Εργαλεία συνημμένου: Αυτόματη αποσύνδεση, Συμπίεση όλων, Μετονομασία όλων, Αυτόματη αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων, Κατάργηση διπλών μηνυμάτων και επαφών ...
  • Περισσότερες από 100 προηγμένες δυνατότητες θα λύστε τα περισσότερα από τα προβλήματά σας στο Outlook 2021 - 2010 ή στο Office 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 σας εμφανίζεται αμέσως σε ένα νέο παράθυρο μηνυμάτων που δημιουργήθηκε. Μπορείτε εύκολα να το εκτυπώσετε. Δείτε το στιγμιότυπο οθόνης:

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


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

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

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL