Cara Mengekspansi Semua Folder Secara Otomatis melalui VBA saat Memulai Outlook Anda

Banyak pengguna berharap semua folder dapat diekspansi secara otomatis saat mereka membuka Outlook. Namun kenyataannya, Outlook tidak mendukung fitur ini secara bawaan. Oleh karena itu, untuk mewujudkannya, Anda harus menggunakan kode VBA. Artikel ini akan memberikan panduan singkat.

Anda mungkin telah membuat banyak subfolder di bawah folder default di Outlook. Dengan banyaknya folder tersebut, agar dapat mengaksesnya dengan cepat kapan saja, Anda mungkin ingin agar semua folder tetap terbuka setiap saat. Langkah pertama adalah membuat Outlook secara otomatis membuka folder saat startup. Tentu saja, tidak ada fungsi bawaan seperti itu di Outlook. Oleh karena itu, Anda harus menggunakan makro. Selanjutnya, kami akan mengajari Anda cara melakukannya dengan VBA. Untuk cara menerapkan VBA, Anda dapat merujuk ke artikel lain – “Cara Menjalankan Kode VBA di Outlook Anda".

Perluas Semua Folder Secara Otomatis saat Memulai Outlook

1. Untuk memulai, tekan "Alt + F11" di Outlook Anda untuk mengakses editor VBA.
2. Kemudian, di jendela baru, masukkan kode ke dalam proyek "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. Setelah itu tutup editor VBA.
4. Selanjutnya, keluar dari aplikasi Outlook dengan benar.
5. Selanjutnya, buka Outlook Anda. Pada tahap ini, makro akan berjalan secara otomatis.
6. Setelah Outlook terbuka, Anda dapat melihat bahwa semua folder telah diperluas, seperti yang ditunjukkan pada gambar di bawah ini.

Simpan Semua Makro Berbahaya di Bay

Pernahkah Anda menerima email yang dilampirkan dengan file mencurigakan atau yang disematkan dengan tautan yang tidak dikenal? Biasanya, saat menghadapi email semacam itu, Anda harus meningkatkan kewaspadaan. Anda tidak boleh begitu saja mempercayai mereka karena mereka mungkin membawa virus. Setelah Anda mengunduh lampiran atau membuka tautan, tidak hanya Outlook tetapi juga komputer mungkin diserang. Pada saat itu, Anda harus melakukannya perbaiki Outlook mengajukan. Ini bisa sangat rumit kecuali Anda memiliki cadangan Outlook yang diperbarui atau menggunakan alat pemulihan yang kuat, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk SQL Server korupsi dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com