Jak automaticky rozbalit všechny složky při spuštění aplikace Outlook?

Když rozbalíte nebo sbalíte složku v navigačním podokně aplikace Outlook a následně zavřete program, složka si po opětovném otevření aplikace Outlook zachová svůj rozbalený nebo sbalený stav. Co když však chcete, aby se všechny složky automaticky rozbalily při každém spuštění aplikace Outlook? Tento článek poskytuje řešení VBA, jak toho dosáhnout.

Automaticky rozbalit všechny složky při spuštění aplikace Outlook pomocí VBA

Automaticky rozbalit všechny složky při spuštění aplikace Outlook pomocí VBA

Tato příručka ukazuje, jak použít skript VBA k automatickému rozbalení všech složek v navigačním podokně při každém spuštění aplikace Outlook. Chcete-li implementovat skript VBA, postupujte takto:

1. Stisknout Alt + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.
2. Rozbalte Projekt 1 a Objekty Microsoft Outlook v Projekt podokno, dvojitým kliknutím otevřete ThisOutlookSession okno a poté do něj vložte níže uvedený kód VBA.

   

   VBA: Automaticky rozbalte všechny složky v Outlooku

   Public WithEvents GEx As Explorer
   Public GFlag As Boolean
   Private Sub Application_Startup()
     'Update by ExtendOffice 2023/12/08
     Set GEx = Application.ActiveExplorer
     GFlag = False
   End Sub
   
   Private Sub GEx_SelectionChange()
     If GFlag = False Then
       ExpandAllFolders
     End If
     GFlag = True
   End Sub
   
   Public Sub ExpandAllFolders()
     Dim xNameSpace As Outlook.NameSpace
     Dim xFlds As Outlook.Folders
     Dim xCurrFld As Outlook.MAPIFolder
     Dim xFld As Outlook.MAPIFolder
     Dim xExpandDefaultStoreOnly As Boolean
     Dim xModule As NavigationModule
     On Error Resume Next
     xExpandDefaultStoreOnly = False
     Set xNameSpace = Application.Session
     Set xModule = Application.ActiveExplorer.NavigationPane.CurrentModule
     Set xCurrFld = Application.ActiveExplorer.CurrentFolder
     If xExpandDefaultStoreOnly = True Then
       Set xFld = xNameSpace.GetDefaultFolder(olFolderInbox)
       Set xFld = xFld.Parent
       Set xFlds = xFld.Folders
       LoopFolders xFlds, True
     Else
       LoopFolders xNameSpace.Folders, True
       LoopFolders xNameSpace.Folders, False
     End If
     DoEvents
     Set Application.ActiveExplorer.NavigationPane.CurrentModule = xModule
     Set Application.ActiveExplorer.CurrentFolder = xCurrFld
     Set xNameSpace = Nothing
     Set xModule = Nothing
     Set xCurrFld = Nothing
   End Sub
   
   Private Sub LoopFolders(Flds As Outlook.Folders, ByVal All As Boolean)
     Dim xFld As Outlook.MAPIFolder
     On Error Resume Next
     For Each xFld In Flds
       Select Case All
         Case True
           If xFld.DefaultItemType = olMailItem Then
             Set Application.ActiveExplorer.CurrentFolder = xFld
             DoEvents
             If xFld.Folders.Count > 0 Then
               LoopFolders xFld.Folders, All
             End If
           End If
         Case False
           Set Application.ActiveExplorer.CurrentFolder = xFld
           DoEvents
           If xFld.Folders.Count > 0 Then
             LoopFolders xFld.Folders, All
           End If
       End Select
     Next
   End Sub

3. Uložte kód a zavřete Microsoft Visual Basic pro aplikace okno.

Od této chvíle se při restartování Outlooku všechny složky v Outlooku automaticky rozbalí.

Související články

---

Nejlepší nástroje pro produktivitu v kanceláři

Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!

Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!

🤖 Kutools AI : Využívá pokročilou technologii umělé inteligence k snadnému zpracování e-mailů, včetně odpovídání, shrnutí, optimalizace, rozšiřování, překládání a vytváření e-mailů.

???? Automatizace e-mailu: Automatická odpověď (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Připomenout e-maily  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy Pro: Dávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Připomeňte si, když přijdou důležité e-maily  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Okamžitě odemkněte Kutools pro Outlook jediným kliknutím –trvale volný. Nečekejte, stáhněte si nyní a zvyšte svou efektivitu!

Seznam funkcí Kutools pro Outlook      Stáhněte si bezplatnou verzi      Upgradujte na Professional