Τα cookies μάς βοηθούν να παρέχουμε τις υπηρεσίες μας. Με τη χρήση των υπηρεσιών μας, συμφωνείτε με τη χρήση των cookies.
Συμβουλή: Άλλες γλώσσες μεταφράζονται από την Google. Μπορείτε να επισκεφθείτε το English έκδοση αυτής της σύνδεσης.
Σύνδεση
x
or
x
x
Κανω ΕΓΓΡΑΦΗ
x

or

Πώς να ανοίξετε όλους τους υποφακέλους από το Outlook;

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

Ανοίξτε ή αναπτύξτε όλους τους υποφακέλους από το Outlook με τον κώδικα VBA


Ανοίξτε ή αναπτύξτε όλους τους υποφακέλους από το Outlook με τον κώδικα VBA

Παρακαλούμε εφαρμόστε τον ακόλουθο κώδικα VBA για να αναπτύξετε όλους τους υποφακέλους από όλους τους λογαριασμούς του Outlook:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησης, και επικολλήστε την ακόλουθη μακροεντολή στο παράθυρο μονάδας.

Κωδικός VBA: Ανοίξτε όλους τους υποφακέλους από το Outlook:

Sub ExpandAllMailFolders () Dim xCurrentFolder ως φάκελο Dim xAllFolders ως φάκελοι Dim xFolder ως φάκελος σε σφάλμα Συνέχιση Επόμενος ορισμός xCurrentFolder = Application.ActiveExplorer.CurrentFolder Ρύθμιση xAllFolders = Application.Session.Folders Για κάθε xFolder σε xAllFolders Φάκελοι διεργασίας κλήσης (xFolder) Επόμενο Ορισμός εφαρμογής. ActiveExplorer.CurrentFolder = xCurrentFolder Τέλος Sub Sub Φάκελοι διεργασίας (ByVal CurFolder ως φάκελο) Dim xSubfolder ως φάκελο σε σφάλμα Συνέχιση Επόμενο Εάν CurFolder.DefaultItemType <> olMailItem Στη συνέχεια, βγείτε από το σετ Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents Αν CurFolder.Folders.Count = 0 Τότε Exit Sub για κάθε xSubfolder σε CurFolder.Folders CallFolders (xSubfolder) Next End Sub

3. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα και έχουν επεκταθεί όλοι οι υποφακέλοι σε όλους τους λογαριασμούς του Outlook, δείτε το στιγμιότυπο οθόνης:

doc αναπτύξτε τους υποφακέλους 1



Kutools για το Outlook

Περισσότερες από τις προχωρημένες λειτουργίες 100 για Outlook 2010, 2013, 2016, 2019 και 365

πυροβολισμό οθόνης kutools για προοπτική μικροσκοπικό για banner 201812

περισσότερα Χαρακτηριστικά | Δωρεάν κατέβασμα | Μόνο $ 39.00 για εκατοντάδες λειτουργίες

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.