Kako automatski proširiti sve mape putem VBA prilikom pokretanja Outlooka

Mnogi korisnici se nadaju da će se sve mape automatski proširiti kada pokrenu Outlook. U stvarnosti, Outlook to izvorno ne podržava. Stoga, da biste to ostvarili, morate koristiti VBA kod. Ovaj članak će vam dati kratki vodič.

Možda ste kreirali mnogo podfoldera pod zadanim folderima u Outlooku. S obzirom na to da postoji toliko foldera, kako biste im mogli brzo pristupiti u bilo kojem trenutku, možda ćete htjeti da sve foldere uvijek budu proširene. Prvi korak mora biti da Outlook automatski proširi foldere pri pokretanju. Očigledno, ne postoji takva izvorna funkcija u Outlooku. Stoga morate koristiti makroe. U nastavku ćemo vas naučiti kako to postići pomoću VBA. Što se tiče primjene VBA, možete se pozvati na drugi članak – „Kako pokrenuti VBA kod u vašem Outlooku".

Automatsko proširivanje svih mapa prilikom pokretanja Outlooka

1. Za početak, pritisnite “Alt + F11” u svom Outlooku da biste pristupili VBA uređivaču.
2. Zatim, u novom prozoru, stavite kod u projekat “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. Nakon toga zatvorite VBA editor.
4. Nakon toga, pravilno zatvorite Outlook aplikaciju.
5. Kasnije pokrenite Outlook. U ovom trenutku, makro će se automatski pokrenuti.
6. Nakon što se Outlook pokrene, možete vidjeti da su sve mape proširene, kao što je prikazano na slici ispod.

Držite sve zlonamjerne makroe na sigurnom

Da li ste ikada primili e-poruke koje su priložene sumnjivim fajlovima ili su umetnute sa nepoznatim linkovima? Obično, kada se suočite s takvim mejlovima, morate podići svoju budnost. Nikada im ne treba vjerovati da bi mogli nositi viruse. Kada preuzmete priloge ili otvorite veze, ne samo Outlook već i računar može biti napadnut. U to vrijeme morate popraviti Outlook fajl. Moglo bi biti prilično zamršeno osim ako nemate ažuriranu sigurnosnu kopiju Outlooka ili ne koristite moćan alat za oporavak, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server korupcija i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com