Cookies ни помагат да постигнем нашите услуги. С помощта на нашите услуги, Вие се съгласявате да използвате нашите бисквитки.
Съвет: Други езици са преведени от 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:

Подложка ExpandAllMailFolders () Dim xCurrentFolder като папка Dim xAllFolders като папки Dim xFolder като папка при възобновяване на грешката Следващо задаване xCurrentFolder = Application.ActiveExplorer.CurrentFolder Задаване xAllFolders = Application.Session.Folders за всеки xFolder в xAllFolders CallFolderFolders (xFolder) ActiveExplorer.CurrentFolder = xCurrentFolder End Sub Подпрограми за обработка (ByVal CurFolder като папка) Dim xSubfolder като папка при грешка Resume Следваща Ако CurFolder.DefaultItemType <> olMailItem След излизане Sub набор Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents Ако CurFolder.Folders.Count = 0 След това Exit Sub за всеки xSubfolder в CurFolder.Folders Файлове за обработка на обаждания (xSubfolder) Next End Sub

3, След това натиснете F5 ключ за стартиране на този код и всички подпапки във всички профили на Outlook са разширени, вижте екранната снимка:

doc разширете подпапките 1



Kutools за Outlook

Повече от 100 разширени функции за Outlook 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.