Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

Kutools for Outlook: 100 + Новые расширенные инструменты для Outlook.
Office Tab: Включить редактирование вкладок и просмотр в офисе, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Классическое меню: Принесите старые меню и панели инструментов назад для Office 2007, 2010, 2013, 2016 и 2019.

arrow синий правый пузырьАвтоматически расширять все папки при запуске Outlook с помощью VBA

Этот метод будет вводить VBA для автоматического расширения всех папок в области переходов при запуске Outlook. Пожалуйста, примените этот VBA следующим образом:

1. Нажмите другой + F11 чтобы открыть окно Microsoft Visual Basic для приложений.

2. Разверните Проект 1 и Объекты Microsoft Outlook в области «Проект» дважды щелкните, чтобы открыть ThisOutlookSession а затем вставьте под ним код VBA.

VBA: автоматическое расширение всех папок в Outlook

Private Sub Application_Startup()
ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
On Error Resume Next
Dim Ns As Outlook.NameSpace
Dim Folders As Outlook.Folders
Dim CurrF As Outlook.MAPIFolder
Dim F As Outlook.MAPIFolder
Dim ExpandDefaultStoreOnly As Boolean

  ExpandDefaultStoreOnly = False

  Set Ns = Application.GetNamespace("Mapi")
Set CurrF = Application.ActiveExplorer.CurrentFolder

  If ExpandDefaultStoreOnly = True Then
Set F = Ns.GetDefaultFolder(olFolderInbox)
Set F = F.Parent
Set Folders = F.Folders
LoopFolders Folders, True

  Else
LoopFolders Ns.Folders, True
End If

  DoEvents
Set Application.ActiveExplorer.CurrentFolder = CurrF
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders, _
ByVal bRecursive As Boolean _
)
Dim F As Outlook.MAPIFolder

  For Each F In Folders
Set Application.ActiveExplorer.CurrentFolder = F
DoEvents

    If bRecursive Then
If F.Folders.Count Then
LoopFolders F.Folders, bRecursive
End If
End If
Next
End Sub

3. Сохраните код и закройте окно Microsoft Visual Basic для приложений.

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


arrow синий правый пузырьСтатьи по теме



Kutools for Outlook

Более чем расширенные функции 100 для Outlook 2010, 2013, 2016, 2019 и 365

снимок экрана kutools для внешнего вида крошечный для баннера 201812

Дополнительные функции | Бесплатная загрузка | Только $ 39.00 для сотен функций

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Selvi · 7 months ago
    Thank you so much.. It solved my problem. :)