Cookies nám pomáhají poskytovat naše služby. Využitím našich služeb, souhlasíte s našimi používání cookies.
Tip: Jiné jazyky jsou přeloženy společností Google. Můžete navštívit English verze tohoto odkazu.
Přihlásit se
x
or
x
x
Registrovat
x

or

Jak otevřít všechny podsložky z aplikace Outlook?

Pokud vytvoříte více podsložky ve složkách aplikace Outlook, jak můžete okamžitě otevřít nebo rozbalit všechny tyto podsložky? Tento článek vám představím užitečný kód VBA, který vám pomůže vyřešit tuto práci.

Otevřete nebo rozbalte všechny podsložky z aplikace Outlook s kódem VBA


Otevřete nebo rozbalte všechny podsložky z aplikace Outlook s kódem VBA

Použijte následující kód VBA pro rozbalení všech podsložky ze všech účtů aplikace Outlook:

1. Podržte stisknuté tlačítko ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula v okně Modul vložte následující makro.

Kód VBA: Otevřete všechny podsložky z aplikace Outlook:

Sub ExpandAllMailFolders () Dim xCurrentFolder jako složka Dim xAllFolders jako složky Dim xFolder jako složka na chybě Resume Next Nastavit xCurrentFolder = Application.ActiveExplorer.CurrentFolder Nastavit xAllFolders = Application.Session.Folders pro každý xFolder v xAllFolders Volání ProcessFolders (xFolder) Next Nastavit aplikaci. ActiveExplorer.CurrentFolder = xCurrentFolder End Sub Sub procesní složky (ByVal CurFolder jako složka) Dim xSubfolder jako složka na chybě Resume Následující Pokud CurFolder.DefaultItemType <> olMailItem Poté ukončete Sub soubor Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents Pokud CurFolder.Folders.Count = 0 Potom ukončete Sub pro každý xSubfolder v CurFolder.Folders Volání ProcessFolders (xSubfolder) Next End Sub

3. Pak stiskněte tlačítko F5 klíč pro spuštění tohoto kódu a všechny podsložky ve všech účtech aplikace Outlook byly rozšířeny, viz screenshot:

doc rozbalte podsložky 1



Kutools pro aplikaci Outlook

Více než rozšířené funkce 100 pro aplikace Outlook 2010, 2013, 2016, 2019 a 365

screen shot kutools pro výhled malý pro banner 201812

Více funkcí | Stažení zdarma | Pouze $ 39.00 pro stovky funkcí

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.