Порада. Інші мови - перекладена Google. Ви можете відвідати English версія цього посилання.
увійти
x
or
x
x
Реєстрація
x

or

Як автоматично розгорнути всі папки при запуску Outlook?

Взагалі кажучи, якщо ви розширюєте або згортаєте папку на панелі навігації та закриваєте Outlook, папка буде продовжувати розширюватися або згортатися при перезавантаженні Outlook. Але тепер, чи існує спосіб автоматично розгорнути всі папки при запуску Outlook? Ця стаття представить VBA для виконання завдання.

Автоматично розкривайте всі папки при запуску Outlook з VBA

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

Стрілка синього правого міхураАвтоматично розкривайте всі папки при запуску Outlook з VBA

Цей метод введе VBA для автоматичного розширення всіх папок на панелі навігації під час запуску Outlook. Будь ласка, застосуйте цей VBA таким чином:

1. прес інший + F11 клавіші одночасно, щоб відкрити вікно Microsoft Visual Basic for Applications.

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 for Applications.

Відтепер при перезавантаженні Outlook усі папки автоматично розгорнуться в Outlook.примітки: Цей VBA не може відкрити згорнутий каталог пошуку під час перезавантаження Outlook.


Стрілка синього правого міхураСтатті по темі



Kutools для 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 · 6 months ago
    Thank you so much.. It solved my problem. :)