Cum să extindeți automat toate folderele prin VBA la pornirea Outlook

Mai mulți utilizatori speră că toate folderele pot fi extinse automat atunci când lansează Outlook. În realitate, Outlook nu oferă suport nativ pentru acest lucru. Prin urmare, pentru a realiza acest lucru, trebuie să utilizați cod VBA. Această postare vă va oferi un ghid rapid.

Este posibil să fi creat o mulțime de subfoldere în folderele implicite din Outlook. Având în vedere numărul mare de foldere, pentru a le accesa rapid în orice moment, este posibil să doriți să păstrați toate folderele extinse tot timpul. Primul pas trebuie să fie configurarea Outlook pentru a extinde automat folderele la pornire. Evident, nu există o astfel de funcție nativă în Outlook. Prin urmare, trebuie să utilizați macrocomenzi. În continuare, vă vom învăța cum să realizați acest lucru cu VBA. Cât despre cum să aplicați VBA, puteți consulta un alt articol – „Cum să rulați codul VBA în Outlook".

Extindere automată a tuturor folderelor la pornirea Outlook

1. Pentru început, apăsați „Alt + F11” în Outlook pentru a accesa editorul VBA.
2. Apoi, în noua fereastră, introduceți codul în proiectul „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. După aceea, închideți editorul VBA.
4. Ulterior, ieșiți corect din aplicația Outlook.
5. Mai târziu, pornește Outlook. În acest moment, macrocomanda va rula automat.
6. După ce pornește Outlook, puteți vedea că toate folderele au fost extinse, așa cum se arată în figura de mai jos.

Păstrați toate macrourile rău intenționate la distanță

Ați primit vreodată e-mailuri care sunt atașate cu fișiere suspecte sau care sunt încorporate cu linkuri necunoscute? De obicei, atunci când te confrunți cu astfel de e-mailuri, trebuie să-ți ridici vigilența. Nu ar trebui să aveți încredere niciodată în ei, deoarece ar putea transporta viruși. Odată ce descărcați atașamentele sau deschideți linkurile, nu numai Outlook, ci și computerul ar putea fi atacat. În acel moment, trebuie repara Outlook fişier. Ar putea fi destul de complicat, cu excepția cazului în care aveți o copie de rezervă a Outlook actualizată sau nu utilizați un instrument puternic de recuperare, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv SQL Server corupţie și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com