Kako samodejno razširiti vse mape prek VBA ob zagonu Outlooka

Številni uporabniki upajo, da se bodo vse mape samodejno razširile, ko zaženejo Outlook. V resnici Outlook tega izvorno ne podpira. Zato morate za to uporabiti kodo VBA. Ta objava vam bo ponudila hiter vodnik.

Morda ste v privzetih mapah v Outlooku ustvarili veliko podmap. Zaradi toliko map in hitrega dostopa do njih boste morda želeli imeti vse mape ves čas razširjene. Prvi korak mora biti, da Outlook ob zagonu samodejno razširi mape. Očitno v Outlooku ni takšne izvorne funkcije. Zato morate uporabiti makre. V nadaljevanju vas bomo naučili, kako to doseči z VBA. Glede uporabe VBA si lahko ogledate drug članek – “Kako zagnati kodo VBA v Outlooku".

Samodejno razširi vse mape ob zagonu Outlooka

1. Za začetek v Outlooku pritisnite »Alt + F11« za dostop do urejevalnika VBA.
2. Nato v novem oknu vstavite kodo v projekt »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. Po tem zaprite urejevalnik VBA.
4. Nato pravilno zaprite aplikacijo Outlook.
5. Kasneje zaženite Outlook. Na tej točki se bo makro zagnal samodejno.
6. Ko se Outlook zažene, lahko vidite, da so bile vse mape razširjene, kot je prikazano na spodnji sliki.

Zavarujte vse zlonamerne makre

Ste že kdaj prejeli e-poštna sporočila, ki so pripeta s sumljivimi datotekami ali so vdelana z neznanimi povezavami? Običajno morate pri soočanju s takšnimi e-poštnimi sporočili povečati svojo pazljivost. Nikoli jim ne smete zlahka zaupati, saj lahko prenašajo viruse. Ko prenesete priloge ali odprete povezave, lahko napadete ne samo Outlook, ampak tudi računalnik. Takrat morate popravilo Outlook mapa. Lahko je precej zapleteno, razen če imate posodobljeno varnostno kopijo Outlooka ali uporabite zmogljivo orodje za obnovitev, kot je npr. DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z SQL Server korupcija in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com