Bagaimana cara membuka semua subfolder dari Outlook?

Jika Anda membuat beberapa subfolder di bawah folder Outlook Anda, bagaimana Anda bisa membuka atau memperluas semua subfolder ini dengan segera? Artikel ini, saya akan memperkenalkan kode VBA yang berguna bagi Anda untuk menyelesaikan pekerjaan ini.

Buka atau perluas semua subfolder dari Outlook dengan kode VBA

Buka atau perluas semua subfolder dari Outlook dengan kode VBA

Silakan terapkan kode VBA berikut untuk memperluas semua subfolder dari semua akun Outlook:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan paste makro berikut di Module Window.

Kode VBA: Buka semua subfolder dari Outlook:

Sub ExpandAllMailFolders () Dim xCurrentFolder Sebagai Folder Dim xAllFolders Sebagai Folder Dim xFolder Sebagai Folder Pada Kesalahan Lanjutkan Set Berikutnya xCurrentFolder = Application.ActiveExplorer.CurrentFolder Set xAllFolders = Application.Session.Folders Untuk Setiap xFolder Di xAllFolders Call ProcessFolders (xFolder) Selanjutnya Atur Aplikasi. ActiveExplorer.CurrentFolder = xCurrentFolder End Sub Sub ProcessFolder (ByVal CurFolder As Folder) Dim xSubfolder Sebagai Folder Pada Kesalahan Lanjutkan Selanjutnya Jika CurFolder.DefaultItemType <> olMailItem Kemudian Keluar Set Aplikasi Set.ActiveExplorer.CurrentFolder = CurFolder DoEvents Jika CurFolder.Folders.Count = 0 Kemudian Keluar Sub Untuk Setiap xSubfolder Di CurFolder.Folders Call ProcessFolders (xSubfolder) Selanjutnya End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan semua subfolder di semua akun Outlook Anda telah diperluas, lihat screenshot:

Kutools for Outlook

Lebih dari 100 Fungsi Lanjut untuk Outlook 2010, 2013, 2016, 2019 dan 365

Fitur Lebih | Free download | Hanya $ 39.00 untuk ratusan fungsi