Печыва дапамагчы нам даставіць нашы паслугі. Карыстаючыся нашымі паслугамі, Вы згаджаецеся на выкарыстанне намі печыва.
Рада: Іншыя мовы Google-Перакладзеныя. Вы можаце наведаць English версія гэтай спасылкі.
Увайсці
x
or
x
x
рэгістрацыя
x

or

Як адкрыць усе укладзеныя папкі з Outlook?

Калі вы ствараеце некалькі подпапок тэчак Outlook ,, як бы вы адкрываеце ці разгарнуць ўсе гэтыя укладзеныя папкі адразу? У гэтым артыкуле я прадстаўлю карысны код VBA для вас, каб вырашыць гэтую працу.

Адкрыць або разгарнуць усё укладзеныя папкі з Outlook, з VBA кода


Адкрыць або разгарнуць усё укладзеныя папкі з Outlook, з VBA кода

Калі ласка, ўжыеце наступны код VBA, каб разгарнуць усё укладзеныя папкі з усіх рахункаў кліента Outlook:

1, утрымліваючы націснутай ALT + F11 ключы, каб адкрыць Microsoft Visual Basic для прыкладанняў акна.

2, націсніце Уставіць > МодуліІ ўстаўце наступны макрас ў акне модуля.

VBA код: Адкрыць усе укладзеныя папкі з Outlook:

Sub ExpandAllMailFolders () Dim xCurrentFolder Як Папка Dim xAllFolders Як Тэчкі Dim xFolder As Folder On Error Resume Next Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder Set xAllFolders = Application.Session.Folders Для кожнага xFolder У xAllFolders Выклік ProcessFolders (xFolder) Наступны набор прыкладанняў. ActiveExplorer.CurrentFolder = xCurrentFolder End Sub Sub ProcessFolders (ByVal CurFolder Як Folder) Dim xSubfolder As Folder On Error Resume Next Калі CurFolder.DefaultItemType <> olMailItem Then Exit Sub Set Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents Калі CurFolder.Folders.Count = 0 Then Exit Sub Для кожнага xSubfolder У CurFolder.Folders Выклік ProcessFolders (xSubfolder) Next End Sub

3, затым націсніце F5 ключ, каб запусціць гэты код, і ўсе укладзеныя папкі ва ўсіх рахунках вашага Outlook, былі пашыраны, см скрыншот:

док пашырыць падтэчку 1



Kutools для Outlook,

Больш 100 Пашыраныя функцыі для Перспектывы 2010, 2013, 2016, 2019 і 365

здымак экрана kutools для перспектывы маленечкага для банэра 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.