Để loại bỏ tất cả các thư mục con trống của một thư mục Outlook nhất định, hãy làm như sau:

1. nhấn Khác + F11 để mở cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đunvà dán mã VBA bên dưới vào cửa sổ mô-đun mới.

VBA: Xóa hàng loạt thư mục con trống của một số thư mục Outlook nhất định

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. nhấn F5 Phím hoặc chạy để chạy mã VBA này.

4. Trong hộp thoại Chọn Thư mục hiện ra, vui lòng chọn thư mục cụ thể có các thư mục con trống mà bạn sẽ xóa hàng loạt và nhấp vào OK cái nút. Xem ảnh chụp màn hình:

5. Bây giờ một hộp thoại Kutools cho Outlook xuất hiện và hiển thị cho bạn có bao nhiêu thư mục con trống đã bị xóa. Nhấn vào OK để đóng nó.

Cho đến nay, tất cả các thư mục con của thư mục Outlook được chỉ định đã bị xóa hàng loạt.