Bagaimana cara menghitung jumlah subfolder di bawah folder tertentu di Outlook?

Misalkan Anda telah membuat beberapa folder di bawah folder root. Sekarang Anda ingin tahu berapa banyak subfolder di bawah folder root, bagaimana Anda bisa melakukannya? Perluas folder root dan hitung semua subfolder secara manual satu per satu? Artikel ini akan memperkenalkan metode mudah bagi Anda untuk mencapainya.

Hitung jumlah subfolder dengan kode VBA

Hitung jumlah subfolder dengan kode VBA

Kode VBA berikut dapat membantu Anda menghitung jumlah subfolder di bawah folder root tertentu di Outlook. Silakan lakukan sebagai berikut.

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

2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin dan tempel kode VBA di bawah ini ke jendela Kode.

Kode VBA: menghitung jumlah subfolder di bawah folder tertentu di Outlook

Sub CountSubFldsUnderRootFolder()
Dim xRootFolder As Folder
Dim xFolderCount As Long
Dim xFolder As Object
On Error Resume Next
'Set xRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set xRootFolder = Outlook.Application.Session.PickFolder
If TypeName(xRootFolder) = "Nothing" Then Exit Sub
If xRootFolder.Folders.Count < 1 Then
    MsgBox "No subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
    Exit Sub
End If
For Each xFolder In xRootFolder.Folders
    If xFolder.Name <> "Conversation Action Settings" And xFolder.Name <> "Quick Step Settings" Then
        xFolderCount = xFolderCount + 1
        Call ProcessFolders(xFolder, xFolderCount)
    End If
Next
MsgBox xFolderCount & " subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
End Sub

Sub ProcessFolders(SubFolder As MAPIFolder, Num As Long)
Dim xSubFolder As MAPIFolder
On Error Resume Next
Num = Num + SubFolder.Folders.Count
For Each xSubFolder In SubFolder.Folders
    Call ProcessFolders(xSubFolder, Num)
Next
End Sub

3. tekan F5 kunci untuk menjalankan kode.

4. Dalam pembukaan Pilih Folder kotak dialog, pilih folder yang akan Anda hitung subfoldernya, lalu klik OK tombol. Lihat tangkapan layar:

5. Kemudian a Kutools untuk Outlook kotak dialog muncul untuk memberitahu Anda berapa banyak subfolder yang ada di folder tertentu. Lihat tangkapan layar:

Artikel terkait:

• Bagaimana cara menghitung jumlah folder di bawah akun email tertentu atau semua kotak surat di Outlook?
• Bagaimana cara menyatukan semua kotak masuk dari beberapa akun untuk menampilkan semua email bersama di Outlook?
• Bagaimana cara menampilkan dialog "Browse for Folder" untuk memilih folder di Outlook?
• Bagaimana menemukan folder yang hilang yang dipindahkan secara tidak sengaja di Outlook?

---

Alat Produktivitas Kantor Terbaik

Kutools untuk Outlook - Lebih dari 100 Fitur Canggih untuk Meningkatkan Outlook Anda

🤖 Asisten Surat AI: Email profesional instan dengan keajaiban AI--satu klik untuk mendapatkan balasan jenius, nada sempurna, penguasaan multibahasa. Ubah email dengan mudah! ...

📧 Email Otomatis: Di Luar Kantor (Tersedia untuk POP dan IMAP)  /  Jadwal Kirim Email  /  Auto CC/BCC Sesuai Aturan Saat Mengirim Email  /  Penerusan Otomatis (Aturan Lanjutan)   /  Tambah Salam Otomatis   /  Secara Otomatis Membagi Email Multi-Penerima menjadi Pesan Individual ...

📨 email Management: Mengingat Email dengan Mudah  /  Blokir Email Penipuan berdasarkan Subjek dan Lainnya  /  Hapus Email Duplikat  /  Pencarian  /  Konsolidasi Folder ...

📁 Lampiran Pro: Penyimpanan Batch  /  Pelepasan Batch  /  Kompres Batch  /  Penyimpanan otomatis   /  Lepaskan Otomatis  /  Kompres Otomatis ...

🌟 Antarmuka Ajaib: 😊Lebih Banyak Emoji Cantik dan Keren   /  Tingkatkan Produktivitas Outlook Anda dengan Tampilan Tab  /  Minimalkan Outlook Daripada Menutup ...

👍 Keajaiban sekali klik: Balas Semua dengan Lampiran Masuk  /   Email Anti-Phishing  /  🕘Tampilkan Zona Waktu Pengirim ...

👩🏼‍🤝‍👩🏻 Kontak & Kalender: Batch Tambahkan Kontak Dari Email yang Dipilih  /  Bagi Grup Kontak menjadi Grup Individual  /  Hapus Pengingat Ulang Tahun ...

Lebih 100 Fitur Tunggu Eksplorasi Anda! Klik Di Sini untuk Menemukan Lebih Banyak.

Baca Selengkapnya       Free download      Pembelian