Bagaimana cara menghitung jumlah folder di bawah akun email tertentu atau semua kotak surat di Outlook?
Artikel ini membahas tentang menghitung jumlah folder di bawah akun email tertentu atau semua kotak surat di Outlook.
Hitung jumlah folder di bawah akun email tertentu atau semua kotak surat dengan kode VBA
Hitung jumlah folder di bawah akun email tertentu atau semua kotak surat dengan kode VBA
Anda dapat menghitung jumlah folder di bawah akun email tertentu atau semua kotak surat dengan kode VBA di bawah ini. 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 > Bentuk pengguna. Lihat tangkapan layar:
3. Kemudian masukkan dua Tombol Opsi dan dua Tombol Perintah ke Formulir Pengguna1, dan ubah teks tampilan tombol seperti gambar di bawah ini.
4. Ubah nama tombol opsi pertama menjadi "opbCurAkun"Dan ubah nilai properti ke Benar. Lihat tangkapan layar:
5. Lanjutkan mengubah nama tombol opsi kedua menjadi "opbSemuaAkun". Dan kemudian tentukan nama dari dua tombol perintah untuk "cdbOke"Dan"cdbBatalkan" terpisah.
6. Klik dua kali sembarang tempat kosong di UserForm1, lalu ganti kode asli dengan kode VBA di bawah ini di jendela Userform1 (Kode).
Kode VBA: Hitung jumlah folder di Outlook
Option Explicit
'Update by Extendoffice 20180504
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
UserForm1.Hide
End Sub
Private Sub cdbOk_Click()
xRet = True
UserForm1.Hide
End Sub
7. Click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Count number of folders in Outlook
Function GetSubFolderCount(ParentFolder As Folder) As Long
Dim xSubFolders As Folders
Dim xCurFolder As Outlook.Folder
Dim xFoldersCount As Integer
On Error Resume Next
Set xSubFolders = ParentFolder.Folders
If xSubFolders.Count > 0 Then
Set xCurFolder = xSubFolders.GetFirst
While TypeName(xCurFolder) = "MAPIFolder"
xFoldersCount = xFoldersCount + GetSubFolderCount(xCurFolder)
Set xCurFolder = xSubFolders.GetNext
Wend
GetSubFolderCount = xFoldersCount + xSubFolders.Count
Else
GetSubFolderCount = 0
End If
End Function
Sub CountFoldersInOutlook()
Dim xNameSpace As NameSpace
Dim xFolder As Folder
Dim xAllFoldersCount As Long
On Error Resume Next
UserForm1.Show
If UserForm1.xRet Then
Set xNameSpace = Outlook.Application.Session
If UserForm1.opbCurAccount.Value Then
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder.Store.GetRootFolder
xAllFoldersCount = GetSubFolderCount(xFolder)
ElseIf UserForm1.opbAllAccounts.Value Then
For Each xFolder In xNameSpace.Folders
xAllFoldersCount = xAllFoldersCount + GetSubFolderCount(xFolder)
Next
End If
Else
Exit Sub
End If
MsgBox "Total Folders: " & xAllFoldersCount, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
8. tekan F5 kunci untuk menjalankan kode. Kemudian a Formulir Pengguna1 muncul kotak dialog, untuk menghitung jumlah folder pada akun saat ini, silakan pilih Giro pilihan dan klik OK tombol. Untuk menghitung jumlah folder di semua kotak surat, pilih Semua akun pilihan dan kemudian klik OK tombol. Lihat tangkapan layar:
9. Kemudian a Kutools untuk Outlook kotak dialog muncul untuk memberitahu Anda berapa banyak folder yang ada di akun saat ini atau semua kotak surat seperti gambar di bawah ini. Silakan klik OK .
Note: Semua folder tersembunyi seperti folder Pengaturan Tindakan Percakapan dan folder Pengaturan Langkah Cepat disertakan dalam penghitungan folder.
Artikel terkait:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!