Πώς να αναπτύξετε αυτόματα όλους τους φακέλους κατά την εκκίνηση του Outlook;
Συνήθως, όταν αναπτύσσετε ή συμπτύσσετε έναν φάκελο στο παράθυρο περιήγησης του Outlook και στη συνέχεια κλείνετε το πρόγραμμα, ο φάκελος διατηρεί την κατάσταση επέκτασης ή σύμπτυξης κατά το άνοιγμα εκ νέου του Outlook. Ωστόσο, τι γίνεται αν θέλετε να επεκτείνονται αυτόματα όλοι οι φάκελοι κάθε φορά που ξεκινάτε το Outlook; Αυτό το άρθρο παρέχει μια λύση VBA για να πετύχετε αυτό ακριβώς.
Αυτόματη επέκταση όλων των φακέλων κατά την εκκίνηση του Outlook με χρήση VBA
- Αυτοματοποιήστε την αποστολή email με Αυτόματο CC / BCC, Αυτόματη προώθηση με κανόνες? στείλετε Αυτόματη απάντηση (Εκτός γραφείου) χωρίς να απαιτείται διακομιστής ανταλλαγής...
- Λάβετε υπενθυμίσεις όπως Προειδοποίηση BCC όταν απαντάτε σε όλους όσο βρίσκεστε στη λίστα BCC και Υπενθύμιση όταν λείπουν συνημμένα για ξεχασμένα συνημμένα...
- Βελτιώστε την αποτελεσματικότητα του email με Απάντηση (Όλα) Με Συνημμένα, Αυτόματη προσθήκη χαιρετισμού ή ημερομηνίας και ώρας στην υπογραφή ή στο θέμα, Απάντηση σε πολλά email...
- Βελτιώστε την αποστολή email με Ανάκληση email, Εργαλεία συνημμένου (Συμπίεση όλων, Αυτόματη αποθήκευση όλων...), Κατάργηση διπλότυπων, να Γρήγορη αναφορά...
Αυτόματη επέκταση όλων των φακέλων κατά την εκκίνηση του Outlook με χρήση VBA
Αυτός ο οδηγός θα δείξει πώς να χρησιμοποιήσετε μια δέσμη ενεργειών VBA για αυτόματη επέκταση όλων των φακέλων στο παράθυρο περιήγησης κάθε φορά που εκκινείτε το Outlook. Ακολουθήστε αυτά τα βήματα για να εφαρμόσετε τη δέσμη ενεργειών VBA:
- Τύπος Alt + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
- Αναπτύξτε το έργο 1 και Αντικείμενα του Microsoft Outlook στο Σχέδιο παράθυρο, κάντε διπλό κλικ για να ανοίξετε το Αυτό το OutlookSession παράθυρο και, στη συνέχεια, επικολλήστε τον παρακάτω κώδικα VBA σε αυτό.
VBA: Αυτόματη ανάπτυξη όλων των φακέλων στο Outlook
Public WithEvents GEx As Explorer Public GFlag As Boolean Private Sub Application_Startup() 'Update by ExtendOffice 2023/12/08 Set GEx = Application.ActiveExplorer GFlag = False End Sub Private Sub GEx_SelectionChange() If GFlag = False Then ExpandAllFolders End If GFlag = True End Sub Public Sub ExpandAllFolders() Dim xNameSpace As Outlook.NameSpace Dim xFlds As Outlook.Folders Dim xCurrFld As Outlook.MAPIFolder Dim xFld As Outlook.MAPIFolder Dim xExpandDefaultStoreOnly As Boolean Dim xModule As NavigationModule On Error Resume Next xExpandDefaultStoreOnly = False Set xNameSpace = Application.Session Set xModule = Application.ActiveExplorer.NavigationPane.CurrentModule Set xCurrFld = Application.ActiveExplorer.CurrentFolder If xExpandDefaultStoreOnly = True Then Set xFld = xNameSpace.GetDefaultFolder(olFolderInbox) Set xFld = xFld.Parent Set xFlds = xFld.Folders LoopFolders xFlds, True Else LoopFolders xNameSpace.Folders, True LoopFolders xNameSpace.Folders, False End If DoEvents Set Application.ActiveExplorer.NavigationPane.CurrentModule = xModule Set Application.ActiveExplorer.CurrentFolder = xCurrFld Set xNameSpace = Nothing Set xModule = Nothing Set xCurrFld = Nothing End Sub Private Sub LoopFolders(Flds As Outlook.Folders, ByVal All As Boolean) Dim xFld As Outlook.MAPIFolder On Error Resume Next For Each xFld In Flds Select Case All Case True If xFld.DefaultItemType = olMailItem Then Set Application.ActiveExplorer.CurrentFolder = xFld DoEvents If xFld.Folders.Count > 0 Then LoopFolders xFld.Folders, All End If End If Case False Set Application.ActiveExplorer.CurrentFolder = xFld DoEvents If xFld.Folders.Count > 0 Then LoopFolders xFld.Folders, All End If End Select Next End Sub
- Αποθηκεύστε τον κωδικό και κλείστε το Microsoft Visual Basic για εφαρμογές παράθυρο.
Από τώρα και στο εξής, κατά την επανεκκίνηση του Outlook, όλοι οι φάκελοι θα επεκταθούν αυτόματα στο Outlook.
:
- Αυτό το VBA δεν μπορεί να ανοίξει τους συμπτυγμένους φακέλους αναζήτησης κατά την επανεκκίνηση του Outlook.
- Για να διασφαλίσετε ότι η δέσμη ενεργειών VBA λειτουργεί σωστά, είναι απαραίτητο να προσαρμόσετε τις ρυθμίσεις μακροεντολής στο Outlook. Παρακαλώ πηγαίνετε στο Αρχεία > Επιλογές > Κέντρο αξιοπιστίας > Ρυθμίσεις Κέντρου αξιοπιστίας > Ρυθμίσεις μακροεντολών, και επιλέξτε το Ενεργοποιήστε όλες τις μακροεντολές επιλογή. Αυτή η ρύθμιση επιτρέπει στη δέσμη ενεργειών VBA να εκτελείται χωρίς περιορισμούς.
Σχετικά άρθρα
Διαγραφή πολλών φακέλων μαζικά στο Outlook
Διαγράψτε όλα τα διπλά μηνύματα ηλεκτρονικού ταχυδρομείου από ένα φάκελο αλληλογραφίας στο Outlook
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας
🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...
📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP) / Προγραμματισμός αποστολής email / Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email / Αυτόματη προώθηση (Σύνθετοι κανόνες) / Αυτόματη προσθήκη χαιρετισμού / Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...
📨 Διαχείριση e-mail: Εύκολη ανάκληση email / Αποκλεισμός απάτης email από υποκείμενα και άλλους / Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου / Προχωρημένη Αναζήτηση / Ενοποίηση φακέλων ...
📁 Συνημμένα Pro: Μαζική αποθήκευση / Αποσύνδεση παρτίδας / Συμπίεση παρτίδας / Αυτόματη αποθήκευση / Αυτόματη απόσπαση / Αυτόματη συμπίεση ...
🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis / Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες / Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...
???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα / Email κατά του phishing / 🕘Εμφάνιση ζώνης ώρας αποστολέα ...
👩🏼🤝👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου / Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες / Κατάργηση υπενθυμίσεων γενεθλίων ...
Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.