Как автоматически развернуть все папки при запуске Outlook?
Обычно, когда вы разворачиваете или сворачиваете папку в области навигации Outlook и затем закрываете программу, папка сохраняет свое развернутое или свернутое состояние при повторном открытии Outlook. Однако что, если вы хотите, чтобы все папки автоматически расширялись при каждом запуске Outlook? В этой статье представлено решение VBA, позволяющее достичь именно этой цели.
Автоматически разворачивать все папки при запуске Outlook с помощью VBA
- Автоматизируйте отправку писем с помощью Авто CC / BCC, Автопересылка по правилам; отправлять Автоответчик (Нет на работе) без необходимости использования сервера обмена...
- Получайте напоминания, например Предупреждение BCC при ответе всем, пока вы находитесь в списке скрытых копий, и Напоминать об отсутствии вложений за забытые вложения...
- Повысьте эффективность электронной почты с помощью Ответить (всем) с вложениями, Автоматическое добавление приветствия или даты и времени в подпись или тему, Ответить на несколько писем...
- Оптимизируйте электронную почту с помощью Отозвать электронные письма, Инструменты для вложения (Сжать все, Автосохранить все...), Удалить дубликатыи Быстрый отчет...
Автоматически разворачивать все папки при запуске Outlook с помощью VBA
В этом руководстве будет показано, как использовать сценарий VBA для автоматического развертывания всех папок в области навигации при каждом запуске Outlook. Выполните следующие шаги, чтобы реализовать сценарий VBA:
- Нажмите Alt + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
- Развернуть Проект 1 и Объекты Microsoft Outlook в Проект панель, дважды щелкните, чтобы открыть Эта сессия Outlook окно, а затем вставьте в него приведенный ниже код 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. Пожалуйста, перейдите в Файл > Опции > Центр управления > Параметры центра > Настройки макроса, и выберите Включить все макросы вариант. Этот параметр позволяет сценарию VBA выполняться без каких-либо ограничений.
Статьи по теме
Массовое удаление нескольких папок в Outlook
Удалите все повторяющиеся электронные письма из почтовой папки в Outlook
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.