Ako automaticky rozbaliť všetky priečinky pomocou VBA pri spustení Outlooku

Viacerí používatelia dúfajú, že všetky priečinky sa dajú automaticky rozbaliť po spustení Outlooku. V skutočnosti Outlook túto funkciu natívne nepodporuje. Na jej realizáciu je preto potrebné použiť kód VBA. Tento príspevok vám poskytne stručný návod.

Možno ste si v predvolených priečinkoch v programe Outlook vytvorili veľa podpriečinkov. Vzhľadom na to, že máte toľko priečinkov a chcete k nim kedykoľvek rýchlo pristupovať, možno budete chcieť mať všetky priečinky stále rozbalené. Prvým krokom musí byť automatické rozbalenie priečinkov v programe Outlook pri spustení. Je zrejmé, že v programe Outlook takáto natívna funkcia nie je. Preto musíte použiť makrá. Ďalej vás naučíme, ako to dosiahnuť pomocou VBA. Pokiaľ ide o to, ako používať VBA, môžete si prečítať iný článok – „Ako spustiť kód VBA v programe Outlook".

Automatické rozbalenie všetkých priečinkov pri spustení Outlooku

1. Na začiatok stlačte vo svojom Outlooku kombináciu klávesov „Alt + F11“, čím sa dostanete do editora VBA.
2. Potom v novom okne 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. Potom zatvorte editor VBA.
4. Následne aplikáciu Outlook správne ukončite.
5. Neskôr spustite Outlook. V tomto bode sa makro spustí automaticky.
6. Po spustení Outlooku uvidíte, že všetky priečinky boli rozbalené, ako je znázornené na obrázku nižšie.

Nechajte všetky škodlivé makrá v šachu

Dostali ste niekedy e-maily, ktoré sú pripojené k podozrivým súborom alebo sú vložené s neznámymi odkazmi? Pri konfrontácii s takýmito e-mailmi musíte zvyčajne zvýšiť svoju ostražitosť. Nikdy by ste im nemali ľahko dôverovať v to, že môžu prenášať vírusy. Po stiahnutí príloh alebo otvorení odkazov môže byť napadnutý nielen Outlook, ale aj počítač. V tom čase musíte opraviť Outlook spis. Môže to byť dosť nepríjemné, pokiaľ nemáte aktualizovanú zálohu programu Outlook alebo nepoužívate výkonný nástroj na obnovenie, ako napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane SQL Server korupcie a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S