Как автоматично да разширите всички папки при стартиране на Outlook?
Обикновено, когато разгънете или свиете папка в навигационния панел на Outlook и впоследствие затворите програмата, папката запазва своето разгънато или свито състояние при повторно отваряне на Outlook. Но какво ще стане, ако искате всички папки да се разширяват автоматично всеки път, когато стартирате Outlook? Тази статия предоставя VBA решение за постигане на точно това.
Автоматично разширяване на всички папки при стартиране на Outlook чрез VBA
- Автоматизирайте изпращането на имейл с Автоматично CC/BCC, Автоматично препращане по правила; изпрати Автоматичен отговор (Извън офиса) без да е необходим сървър за обмен...
- Получавайте напомняния като BCC Предупреждение когато отговаряте на всички, докато сте в списъка BCC, и Напомняне при липсващи прикачени файлове за забравени прикачени файлове...
- Подобрете ефективността на имейл с Отговор (на всички) с прикачени файлове, Автоматично добавяне на поздрав или дата и час в подпис или тема, Отговорете на няколко имейла...
- Опростете изпращането на имейл с Извикване на имейли, Инструменти за прикачване (Компресиране на всички, автоматично запазване на всички...), Премахване на дубликати, и Бърз доклад...
Автоматично разширяване на всички папки при стартиране на Outlook чрез VBA
Това ръководство ще демонстрира как да използвате VBA скрипт за автоматично разширяване на всички папки в навигационния панел всеки път, когато стартирате Outlook. Следвайте тези стъпки, за да внедрите VBA скрипта:
- Натискане Alt + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.
- Разширете Проект 1 намлява Обекти на Microsoft Outlook в Проект панел, щракнете два пъти, за да отворите ThisOutlookSession прозорец и след това поставете следния VBA код в него.
VBA: Автоматично разширяване на всички папки в Outlook
Public WithEvents GEx As Explorer Public GFlag As Boolean Private Sub Application_Startup() 'Update by ExtendOffice 2023/12/08 Set GEx = Application.ActiveExplorer GFlag = False End Sub Private Sub GEx_SelectionChange() If GFlag = False Then ExpandAllFolders End If GFlag = True End Sub Public Sub ExpandAllFolders() Dim xNameSpace As Outlook.NameSpace Dim xFlds As Outlook.Folders Dim xCurrFld As Outlook.MAPIFolder Dim xFld As Outlook.MAPIFolder Dim xExpandDefaultStoreOnly As Boolean Dim xModule As NavigationModule On Error Resume Next xExpandDefaultStoreOnly = False Set xNameSpace = Application.Session Set xModule = Application.ActiveExplorer.NavigationPane.CurrentModule Set xCurrFld = Application.ActiveExplorer.CurrentFolder If xExpandDefaultStoreOnly = True Then Set xFld = xNameSpace.GetDefaultFolder(olFolderInbox) Set xFld = xFld.Parent Set xFlds = xFld.Folders LoopFolders xFlds, True Else LoopFolders xNameSpace.Folders, True LoopFolders xNameSpace.Folders, False End If DoEvents Set Application.ActiveExplorer.NavigationPane.CurrentModule = xModule Set Application.ActiveExplorer.CurrentFolder = xCurrFld Set xNameSpace = Nothing Set xModule = Nothing Set xCurrFld = Nothing End Sub Private Sub LoopFolders(Flds As Outlook.Folders, ByVal All As Boolean) Dim xFld As Outlook.MAPIFolder On Error Resume Next For Each xFld In Flds Select Case All Case True If xFld.DefaultItemType = olMailItem Then Set Application.ActiveExplorer.CurrentFolder = xFld DoEvents If xFld.Folders.Count > 0 Then LoopFolders xFld.Folders, All End If End If Case False Set Application.ActiveExplorer.CurrentFolder = xFld DoEvents If xFld.Folders.Count > 0 Then LoopFolders xFld.Folders, All End If End Select Next End Sub
- Запазете кода и затворете Microsoft Visual Basic за приложения прозорец.
Отсега нататък, когато рестартирате Outlook, всички папки ще бъдат автоматично разширени в Outlook.
Забележки:
- Тази VBA не може да отвори свитите папки за търсене при рестартиране на Outlook.
- За да сте сигурни, че скриптът VBA функционира правилно, е важно да коригирате настройките на макроси в Outlook. Моля, отидете на досие > Настроики > Trust Center > Настройки на Trust Center > Настройки на макросаи изберете Активирайте всички макроси опция. Тази настройка позволява на VBA скрипта да работи без никакви ограничения.
Свързани статии
Изтрийте групово няколко папки в Outlook
Изтрийте всички дублиращи се имейли от пощенска папка в Outlook
Най-добрите инструменти за продуктивност в офиса
Kutools за Outlook - Над 100 мощни функции, за да заредите вашия Outlook
🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...
📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP) / График за изпращане на имейли / Автоматично CC/BCC по правила при изпращане на имейл / Автоматично пренасочване (разширени правила) / Автоматично добавяне на поздрав / Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...
📨 Управление на Email: Лесно извикване на имейли / Блокиране на измамни имейли по теми и други / Изтриване на дублирани имейли / подробно търсене / Консолидиране на папки ...
📁 Прикачени файлове Pro: Пакетно запазване / Партидно отделяне / Партиден компрес / Автоматично запазване / Автоматично отделяне / Автоматично компресиране ...
🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони / Увеличете продуктивността на Outlook с изгледи с раздели / Минимизирайте Outlook, вместо да затваряте ...
???? Чудеса с едно кликване: Отговорете на всички с входящи прикачени файлове / Антифишинг имейли / 🕘Показване на часовата зона на подателя ...
👩🏼🤝👩🏻 Контакти и календар: Групово добавяне на контакти от избрани имейли / Разделете група контакти на отделни групи / Премахнете напомнянията за рожден ден ...
Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.