Tip: Iné jazyky sú Google preložené. Môžete navštíviť English verziu tohto odkazu.
Prihlásiť sa
x
or
x
x
Registrovať
x

or

Ako automaticky rozbaliť všetky priečinky pri spustení programu Outlook?

Vo všeobecnosti, ak rozbalíte alebo zbalíte priečinok na paneli navigácie a potom zatvoríte program Outlook, priečinok zostane pri reštartovaní programu Outlook rozbalený alebo zbalí. Teraz však existuje možnosť rozšírenia všetkých priečinkov automaticky pri spustení aplikácie Outlook? Tento článok predstaví funkciu VBA na dokončenie úlohy.

Automaticky rozbaliť všetky priečinky pri spustení programu Outlook s VBA

Kutools pre program Outlook: 100 + Nové pokročilé nástroje pre program Outlook.
Karta Office: Povoliť úpravu a prehliadanie v karte v Office, Rovnako ako Chrome, Firefox, IE 8 / 9 / 10.
Klasická ponuka: Prineste staré ponuky a panely s nástrojmi do aplikácie Office 2007, 2010, 2013, 2016 a 2019.

arrow modrá pravá bublinaAutomaticky rozbaliť všetky priečinky pri spustení programu Outlook s VBA

Táto metóda zavádza VBA automaticky rozbaliť všetky priečinky na navigačnej table pri spustení programu Outlook. Prosím, použite tento VBA nasledovne:

1. lis ostatné + F11 súčasne otvorte okno programu Microsoft Visual Basic for Applications.

2. Rozbaľte položku projekt 1 a Objekty Microsoft Outlook v podokne Projekt dvakrát kliknutím otvoríte ThisOutlookSession okienko a vložte do neho kód pod kódom VBA.

VBA: Automaticky rozbaliť všetky priečinky v programe 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. Uložte kód a zatvorte okno Microsoft Visual Basic for Applications.

Od tejto chvíle pri reštartovaní programu Outlook sa všetky priečinky automaticky rozšíria v programe Outlook.Poznámky: Tento VBA nemôže otvoriť zbalené vyhľadávacie priečinky po reštartovaní programu Outlook.


arrow modrá pravá bublinasúvisiace články



Kutools pre program Outlook

Viac ako rozšírené funkcie 100 pre aplikácie Outlook 2010, 2013, 2016, 2019 a 365

obrazovka shot kutools pre výhľad malý pre banner 201812

Ďalšie funkcie | Bezplatné stiahnutie | Iba $ 39.00 pre stovky funkcií

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. :)