Outlook-u işə salarkən bütün qovluqları VBA vasitəsilə avtomatik olaraq necə genişləndirmək olar

Birdən çox istifadəçi Outlook proqramını işə saldıqda bütün qovluqların avtomatik olaraq genişləndirilə biləcəyinə ümid edir. Əslində, Outlook bunu yerli olaraq dəstəkləmir. Buna görə də, bunu həyata keçirmək üçün VBA kodundan istifadə etməlisiniz. Bu yazı sizə qısa bir bələdçi verəcək.

Outlook-da standart qovluqlar altında çoxlu alt qovluq yaratmış ola bilərsiniz. Bu qədər çox qovluq olduğundan, istənilən vaxt onlara tez bir zamanda daxil olmaq üçün bütün qovluqları daim genişləndirilmiş saxlamaq istəyə bilərsiniz. İlk addım Outlook-u başlanğıcda qovluqları avtomatik genişləndirmək üçün etmək olmalıdır. Aydındır ki, Outlook-da belə bir doğma funksiya yoxdur. Buna görə də makroslardan istifadə etməlisiniz. Bundan sonra sizə VBA ilə bunu necə edəcəyinizi öyrədəcəyik. VBA-nı necə tətbiq edəcəyinizə gəldikdə, başqa bir məqaləyə müraciət edə bilərsiniz - “Outlook-da VBA kodunu necə işlətmək olar".

Outlook-u işə salarkən bütün qovluqları avtomatik genişləndirin

1. Başlamaq üçün, VBA redaktoruna daxil olmaq üçün Outlook-da "Alt + F11" düyməsini basın.
2. Sonra, yeni pəncərədə kodu “ThisOutlookSession” layihəsinə qoyun.

'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. Bundan sonra VBA redaktorunu bağlayın.
4. Daha sonra Outlook proqramından düzgün çıxın.
5. Daha sonra Outlook-u işə salın. Bu mərhələdə makro avtomatik olaraq işə düşəcək.
6. Outlook işə düşdükdən sonra, aşağıdakı şəkildə göstərildiyi kimi, bütün qovluqların genişləndirildiyini görə bilərsiniz.

Bütün Zərərli Makrosları Bayda saxlayın

Şübhəli fayllar əlavə edilmiş və ya naməlum keçidlərlə daxil edilmiş e-poçt məktublarını heç almısınızmı? Adətən, bu cür e-poçtlarla qarşılaşdıqda, sayıqlığınızı artırmalısınız. Virus daşıya biləcəkləri üçün onlara heç vaxt etibar etməməlisiniz. Qoşmaları yüklədikdən və ya keçidləri açdıqdan sonra təkcə Outlook deyil, həm də kompüter hücuma məruz qala bilər. O zaman məcbursan Outlook-u təmir edin fayl. Yenilənmiş Outlook ehtiyat nüsxəniz olmadıqda və ya güclü bərpa alətindən istifadə etməsəniz, bu, olduqca düyünlü ola bilər. DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc SQL Server korrupsiya və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com