Cookies membantu kami memberikan layanan kami. Dengan menggunakan layanan kami, Anda setuju untuk kami menggunakan cookies.
Kiat: Bahasa lain adalah Terjemahan-Google. Anda dapat mengunjungi English versi link ini
Masuk
x
or
x
x
Daftar
x

or

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:

dokumen memperluas subfolder 1



Kutools for Outlook

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

tangkapan layar kutools untuk outlook mungil untuk spanduk 201812

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

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.