Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara menghapus semua folder kosong di Outlook?

Misalkan ada puluhan folder kosong di bawah folder mail di Outlook, umumnya kita bisa menghapus folder kosong tersebut satu per satu dengan cara klik kanan menu. Dibandingkan dengan mengklik kanan berulang kali, artikel ini akan memperkenalkan VBA untuk dengan cepat menghapus semua subfolder kosong dari satu folder Outlook secara massal.

Hapus batch semua folder kosong di Outlook dengan VBA

Tab Office - Aktifkan Pengeditan dan Penjelajahan Tab di Office, dan Jadikan Pekerjaan Lebih Mudah ...
Kutools for Outlook - Membawa 100 Fitur Canggih yang Kuat ke Microsoft Outlook
  • CC / BCC Otomatis dengan aturan saat mengirim email; Maju Otomatis Beberapa Email berdasarkan aturan; Balas otomatis tanpa server pertukaran, dan lebih banyak fitur otomatis ...
  • Peringatan BCC - tunjukkan pesan ketika Anda mencoba membalas semua jika alamat surat Anda ada di daftar BCC; Ingatkan Saat Lampiran Hilang, dan lebih banyak fitur pengingat ...
  • Balas (Semua) Dengan Semua Lampiran dalam percakapan surat; Balas Banyak Email sekaligus; Tambah Salam Otomatis saat membalas; Tambah Tanggal & Waktu secara Otomatis ke dalam subjek ...
  • Alat Lampiran: Lepaskan Otomatis, Kompres Semua, Ganti Nama Semua, Simpan Semua Otomatis ... Laporan Cepat, Hitung Email Terpilih, Hapus Duplikat Email dan Kontak ...
  • Lebih dari 100 fitur canggih akan memecahkan sebagian besar masalah Anda di Outlook 2021 - 2010 atau Office 365. Fitur lengkap uji coba gratis 60 hari.

panah gelembung kanan biruHapus batch semua folder kosong di Outlook dengan VBA

Untuk menghapus semua subfolder kosong dari folder Outlook tertentu, lakukan hal berikut:

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

2. Klik Menyisipkan > Modul, dan tempelkan kode VBA di bawah ini ke jendela modul baru.

VBA: Hapus semua subfolder kosong dari folder Outlook tertentu secara massal

Public Sub DeletindEmtpyFolder()
Dim xFolders As Folders
Dim xCount As Long
Dim xFlag As Boolean
Set xFolders = Application.GetNamespace("MAPI").PickFolder.Folders
Do
FolderPurge xFolders, xFlag, xCount
Loop Until (Not xFlag)
If xCount > 0 Then
MsgBox "Deleted " & xCount & "(s) empty folders", vbExclamation + vbOKOnly, "Kutools for Outlook"
Else
MsgBox "No empty folders found", vbExclamation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

Public Sub FolderPurge(xFolders, xFlag, xCount)
Dim I As Long
Dim xFldr As Folder 'Declare sub folder objects
xFlag = False
If xFolders.Count > 0 Then
For I = xFolders.Count To 1 Step -1
Set xFldr = xFolders.Item(I)
If xFldr.Items.Count < 1 Then 'If the folder is empty check for subfolders
If xFldr.Folders.Count < 1 Then 'If the folder contains not sub folders confirm deletion
xFldr.Delete 'Delete the folder
xFlag = True
xCount = xCount + 1
Else 'Folder contains sub folders so confirm deletion
FolderPurge xFldr.Folders, xFlag, xCount
End If
Else 'Folder contains items or (subfolders that may be empty).
FolderPurge xFldr.Folders, xFlag, xCount
End If
Next
End If
End Sub

3. tekan F5 Kunci atau Run tombol untuk menjalankan kode VBA ini.

4. Di kotak dialog Select Folder yang bermunculan, pilih folder tertentu yang subfolder kosongnya akan Anda hapus secara massal, dan klik OK tombol. Lihat tangkapan layar:

5. Sekarang kotak dialog Kutools for Outlook keluar dan menunjukkan berapa banyak subfolder kosong yang telah dihapus. Klik OK tombol untuk menutupnya.

Hingga saat ini, semua subfolder dari folder Outlook yang ditentukan telah dihapus secara massal.


panah gelembung kanan biruArtikel terkait

Temukan folder (jalur folder lengkap) menurut nama folder di Outlook


Kutools for Outlook - Menghadirkan 100 Fitur Canggih ke Outlook, dan Membuat Pekerjaan Lebih Mudah!

  • CC / BCC Otomatis dengan aturan saat mengirim email; Maju Otomatis Beberapa Email secara khusus; Balas otomatis tanpa server pertukaran, dan lebih banyak fitur otomatis ...
  • Peringatan BCC - tunjukkan pesan ketika Anda mencoba membalas semua jika alamat email Anda ada di daftar BCC; Ingatkan Saat Lampiran Hilang, dan lebih banyak fitur pengingat ...
  • Balas (Semua) Dengan Semua Lampiran di percakapan surat; Balas Banyak Email dalam hitungan detik; Tambah Salam Otomatis saat membalas; Tambahkan Tanggal ke dalam subjek ...
  • Alat Lampiran: Kelola Semua Lampiran di Semua Email, Lepaskan Otomatis, Kompres Semua, Ganti Nama Semua, Simpan Semua ... Laporan Cepat, Hitung Email yang Dipilih...
  • Email Sampah yang Kuat dengan kebiasaan; Hapus Duplikat Email dan Kontak... Memungkinkan Anda melakukan lebih cerdas, lebih cepat, dan lebih baik di Outlook.
shot kutools outlook tab kutools 1180x121
tembak kutools outlook kutools plus tab 1180x121
 
Urutkan komentar berdasarkan
komentar (10)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Cemerlang!!!
Komentar ini diminimalkan oleh moderator di situs
Saya mendapatkan kesalahan berikut saat menjalankan " Run-time error '-2147352567 (80020009)' di atas Tidak dapat menghapus folder ini. Klik kanan folder, lalu klik properti untuk memeriksa izin Anda untuk folder tersebut. Lihat pemilik folder atau administrator Anda untuk mengubah izin Anda"

Tampaknya skrip memindahkan 1 item ke folder yang dihapus dan kemudian keluar kesalahan.
Komentar ini diminimalkan oleh moderator di situs
Setuju - saya mendapatkan kesalahan yang sama.
Komentar ini diminimalkan oleh moderator di situs
Script mencoba menghapus folder yang sudah dihapus.
Saya menambahkan baris setelah xFlag = False dengan konten ini:
pada kesalahan resume selanjutnya
Komentar ini diminimalkan oleh moderator di situs
Memang, tambahkan:

On Error Resume Next

SETELAH:

Dim x Fldr Sebagai Folder 'Deklarasikan objek sub folder
xFlag = Salah

Seharusnya terlihat seperti ini:

Dim x Fldr Sebagai Folder 'Deklarasikan objek sub folder
xFlag = Salah
On Error Resume Next
Komentar ini diminimalkan oleh moderator di situs
Saya mendapatkan kesalahan yang sama seperti Bryan .... dan sekarang?
Komentar ini diminimalkan oleh moderator di situs
Script mencoba menghapus folder yang sudah dihapus.
Saya menambahkan baris setelah xFlag = False dengan konten ini:
pada kesalahan resume selanjutnya
Komentar ini diminimalkan oleh moderator di situs
Sangat mudah dan sangat membantu. Terima kasih!!
Komentar ini diminimalkan oleh moderator di situs
74 folder kosong dihapus tetapi sayangnya juga 109 folder tidak. Folder kosong lainnya tidak tersentuh.
Komentar ini diminimalkan oleh moderator di situs
Ini bekerja sangat baik untuk saya. Terima kasih. Beberapa folder tidak dapat dihapus karena merupakan folder asli Outlook, tetapi sub-folder berfungsi dengan baik.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL