Tip: Iné jazyky sú Google preložené. Môžete navštíviť English verziu tohto odkazu.
Prihlásiť sa
x
or
x
x
Registrovať
x

or

Ako otvoriť všetky podpriečinky z programu Outlook?

Ak vytvoríte viacero podpriečinkov pod priečinkami programu Outlook, ako môžete okamžite otvoriť alebo rozšíriť všetky tieto podpriečinky? Tento článok vám predstavím užitočný kód VBA, ktorý vám pomôže vyriešiť túto prácu.

Otvorte alebo rozbaľte všetky podpriečinky z programu Outlook s kódom VBA


Otvorte alebo rozbaľte všetky podpriečinky z programu Outlook s kódom VBA

Použite nasledujúci kód VBA na rozšírenie všetkých podpriečinkov zo všetkých účtov programu Outlook:

1, Podržte stlačené tlačidlo ALT + F11 klávesy na otvorenie Microsoft Visual Basic pre aplikácie okno.

2, kliknite Vložiť > Modulya v okne Modul prilepte nasledujúce makro.

Kód VBA: Otvorte všetky podpriečinky z programu Outlook:

Sub ExpandAllMailFolders () Dim xCurrentFolder ako priečinok Dim xAllFolders ako priečinky Dim xFolder ako priečinok na chybu Resume Next Nastaviť xCurrentFolder = Application.ActiveExplorer.CurrentFolder Nastaviť xAllFolders = Application.Session.Folders pre každý xFolder v xAllFolders Call ProcessFolders (xFolder) Next Nastaviť aplikáciu. ActiveExplorer.CurrentFolder = xCurrentFolder End Sub Pod procesné zložky (ByVal CurFolder ako priečinok) Dim xSubfolder ako priečinok pri chybe pokračovať Nasledujúci Ak CurFolder.DefaultItemType <> olMailItem Potom opustite Sub súbor Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents Ak CurFolder.Folders.Count = 0 Potom ukončite Sub pre každý xSubfolder v CurFolder.Folders Volanie ProcessFolders (xSubfolder) Next End Sub

3, Potom stlačte tlačidlo F5 kľúč na spustenie tohto kódu a všetky podpriečinky vo všetkých účtoch programu Outlook boli rozšírené, pozri snímku obrazovky:

doc rozbaliť podpriečinky 1



Kutools pre program Outlook

Viac ako rozšírené funkcie 100 pre aplikácie Outlook 2010, 2013, 2016, 2019 a 365

obrazovka shot kutools pre výhľad malý pre banner 201812

Ďalšie funkcie | Bezplatné stiahnutie | Iba $ 39.00 pre stovky funkcií

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.
  • To post as a guest, your comment is unpublished.
    Doug Fisher · 17 days ago
    I have been looking for this answer for a long time! Thank you.