Outlook'u Başlatırken VBA Kullanarak Tüm Klasörleri Otomatik Olarak Genişletme

Birçok kullanıcı, Outlook'u başlattıklarında tüm klasörlerin otomatik olarak genişletilmesini umuyor. Gerçekte, Outlook bunu doğal olarak desteklemiyor. Bu nedenle, bunu gerçekleştirmek için VBA kodu kullanmanız gerekiyor. Bu yazı size hızlı bir rehber sunacak.

Outlook'ta varsayılan klasörlerin altında birçok alt klasör oluşturmuş olabilirsiniz. Bu kadar çok klasörle karşı karşıya kaldığınızda, bunlara her zaman hızlı bir şekilde erişebilmek için tüm klasörleri her zaman açık tutmak isteyebilirsiniz. İlk adım, Outlook'un başlangıçta klasörleri otomatik olarak genişletmesini sağlamaktır. Açıkçası, Outlook'ta böyle yerleşik bir işlev yoktur. Bu nedenle, makrolardan yararlanmanız gerekir. Bundan sonra, bunu VBA ile nasıl başaracağınızı öğreteceğiz. VBA'nın nasıl uygulanacağına gelince, başka bir makaleye bakabilirsiniz – “Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".

Outlook başlatıldığında tüm klasörleri otomatik olarak genişlet.

1. Başlamak için, VBA düzenleyicisine erişmek için Outlook'unuzda "Alt + F11" tuşlarına basın.
2. Ardından, yeni pencerede, kodu "ThisOutlookSession" projesine yerleştirin.

'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 editörünü kapatın.
4. Ardından, Outlook uygulamasından düzgün şekilde çıkın.
5. Daha sonra Outlook'u başlatın. Bu aşamada makro otomatik olarak çalışacaktır.
6. Outlook başlatıldıktan sonra, aşağıdaki şekilde gösterildiği gibi tüm klasörlerin genişletilmiş olduğunu görebilirsiniz.

Tüm Kötü Amaçlı Makroları Uzak Tutun

Hiç şüpheli dosyalarla eklenmiş veya bilinmeyen bağlantılarla katıştırılmış e-postalar aldınız mı? Genellikle, bu tür e-postalarla karşılaştığınızda, uyanıklığınızı artırmanız gerekir. Virüs taşıyabilecekleri için onlara asla kolayca güvenmemelisiniz. Ekleri indirdiğinizde veya bağlantıları açtığınızda, yalnızca Outlook değil, bilgisayar da saldırıya uğrayabilir. O zaman, zorundasın Outlook'u onar dosya. Güncelleştirilmiş bir Outlook yedeğiniz yoksa veya aşağıdaki gibi güçlü bir kurtarma aracı kullanmıyorsanız, oldukça karmaşık olabilir. DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. SQL Server rüşvet ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com