Как да отворя всички подпапки от Outlook?
Ако създадете множество подпапки във вашите папки на Outlook, как можете да отворите или разширите всички тези подпапки веднага? В тази статия ще ви представя полезен VBA код за решаване на тази задача.
Отворете или разгънете всички подпапки от Outlook с VBA код
Отворете или разгънете всички подпапки от Outlook с VBA код
Моля, приложете следния VBA код, за да разширите всички подпапки от всички акаунти в Outlook:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния макрос в прозореца на модула.
VBA код: Отворете всички подпапки от Outlook:
Sub ExpandAllMailFolders()
Dim xCurrentFolder As Folder
Dim xAllFolders As Folders
Dim xFolder As Folder
On Error Resume Next
Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder
Set xAllFolders = Application.Session.Folders
For Each xFolder In xAllFolders
Call ProcessFolders(xFolder)
Next
Set Application.ActiveExplorer.CurrentFolder = xCurrentFolder
End Sub
Sub ProcessFolders(ByVal CurFolder As Folder)
Dim xSubfolder As Folder
On Error Resume Next
If CurFolder.DefaultItemType <> olMailItem Then Exit Sub
Set Application.ActiveExplorer.CurrentFolder = CurFolder
DoEvents
If CurFolder.Folders.Count = 0 Then Exit Sub
For Each xSubfolder In CurFolder.Folders
Call ProcessFolders(xSubfolder)
Next
End Sub
3. След това натиснете F5 ключ за изпълнение на този код и всички подпапки във всички акаунти на вашия Outlook са разширени, вижте екранна снимка:
Най-добрите инструменти за продуктивност в офиса
Kutools за Outlook - Над 100 мощни функции, за да заредите вашия Outlook
🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...
📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP) / График за изпращане на имейли / Автоматично CC/BCC по правила при изпращане на имейл / Автоматично пренасочване (разширени правила) / Автоматично добавяне на поздрав / Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...
📨 Управление на Email: Лесно извикване на имейли / Блокиране на измамни имейли по теми и други / Изтриване на дублирани имейли / подробно търсене / Консолидиране на папки ...
📁 Прикачени файлове Pro: Пакетно запазване / Партидно отделяне / Партиден компрес / Автоматично запазване / Автоматично отделяне / Автоматично компресиране ...
🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони / Увеличете продуктивността на Outlook с изгледи с раздели / Минимизирайте Outlook, вместо да затваряте ...
???? Чудеса с едно кликване: Отговорете на всички с входящи прикачени файлове / Антифишинг имейли / 🕘Показване на часовата зона на подателя ...
👩🏼🤝👩🏻 Контакти и календар: Групово добавяне на контакти от избрани имейли / Разделете група контакти на отделни групи / Премахнете напомнянията за рожден ден ...
Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.