Ինչպես ավտոմատ կերպով ընդլայնել բոլոր թղթապանակները VBA-ի միջոցով՝ Outlook-ը գործարկելիս

Շատ օգտատերեր հույս ունեն, որ բոլոր թղթապանակները կարող են ավտոմատ կերպով ընդարձակվել իրենց Outlook-ը գործարկելիս: Իրականում Outlook-ը բնիկորեն չի աջակցում դա: Հետևաբար, դա իրականացնելու համար դուք պետք է օգտագործեք VBA կոդ: Այս գրառումը ձեզ կտա համառոտ ուղեցույց:

Դուք, հնարավոր է, Outlook-ում ստեղծել եք բազմաթիվ ենթապանակներ լռելյայն պանակներում: Հաշվի առնելով այդքան շատ պանակները, որպեսզի կարողանաք արագ մուտք գործել դրանց ցանկացած պահի, կարող եք ցանկանալ բոլոր պանակները միշտ ընդարձակված պահել: Առաջին քայլը պետք է լինի Outlook-ը գործարկելիս ավտոմատ կերպով ընդարձակել պանակները: Ակնհայտ է, որ Outlook-ում նման բնօրինակ գործառույթ չկա: Հետևաբար, դուք պետք է օգտագործեք մակրոներ: Ստորև մենք ձեզ կսովորեցնենք, թե ինչպես դա անել VBA-ի միջոցով: Ինչ վերաբերում է VBA-ի կիրառմանը, կարող եք կարդալ մեկ այլ հոդված՝ «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում".

Outlook-ը գործարկելիս ավտոմատ կերպով ընդլայնել բոլոր թղթապանակները

1. Սկսելու համար սեղմեք «Alt + F11» ձեր Outlook- ում `VBA խմբագիր մուտք գործելու համար:
2. Դրանից հետո նոր պատուհանում ծածկագիրը տեղադրեք «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. Դրանից հետո փակեք VBA խմբագիրը:
4. Դրանից հետո պատշաճ կերպով դուրս եկեք Outlook հավելվածից:
5. Ավելի ուշ, գործարկեք ձեր Outlook-ը։ Այս պահին մակրոն կաշխատի ավտոմատ կերպով։
6. Outlook-ը գործարկելուց հետո կարող եք տեսնել, որ բոլոր թղթապանակները ընդարձակվել են, ինչպես ցույց է տրված ստորև բերված նկարում:

Բոլոր չարամիտ մակրոները պահեք Bay- ում

Երբևէ ստացե՞լ եք այն նամակները, որոնք կցված են կասկածելի ֆայլերով կամ ներկառուցված են անհայտ հղումներով: Սովորաբար, նման նամակագրություններին դիմակայելիս պետք է բարձրացնեք ձեր զգոնությունը: Երբեք չպետք է պատրաստակամորեն վստահել նրանց այն հարցում, որ նրանք կարող են վիրուսներ կրել: Կցորդները ներբեռնելուց կամ հղումները բացելուց հետո ոչ միայն Outlook- ը, այլև համակարգիչը կարող է հարձակման ենթարկվել: Այդ ժամանակ դու ստիպված ես վերանորոգել Outlook- ը ֆայլ Դա կարող է լինել բավականին հանգույց, եթե չունեք Outlook- ի նորացված կրկնօրինակում կամ չօգտագործեք վերականգնման հզոր գործիք, ինչպես, օրինակ DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում SQL Server կոռուպցիա և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com