როგორ გავაფართოვოთ ავტომატურად ყველა საქაღალდე 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.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის SQL Server კორუფციის და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად