Tip: Jiné jazyky jsou přeloženy společností Google. Můžete navštívit English verze tohoto odkazu.
Přihlásit se
x
or
x
x
Registrovat
x

or

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

Obecně řečeno, pokud rozbalíte nebo sbalíte složku na navigačním podokně a potom zavřete aplikaci Outlook, složka zůstane při restartování aplikace Outlook rozšiřující nebo sbalení. Ale nyní existuje způsob, jak automaticky rozbalit všechny složky při spuštění aplikace Outlook? Tento článek představí VBA dokončení úkolu.

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

Kutools pro aplikaci Outlook: 100 + Nové pokročilé nástroje pro aplikaci Outlook.
Karta Office: Povolit úpravy a prohlížení v sadě Office, Stejně jako Chrome, Firefox, IE 8 / 9 / 10.
Klasická nabídka: Přineste zpět staré nabídky a panely nástrojů na sady Office 2007, 2010, 2013, 2016 a 2019.

arrow modrá pravá bublinaAutomaticky rozbalte všechny složky při spuštění aplikace Outlook s VBA

Tato metoda zavede VBA automaticky rozbalit všechny složky v navigačním podokně při spuštění aplikace Outlook. Aplikujte tento VBA následujícím způsobem:

1. lis Další + F11 současně otevřete okno Microsoft Visual Basic for Applications.

2. Rozbalte položku Projekt 1 a Objekty Microsoft Outlook v podokně Projekt dvojklikem otevřete ThisOutlookSession okno a vložte do něj kód pod kódem VBA.

VBA: Automaticky rozbalte všechny složky v aplikaci 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 zavřete okno aplikace Microsoft Visual Basic for Applications.

Od této chvíle při restartování aplikace Outlook budou všechny složky automaticky rozšiřovány v aplikaci Outlook.Poznámka: Tento VBA nemůže otevřít sbalené složky hledání při restartování aplikace Outlook.


arrow modrá pravá bublinaSouvisející články



Kutools pro aplikaci Outlook

Více než rozšířené funkce 100 pro aplikace Outlook 2010, 2013, 2016, 2019 a 365

screen shot kutools pro výhled malý pro banner 201812

Více funkcí | Stažení zdarma | Pouze $ 39.00 pro stovky funkcí

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