Рада: Іншыя мовы Google-Перакладзеныя. Вы можаце наведаць English версія гэтай спасылкі.
Увайсці
x
or
x
x
рэгістрацыя
x

or

Як аўтаматычна разгарнуць ўсе тэчкі пры запуску Outlook ,?

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

Аўтаматычна разгарнуць ўсе тэчкі пры запуску Outlook, з дапамогай VBA

Kutools для Outlook,: 100 + New Advanced Tools для Outlook.
ўкладка Упраўленне: Ўключыць укладкамі Рэдагаванне і прагляду ў Бюро, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu: Прынясіце Старое меню і панэлі інструментаў Назад у офіс 2007, 2010, 2013, 2016 і 2019.

стрэлка сіняга правага бурбалкіАўтаматычна разгарнуць ўсе тэчкі пры запуску Outlook, з дапамогай VBA

Гэты метад будзе ўвесці VBA аўтаматычна разгортваць ўсе тэчкі на панэлі навігацыі пры запуску Outlook. Калі ласка прымяняць гэтую VBA наступным чынам:

1. прэс Alt + F11 клавішы адначасова, каб адкрыць Microsoft Visual Basic для прыкладанняў вокны.

2. разгарніце Праект 1 і Microsoft Перспектывы аб'ектаў у панэлі 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 для прыкладанняў вокны.

Цяпер, пры паўторным запуску Outlook, усе тэчкі будуць аўтаматычна пашыраныя ў Outlook.Нататка: Гэта VBA не можа адкрыць складзеную тэчку пошуку пры перазапуску Outlook.


стрэлка сіняга правага бурбалкіАртыкулы па Тэме



Kutools для Outlook,

Больш 100 Пашыраныя функцыі для Перспектывы 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. :)