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

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

Možda ste stvorili mnogo podmapa pod zadanim mapama u Outlooku. S obzirom na toliko mapa, kako biste im mogli brzo pristupiti u bilo kojem trenutku, možda ćete htjeti da sve mape budu stalno proširene. Prvi korak mora biti da Outlook automatski proširi mape pri pokretanju. Očito je da u Outlooku ne postoji takva izvorna funkcija. Stoga morate koristiti makroe. U nastavku ćemo vas naučiti kako to postići pomoću VBA-e. Što se tiče primjene VBA-e, 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 vašem Outlooku za pristup VBA editoru.
2. Zatim u novom prozoru stavite kod u 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. Nakon toga zatvorite VBA editor.
4. Nakon toga ispravno izađite iz programa Outlook.
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 makronaredbe podalje

Jeste li ikada primili e-poštu u kojoj su priložene sumnjive datoteke ili su ugrađene nepoznate veze? Obično, kada se suočavate s takvim porukama e-pošte, morate povećati svoj oprez. Nikada se ne biste smjeli odmah pouzdati u njih jer mogu nositi viruse. Nakon što preuzmete privitke ili otvorite poveznice, ne samo Outlook, već i računalo može biti napadnuto. U to vrijeme morate popraviti Outlook datoteka. Moglo bi biti prilično zamršeno osim ako nemate ažuriranu sigurnosnu kopiju programa Outlook ili koristite moćan alat za oporavak, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server korupcija i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com