Kaip automatiškai išplėsti visus aplankus naudojant VBA paleidžiant „Outlook“

Daugelis vartotojų tikisi, kad visi aplankai bus automatiškai išskleisti paleidus „Outlook“. Iš tikrųjų „Outlook“ to nepalaiko. Todėl norint tai įgyvendinti, reikia naudoti VBA kodą. Šiame įraše pateikiamas trumpas vadovas.

Galbūt „Outlook“ numatytuosiuose aplankuose sukūrėte daug poaplankių. Esant tokiam dideliam aplankų skaičiui, norint greitai juos pasiekti bet kuriuo metu, galbūt norėsite, kad visi aplankai būtų nuolat išplėsti. Pirmiausia reikia nustatyti, kad „Outlook“ automatiškai išplėstų aplankus paleidžiant. Akivaizdu, kad „Outlook“ neturi tokios įdiegtos funkcijos. Todėl turite naudoti makrokomandas. Toliau išmokysime jus tai pasiekti naudojant VBA. Kaip taikyti VBA, galite peržiūrėti kitą straipsnį – „Kaip paleisti VBA kodą „Outlook“.".

Automatiškai išskleisti visus aplankus paleidžiant „Outlook“

1. Norėdami pradėti, savo „Outlook“ paspauskite „Alt + F11“, kad pasiektumėte VBA redaktorių.
2. Tada naujame lange įdėkite kodą į 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 to uždarykite VBA redaktorių.
4. Tada tinkamai išeikite iš „Outlook“ programos.
5. Vėliau paleiskite „Outlook“. Šiuo metu makrokomanda bus paleista automatiškai.
6. Paleidus „Outlook“, galite matyti, kad visi aplankai buvo išplėsti, kaip parodyta paveikslėlyje žemiau.

Laikykite visas kenkėjiškas makrokomandas įlankoje

Ar kada nors gavote el. laiškų su įtartinais failais arba įterptais nežinomomis nuorodomis? Paprastai susidūrę su tokiais el. laiškais turite padidinti savo budrumą. Niekada neturėtumėte jais pasitikėti, nes jie gali nešioti virusus. Atsisiuntus priedus arba atidarius nuorodas, gali būti užpulta ne tik „Outlook“, bet ir kompiuteris. Tuo metu jūs turite pataisyti Outlook failą. Tai gali būti gana sudėtinga, nebent turite atnaujintą „Outlook“ atsarginę kopiją arba naudojate galingą atkūrimo įrankį, pvz., DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant SQL Server korupcija ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com