Jak automaticky rozbalit všechny složky pomocí VBA při spuštění Outlooku

Mnoho uživatelů doufá, že se všechny složky automaticky rozbalí po spuštění Outlooku. Ve skutečnosti Outlook tuto funkci nativně nepodporuje. K jejímu provedení je tedy nutné použít kód VBA. Tento příspěvek vám poskytne rychlý návod.

Možná jste si v Outlooku vytvořili mnoho podsložek ve výchozích složkách. Vzhledem k velkému množství složek a k nimž byste měli kdykoli rychlý přístup, možná budete chtít mít všechny složky neustále rozbalené. Prvním krokem musí být automatické rozbalování složek v Outlooku při spuštění. Je zřejmé, že v Outlooku taková nativní funkce není. Proto musíte použít makra. Dále vás naučíme, jak toho dosáhnout pomocí VBA. Pokud jde o použití VBA, můžete se podívat na jiný článek – „Jak spustit kód VBA ve vašem Outlooku".

Automaticky rozbalit všechny složky při spuštění Outlooku

1. Nejprve stiskněte „Alt + F11“ v Outlooku a otevřete editor VBA.
2. Poté v novém okně vložte kód do projektu „ThisOutlookSession“.

'Auto expand all folders on startup
Private Sub Application_Startup()
    Call ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objStore As Outlook.Store
    Dim objFileFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
   
    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
 
    'Process all email accounts in your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objFileFolders = objStore.GetRootFolder.Folders
 
        For Each objFolder In objFileFolders
            Call LoopFolders(objFolder)
        Next
 
        DoEvents
        Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
    Next
End Sub

Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    Set Application.ActiveExplorer.CurrentFolder = objCurFolder
    DoEvents
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call LoopFolders(objSubfolder)
       Next
    End If
End Sub

3. Poté zavřete editor VBA.
4. Následně aplikaci Outlook správně ukončete.
5. Později spusťte Outlook. V tomto okamžiku se makro spustí automaticky.
6. Po spuštění Outlooku uvidíte, že všechny složky byly rozbaleny, jak je znázorněno na obrázku níže.

Udržujte všechna škodlivá makra v šachu

Obdrželi jste někdy e-maily, které jsou připojeny k podezřelým souborům nebo jsou vloženy s neznámými odkazy? Při konfrontaci s takovými e-maily musíte obvykle zvýšit svoji ostražitost. Nikdy byste jim neměli snadno věřit v to, že mohou přenášet viry. Jakmile si stáhnete přílohy nebo otevřete odkazy, může dojít k útoku nejen na Outlook, ale také na počítač. V té době musíte opravit Outlook soubor. Mohlo by to být docela špinavé, pokud nemáte aktualizovanou zálohu aplikace Outlook nebo nepoužíváte výkonný nástroj pro obnovení, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně SQL Server korupce a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com