A sütik segítenek nekünk Szolgáltatásainkat. Segítségével szolgáltatásainkat, Ön elfogadja a cookie-k használatát.
Tipp: Az egyéb nyelvek a Google Fordítva vannak. Látogasson el a English a link verziója.
Belépek
x
or
x
x
Regisztráció
x

or

Hogyan nyithatja meg az összes almappát az Outlookból?

Ha több almappát hoz létre az Outlook mappák alatt, hogyan lehet azonnal megnyitni vagy kibontani az összes almappát? Ebben a cikkben bemutatnék egy hasznos VBA kódot, hogy megoldja ezt a munkát.

Nyissa meg vagy bővítse ki az összes almappát az Outlookból a VBA kóddal


Nyissa meg vagy bővítse ki az összes almappát az Outlookból a VBA kóddal

Kérjük, az alábbi VBA-kódot használja az összes Outlook-fiók összes almappájának kibontására:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modul ablakba.

VBA kód: Nyissa meg az összes almappát az Outlookból:

Sub ExpandAllMailFolders () Dim xCurrentFolder Mint mapp Dim xAllFolders mappákban Dim xFolder mint mappában Hiba folytatódik Következő készlet xCurrentFolder = Application.ActiveExplorer.CurrentFolder Set xAllFolders = Alkalmazás.session.Folders Minden xFolder xAllFolderben Call ProcessFolders (xFolder) Következő alkalmazás beállítása. ActiveExplorer.CurrentFolder = xCurrentFolder Vége Sub Sub ProcessFolders (ByVal CurFolder mint mappában) Dim xSubfolder mint mappának hiba Folytatás Következő Ha CurFolder.DefaultItemType <> olMailItem Majd kilépés Sub Set Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents Ha CurFolder.Folders.Count = 0 Ezután lépjen ki az Exit Sub minden egyes xSubfolder részhez a CurFolder.Folders Hívás ProcessFolders (xSubfolder) következő vége Sub

3. Ezután nyomja meg a gombot F5 a kód futtatásához kulccsal, és az összes Outlook-fiók összes almappája kibővült, lásd a képernyőképet:

doc bővítse az 1 almappákat



Kutools for Outlook

Több, mint 100 speciális funkció az Outlook 2010, 2013, 2016, 2019 és 365 alkalmazásokhoz

képernyőn lövés kutools az Outlook 201812 számára

További funkciók | ingyenes letöltés | Csak $ 39.00 több száz funkcióért

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.