Bagaimana cara mendapatkan daftar folder di Outlook?

Penulis: Siluvia Terakhir Dimodifikasi: 2014-09-26

Terkadang struktur pohon semua folder email (termasuk folder pribadi yang dibuat) di Panel Navigasi bisa melakukan beberapa bantuan untuk pengguna Outlook selama pekerjaan mereka. Untuk daftar cepat seluruh folder struktur pohon, kode VBA dapat membantu Anda. Dalam tutorial ini, Anda dapat mempelajari cara mendapatkan daftar folder dengan mudah menggunakan kode VBA.

Dapatkan daftar folder di Outlook dengan kode VBA

Tab Office - Aktifkan Pengeditan dan Penjelajahan dengan Tab di Microsoft Office, Membuat Pekerjaan Menjadi Mudah

Read More ...Unduh ...

Kutools for Outlook - Tingkatkan Outlook dengan 100+ Fitur Lanjutan untuk Efisiensi Unggul

Otomatiskan pengiriman email dengan CC / BCC Otomatis, Maju Otomatis berdasarkan aturan; mengirim Balas otomatis (Di Luar Kantor) tanpa memerlukan server pertukaran...
Dapatkan pengingat seperti Peringatan BCC saat membalas semua saat Anda berada di daftar BCC, dan Ingatkan Saat Lampiran Hilang untuk lampiran yang terlupakan...
Tingkatkan efisiensi email dengan Balas (Semua) Dengan Lampiran, Tambahkan Ucapan atau Tanggal & Waktu secara Otomatis ke Tanda Tangan atau Subjek, Balas Beberapa Email...
Sederhanakan pengiriman email dengan Ingat Email, Alat Lampiran (Kompres Semua, Simpan Otomatis Semua...), Hapus Duplikat, dan Laporan Cepat...

Tingkatkan Outlook 2021 - 2010 atau Outlook 365 Anda dengan fitur-fitur canggih ini. Nikmati uji coba gratis 60 hari yang komprehensif dan tingkatkan pengalaman email Anda!

Read More ...Unduh ...

Dapatkan daftar folder di Outlook dengan kode VBA

Untuk mendapatkan daftar folder di Outlook dengan kode VBA, lakukan hal berikut.

1. tekan lain + F11 pada keyboard untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Kemudian klik dua kali file Project1 > Objek Microsoft Outlook > Sesi Pandangan ini untuk membuka Project1 - ThisOutlookSession jendela. Lihat tangkapan layar:

3. Kemudian salin dan tempel kode VBA di bawah ini ke dalam jendela Project1 - ThisOutlookSession.

VBA: dapatkan daftar folder di Outlook

Option Explicit
Sub GetFoldersList()
    On Error GoTo On_Error
    
    Dim Report As String
    Dim Folder As Outlook.Folder
       
    For Each Folder In Application.Session.Folders
        Report = Report & "---------------------------------------------------------------------------" & vbCrLf
        Call RecurseFolders(Folder, "", Report)
    Next
    Call CreateReportEmail("Outlook Folders List", Report)
    
Exiting:
    Exit Sub
On_Error:
    MsgBox "error=" & Err.Number & " " & Err.Description
End Sub
Sub RecurseFolders(CurrentFolder As Outlook.Folder, TabChars, ByRef Report As String)
    Dim SubFolder As Outlook.Folder
    Dim FolderName, StoreName As String
    
    FolderName = CurrentFolder.Name
    StoreName = CurrentFolder.Store.DisplayName
    
    Report = Report & TabChars & FolderName & " (Store: " & StoreName & ")" & vbCrLf
    
    For Each SubFolder In CurrentFolder.Folders
        Call RecurseFolders(SubFolder, TabChars & vbTab, Report)
    Next SubFolder
End Sub
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub

4. tekan F5 pada keyboard untuk mulai menjalankan kode VBA.

5. Sekarang a Makro kotak dialog muncul, klik Run .

6. Tunggu Macro berjalan. Kemudian daftar semua folder email Anda akan segera dicantumkan di jendela pesan baru yang dibuat. Anda dapat dengan mudah mencetaknya. Lihat tangkapan layar: