Տեղեկանիշ մեզ կօգնի մատուցել մեր ծառայություններից: Ըստ օգտագործելով մեր ծառայություններից, Դուք համաձայնում եք մեր օգտագործման բլիթները:
Խորհուրդ. Այլ լեզուներն են Google- թարգմանված: Դուք կարող եք այցելել այն English այս հղման տարբերակը:
Մուտք
x
or
x
x
Գրանցում
x

or

Ինչպես բացել բոլոր subfolders Outlook- ից:

Եթե ​​դուք ստեղծում եք բազմաթիվ թղթապանակներ ձեր Outlook թղթապանակների ներքո, ինչպես կարող եք բացել կամ ընդլայնել այս բոլոր ենթապլաստիկները անմիջապես: Այս հոդվածը, ես կներկայացնեմ օգտակար VBA կոդ, ձեզ համար այս աշխատանքը լուծելու համար:

Բացեք կամ ընդլայնել բոլոր subfolders Outlook- ից VBA կոդով


Բացեք կամ ընդլայնել բոլոր subfolders Outlook- ից VBA կոդով

Խնդրում ենք կիրառել հետեւյալ VBA կոդը, ընդլայնելու բոլոր ենթահամակարգերը բոլոր Outlook հաշիվներից:

1. Անջատեք ALT + F11 բացել ստեղները Microsoft Visual Basic ծրագրերի համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, եւ Մոդուլի պատուհանում տեղադրեք հետեւյալ մակրոյակը:

VBA կոդը. Բացեք բոլոր ենթապարբերությունները Outlook- ից:

Sub ExpandAllMailFolders () Dim xCurrentFolder որպես թղթապանակ Dim xAllFolders որպես Թղթապանակ Dim xFolder որպես թղթապանակ է սխալում Վերսկսել Հաջորդ Սահմանել xCurrentFolder = Application.ActiveExplorer.CurrentFolder Սահմանել xAllFolders = Application.Session.Folders յուրաքանչյուր xFolder է xAllFolders Call ProcessFolders (xFolder) ActiveExplorer.CurrentFolder = xCurrentFolder End Sub Sub գործընթացը Ֆայլեր (ByVal CurFolder որպես թղթապանակ) Dim xSubfolder որպես թղթապանակ սխալ է Ռեզյումեի հաջորդ Եթե CurFolder.DefaultItemType <> olMailItem Այնուհետեւ Exit Sub Set Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents Եթե CurFolder.Folders.Count = 0 Այնուհետեւ ելք ենթեք յուրաքանչյուր xSubfolder- ում CurFolder.Folders Call ProcessFolders (xSubfolder) Next End Sub

3. Այնուհետեւ սեղմեք F5 այս կոդը գործարկելու բանալին եւ ձեր Outlook- ի բոլոր հաշիվներում գտնվող բոլոր ենթաօրենսդրական ցուցակները ընդլայնվել են, տեսնեք նկարի պատկերը.

doc ընդլայնել ենթահղթեր 1



Պահոցներ Outlook- ի համար

Ավելի քան 100- ի առաջադեմ գործառույթները, 2010, 2013, 2016, 2019 եւ 365- ի համար:

Էկրանի ստեղնաշարի համար նախատեսված փոքր տառատեսակ փոքրիկ 201812- ի համար

Լրացուցիչ հնարավորություններ | Անվճար ներբեռնում | Միայն $ 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.