Съвет: Други езици са преведени от Google. Можете да посетите English версия на тази връзка.
Влизане
x
or
x
x
Регистрирам
x

or

Как да разширяваме автоматично всички папки при стартиране на Outlook?

Най-общо казано, ако разширите или свиете папка в панела за навигация и след това затворите Outlook, папката ще продължи да се разгъва или свива при рестартиране на Outlook. Но сега има ли начин да се разширят автоматично всички папки при стартиране на Outlook? Тази статия ще въведе VBA, за да завърши задачата.

Автоматично разширете всички папки, когато стартирате Outlook с VBA

Kutools за Outlook: 100 + Нови разширени инструменти за Outlook.
Таб на Office: Активиране на редактиране и сърфиране в раздела с папки в Office, Точно като Chrome, Firefox, IE 8 / 9 / 10.
Класическо меню: Носете стари менюта и ленти с инструменти към Office 2007, 2010, 2013, 2016 и 2019.

arrow синя десен балонАвтоматично разширете всички папки, когато стартирате Outlook с VBA

Този метод ще въведе VBA автоматично да разширява всички папки в панела за навигация, когато стартирате Outlook. Моля, приложете този VBA, както следва:

1. Натиснете Друг + F11 за да отворите прозореца на Microsoft Visual Basic for Applications.

2. Разширете Проект 1 и Обекти на Microsoft Outlook в прозореца Project кликнете двукратно, за да отворите 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.


arrow синя десен балонСвързани статии



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