Slapukai padeda mums pristatyti mūsų paslaugomis. Naudodamiesi mūsų paslaugomis, jūs sutinkate su mūsų slapukų naudojimą.
Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip atidaryti visus "Outlook" podstrus?

Jei sukursite keletą poaplankių savo "Outlook" aplankuose, kaip galėtumėte nedelsdami atidaryti ar išplėsti visus šiuos aplankus? Šiame straipsnyje aš pristatysiu naudingą VBA kodą, kad galėtumėte išspręsti šį darbą.

Atidarykite arba išplėskite visus "Outlook" aplankus su VBA kodu


Atidarykite arba išplėskite visus "Outlook" aplankus su VBA kodu

Prašome pritaikyti šį VBA kodą, kad išplėstumėte visus "Outlook" paskyros poaplankius:

1. Laikykite nuspaudę ALT + F11 raktus atidaryti "Microsoft Visual Basic for Applications" langas.

2, Spauskite įsiuvas > Moduliaiir į modulio langą įklijuokite šią makrokomandą.

VBA kodas: atidarykite visas "Outlook" podstrus:

Sub ExpandAllMailFolders () Dim xCurrentFolder Kaip aplankas Dim xAllFolders kaip aplankai Dim xFolder kaip aplanką dėl klaidos Resume Next Nustatyti xCurrentFolder = Application.ActiveExplorer.CurrentFolder Nustatyti xAllFolders = Application.Session.Folders kiekvienam xFolder Į xAllFolders skambinti ProcessFolders (xFolder) Kitas rinkinys taikymas. ActiveExplorer.CurrentFolder = xCurrentFolder pabaigos sub Sub proceso aplankai (ByVal CurFolder kaip aplankas) Dim xSubfolder Kaip aplankas dėl klaidos tęsti toliau Jei CurFolder.DefaultItemType <> olMailItem Tada Exit Sub Set Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents Jei CurFolder.Folders.Count = 0 Tada Exit Sub kiekvienam xSubfolder į CurFolder.Folders Skambinkite ProcessFolders (xSubfolder) Kitas pabaiga Sub

3. Tada paspauskite F5 raktas, norint paleisti šį kodą, o visi aplankai jūsų "Outlook" apatiniai aplankai buvo išplėsti, žr. ekrano kopiją:

doc plėsti aplankus 1



Kutools for Outlook

Daugiau nei 100 papildomos funkcijos „Outlook 2010“, „2013“, „2016“, „2019“ ir „365“

ekrano fotografavimas „kutools“, skirtas „201812“ banerio perspektyvai

Daugiau funkcijų | Nemokamas atsisiuntimas | Tik šimtai funkcijų - $ 39.00

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.