Kā automātiski izvērst visas mapes, izmantojot VBA, kadtarjūsu Outlook

Vairāki lietotāji cer, ka visas mapes var automātiski paplašināt, palaižot programmu Outlook. Patiesībā programma Outlook to neatbalsta. Tādējādi, lai to realizētu, jums jāizmanto VBA kods. Šī post sniegs jums ātru ceļvedi.

Iespējams, Outlook noklusējuma mapēs esat izveidojis daudz apakšmapju. Ja vēlaties ātri piekļūt tām jebkurā laikā, varat saglabāt visu mapju paplašināšanu visu laiku. Pirmajam solim jābūt, lai programma Outlook automātiski paplašinātu mapes startup. Acīmredzot programmā Outlook nav šādas vietējās funkcijas. Tādējādi jums jāizmanto makro. Turpmāk mēs iemācīsim jums to sasniegt ar VBA. Par to, kā piemērot VBA, varat atsaukties uz citu rakstu - “Kā palaist VBA kodu programmā Outlook".

Automātiski izvērst visas mapes, kad StarOutlook

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 start jūsu Outlook. Šajā brīdī makro darbosies automātiski.
6. Pēc Outlook starUz augšu 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