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

Author Kelly Last modified 2025-08-26

Обычно, когда вы разворачиваете или сворачиваете папку в навигационной панели Outlook и затем закрываете программу, папка сохраняет свое развернутое или свернутое состояние при повторном открытии Outlook. Однако что делать, если вы хотите, чтобы все папки автоматически разворачивались каждый раз при запуске Outlook? Эта статья предлагает решение с использованием VBA.

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

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

Это руководство покажет, как использовать скрипт VBA для автоматического разворачивания всех папок на Навигационной панели каждый раз при запуске Outlook. Следуйте этим шагам для реализации скрипта VBA:

Нажмите клавиши Alt + F11 одновременно, чтобы открыть окно Microsoft Visual Basic for Applications.

Разверните Проект 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 for Applications.

Теперь, при перезапуске Outlook, все папки будут автоматически разворачиваться в Outlook.

Примечания:

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

AI Mail Assistant в Outlook: Умные ответы, четкое общение (волшебство в один клик!) БЕСПЛАТНО

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

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

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

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