Kā automātiski paplašināt visas mapes, izmantojot VBA, startējot programmu Outlook

Vairāki lietotāji cer, ka visas mapes varēs automātiski izvērst, palaižot programmu Outlook. Patiesībā programma Outlook to neatbalsta. Tādēļ, lai to īstenotu, ir jāizmanto VBA kods. Šajā ierakstā sniegta īsa pamācība.

Iespējams, programmā Outlook noklusējuma mapēs esat izveidojis daudz apakšmapju. Tā kā ir tik daudz mapju, lai tām jebkurā laikā varētu ātri piekļūt, iespējams, vēlēsities visas mapes visu laiku saglabāt izvērstas. Pirmais solis ir iestatīt programmu Outlook, lai tā automātiski izvērstu mapes startēšanas laikā. Acīmredzot programmā Outlook nav šādas iebūvētas funkcijas. Tādēļ jums ir jāizmanto makro. Tālāk mēs iemācīsim jums to panākt ar VBA. Lai uzzinātu, kā lietot VBA, varat skatīt citu rakstu — “Kā palaist VBA kodu programmā Outlook".

Automātiski izvērst visas mapes, startējot programmu Outlook

1. Lai sāktu ar to, programmā Outlook nospiediet “Alt + F11”, lai piekļūtu VBA redaktoram.
2. Pēc tam jaunajā logā ievietojiet kodu 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. Pēc tam aizveriet VBA redaktoru.
4. Pēc tam pareizi izejiet no programmas Outlook.
5. Vēlāk palaidiet programmu Outlook. Šajā brīdī makro darbosies automātiski.
6. Pēc Outlook palaišanas var redzēt, ka visas mapes ir izvērstas, kā parādīts attēlā zemāk.

Saglabājiet visus ļaunprātīgos makro līcī

Vai esat kādreiz saņēmis e-pastus, kas ir pievienoti aizdomīgiem failiem vai ir iegulti ar nezināmām saitēm? Parasti, sastopoties ar šādiem e-pastiem, jums ir jāpaaugstina modrība. Nekad nevajadzētu viņiem viegli uzticēties, jo tie var pārnēsāt vīrusus. Kad esat lejupielādējis pielikumus vai atvēris saites, var tikt uzbrukts ne tikai programmai Outlook, bet arī datoram. Tajā laikā jums tas ir jādara labot Outlook failu. Tas varētu būt diezgan mezglains, ja vien jums nav atjaunināta Outlook dublējuma vai izmantojat spēcīgu atkopšanas rīku, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp SQL Server korupcija un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar