Как автоматически развернуть все папки при запуске Outlook?

АвторКеллиДата изменения2024-09-18

Обычно, когда вы разворачиваете или сворачиваете папку в области навигации Outlook, а затем закрываете программу, её состояние (развёрнутое или свёрнутое) сохраняется при следующем запуске. Но что, если вы хотите, чтобы все папки автоматически разворачивались каждый раз при открытии Outlook? В этой статье представлено решение с использованием VBA.

Автоматически Развернуть все папки при запуске Outlook с помощью VBA

Автоматически Развернуть все папки при запуске 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 все папки будут автоматически разворачиваться.

Примечания:

Этот макрос VBA не может развернуть свёрнутые папки поиска при перезапуске Outlook.
Чтобы макрос VBA работал корректно, необходимо настроить параметры макросов в Outlook. Перейдите в меню Файл > Параметры > Центр управления безопасностью > Параметры центра управления безопасностью > Параметры макросов и выберите опцию Включить все макросы. Эта настройка позволяет запускать макрос VBA без каких-либо ограничений.

AI Mail Assistant в Outlook: умнее ответы, яснее общение (волшебство одним щелчком!)

Оптимизируйте повседневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook — мощного инструмента, который анализирует ваши прошлые письма, чтобы предлагать умные и точные ответы, улучшать содержание сообщений и помогать легко создавать и редактировать тексты.

Эта функция поддерживает:

Умные ответы: получайте персонализированные, точные и готовые к отправке ответы, созданные на основе вашей прошлой переписки.
Улучшенное содержание: автоматически повышайте ясность и выразительность текста письма.
Легкое составление: просто укажите ключевые слова, а ИИ сделает всё остальное — с несколькими стилями письма на выбор.
Интеллектуальные расширения: развивайте свои идеи с помощью контекстно-зависимых предложений.
Суммаризация: мгновенно получайте краткие обзоры длинных писем.
Глобальный охват: легко переводите свои письма на любой язык.

Эта функция поддерживает:

Умные ответы на письма
Оптимизированное содержание
Черновики по ключевым словам
Интеллектуальное расширение содержания
Суммаризация писем
Многоязыковой перевод

Не ждите —скачайте AI Mail Assistant прямо сейчас и наслаждайтесь!

Связанные статьи

Удаление нескольких папок группой в Outlook

Удалить все Дубликаты писем из почтовой папки в Outlook

Лучшие инструменты для повышения продуктивности в Office

Оцените совершенно новый Kutools для Outlook с 100+ потрясающими функциями!Нажмите, чтобы скачать прямо сейчас!

🤖KUTOOLS AI:Использует передовые технологии ИИ для удобной работы с электронной почтой: ответы, составление резюме, оптимизация, расширение, перевод и создание писем.

📧Автоматизация работы с электронной почтой: Автоответ (доступен для POP и IMAP) / Планирование отправки писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения…

📨Управление электронной почтой: Отозвать письмо / Блокировка спама по теме и другим признакам / Удаление дубликатов писем / Расширенный поиск / Организация папок…

📁Продвинутая работа с вложениями: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие…

🌟Волшебство интерфейса: 😊Еще больше красивых и стильных эмодзи / Напоминание о важных входящих письмах / Сворачивание Outlook вместо закрытия…

👍Чудеса одним щелчком: Ответить всем с вложениями / Защита от фишинговых писем / 🕘Отображение часового пояса: текущее время отправителя…

👩🏼‍🤝‍👩🏻Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделение группы контактов на отдельные группы / Удаление напоминания о дне рождения…

Используйте Kutools на вашем любимом языке — поддержка английского, испанского, немецкого, французского, китайского и более чем 40 других языков!

Мгновенно получите доступ к Kutools для Outlook одним щелчком! Не теряйте время — скачайте прямо сейчас и повысьте свою эффективность!

Список функций Kutools для Outlook Скачать сейчас Перейти к покупке

🚀 Скачать одним щелчком — Получите все надстройки для Office

Настоятельно рекомендуется: Kutools for Office (5 в 1)

Скачайте одним щелчком пять установщиковсразу —Kutools для Excel, Outlook, Word, PowerPointи Office Tab Pro.Нажмите, чтобы скачать прямо сейчас!

✅Удобство одним щелчком: Скачайте все пять установочных пакетов за одно действие.
🚀Готовы к любой задаче в Office: устанавливайте нужные надстройки именно тогда, когда они вам понадобятся.
🧰Входит в комплект: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools for PowerPoint

О пакете ⬇ Скачать пакет 💳 Приобрести пакет