Печиво допомогти нам доставити наші послуги. Користуючись нашими послугами, Ви погоджуєтесь на використання нами куки.
Порада. Інші мови - перекладена 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 як папку при помилці відновити наступний Встановити xCurrentFolder = Application.ActiveExplorer.CurrentFolder встановити xAllFolders = Application.Session.Folders для кожної xFolder В xAllFolders Call ProcessFolders (xFolder) Наступна програма. ActiveExplorer.CurrentFolder = xCurrentFolder End Sub Sub ProcessFolders (ByVal CurFolder як папка) Dim xSubfolder Як Folder On Error Продовжити Якщо CurFolder.DefaultItemType <> olMailItem Тоді Exit Sub Set Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents Якщо CurFolder.Folders.Count = 0 Тоді Вихід Sub для кожної xSubfolder в CurFolder.Folders Call ProcessFolders (xSubfolder) Наступний кінець 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.