Cara Batch Delete Semua Subfolder Kosong di Outlook Anda

Sekiranya anda ingin menghapus semua subfolder kosong dalam Outlook anda, anda boleh menggunakan kaedah yang diperkenalkan dalam artikel ini. Ini akan mengajar anda bagaimana menggunakan Outlook VBA untuk menghapus subfolder secara berkumpulan.

Untuk mengklasifikasikan dan mengurus e-mel Outlook anda dengan lebih baik, anda mesti telah mencipta banyak subfolder tersuai di bawah folder lalai, tidak kira Peti Masuk, Item Dihantar atau folder Draf, dsb. Walau bagaimanapun, kadangkala, anda mungkin mendapati bahawa sesetengah subfolder tidak kerap digunakan. Oleh itu, kebanyakan masa, ia kosong tanpa sebarang item. Dalam kes ini, anda berharap dapat memadam semua subfolder kosong.

Secara umum, anda boleh klik kanan pada subfolder tersebut dan kemudian pilih "Delete Folder" dari menu klik kanan. Walaupun begitu, jika terdapat banyak subfolder kosong, penghapusan satu persatu akan menjadi sangat menyusahkan. Oleh itu, anda mesti memerlukan tip untuk menghapuskan semuanya secara pukal. Walaupun Outlook tidak menyediakan ciri seperti itu, anda masih dapat menggunakan kod VBA untuk mewujudkannya dalam waktu yang cepat. Berikut ini, kami akan menunjukkan kepada anda langkah dan kod yang terperinci.

Kumpulan Hapus Semua Subfolder Kosong

1. Pertama sekali, mulakan program Outlook anda.
2. Kemudian tekan butang kekunci "Alt + F11" di tetingkap Outlook utama.
3. Selanjutnya di tetingkap "Microsoft Visual Basic for Applications", buka modul yang tidak digunakan.
4. Selepas itu, salin dan tampal kod VBA berikut ke dalam modul ini.

Public Sub GetAllSubfolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
    Dim i As Long
 
    On Error Resume Next
 
    'Change "Personal" to the name of your Outlook data file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        If objFolder.Folders.Count > 0 Then
           For i = objFolder.Folders.Count To 1 Step -1
               Call DeleteEmptyFolder(objFolder.Folders(i))
           Next
        End If
    Next
 
    MsgBox ("Completed!")
End Sub

Public Sub DeleteEmptyFolder(objCurrentFolder As Outlook.Folder)
    Dim objSubFolder As Outlook.Folder
    Dim n As Long
 
    If objCurrentFolder.Items.Count = 0 Then
       objCurrentFolder.Delete
    End If
 
    'Process the subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For n = objCurrentFolder.Folders.Count To 1 Step -1
           Set objSubFolder = objCurrentFolder.Folders(n)
           Call DeleteEmptyFolder(objSubFolder)
       Next
    End If
End Sub

5. Selepas itu, ubah tahap keselamatan makro Outlook anda menjadi rendah.
6. Akhirnya anda dapat menjalankan makro ini dengan menekan butang “F5” pada tetingkap makro semasa.
7. Sekali gus, anda akan mengetahui bahawa semua subfolder kosong akan dihapuskan.

Dapatkan Data PST Outlook yang rosak

Oleh kerana Outlook terdedah kepada kesalahan dan kerosakan, anda harus memperhatikan keselamatan fail PST Outlook anda. Sebagai contoh, anda harus membuat sandaran data PST anda secara berkala. Lebih-lebih lagi, untuk baiki Outlook masalah secepat mungkin, anda harus menyediakan alat pembaikan yang terkenal dan hebat seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk SQL Server rasuah dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com