Cookies membantu kami menyampaikan perkhidmatan kami. Dengan menggunakan perkhidmatan kami, anda bersetuju dengan penggunaan cookies.
Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar
x

or

Bagaimana untuk membuka semua subfolder dari Outlook?

Jika anda membuat beberapa subfolder di bawah folder Outlook anda, bagaimana anda boleh membuka atau mengembangkan semua subfolder ini dengan segera? Artikel ini, saya akan memperkenalkan kod VBA yang berguna untuk anda menyelesaikan tugas ini.

Terbuka atau mengembangkan semua subfolder dari Outlook dengan kod VBA


Terbuka atau mengembangkan semua subfolder dari Outlook dengan kod VBA

Sila gunakan kod VBA berikut untuk mengembangkan semua subfolder dari semua akaun Outlook:

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

2. Klik Memasukkan > Modul, dan tampal makro berikut dalam Tetingkap Modul.

Kod VBA: Buka semua subfolder dari Outlook:

Sub ExpandAllMailFolders () Dim xCurrentFolder Sebagai Folder Dim xAllFolders Sebagai Folder Dim xFolder Sebagai Folder On Error Resume Set Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder Set xAllFolders = Application.Session.Folders For Each xFolder In xAllFolders Call ProcessFolders (xFolder) Next Set Application. ActiveExplorer.CurrentFolder = SubFolder SubCurrentFolder SubFolder (ByVal CurFolder As Folder) Dim xSubfolder Sebagai Folder On Ralat Berulang Seterusnya Jika CurFolder.DefaultItemType <> olMailItem Kemudian Exit Sub Set Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents Jika CurFolder.Folders.Count = 0 Kemudian Keluar Sub Untuk Setiap xSubfolder Dalam CurFolder.Folders Call ProcessFolders (xSubfolder) Next End Sub

3. Kemudian tekan F5 kunci untuk menjalankan kod ini, dan semua subfolder dalam semua akaun Outlook anda telah diperluaskan, lihat tangkapan skrin:

doc mengembangkan subfolder 1



Kutools untuk Outlook

Lebih daripada Fungsi Lanjutan 100 untuk Outlook 2010, 2013, 2016, 2019 dan 365

kutools pukulan skrin untuk outlook kecil untuk sepanduk 201812

Lebih Ciri-ciri | Muat turun percuma | Hanya $ 39.00 untuk beratus-ratus 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.