Làm cách nào để xóa hàng loạt tất cả các thư mục trống trong Outlook?
Giả sử có hàng tá thư mục trống trong thư mục thư trong Outlook, nói chung chúng ta có thể xóa từng thư mục trống một bằng cách nhấp chuột phải vào menu. So với việc nhấp chuột phải nhiều lần, bài viết này sẽ giới thiệu một VBA để nhanh chóng xóa tất cả các thư mục con trống của một thư mục Outlook.
Xóa hàng loạt tất cả các thư mục trống trong Outlook bằng VBA
- Gửi email tự động với Auto CC / BCC, Tự động chuyển tiếp theo quy định; gửi Tự động trả lời (Vắng mặt) mà không cần máy chủ trao đổi...
- Nhận lời nhắc như Cảnh báo BCC khi trả lời tất cả khi bạn đang ở trong danh sách BCC và Nhắc nhở khi thiếu tệp đính kèm để quên các tệp đính kèm...
- Cải thiện hiệu quả email với Trả lời (Tất cả) kèm tệp đính kèm, Tự động thêm lời chào hoặc ngày và giờ vào chữ ký hoặc chủ đề, Trả lời nhiều emailhữu ích. Cảm ơn !
- Hợp lý hóa việc gửi email với Thu hồi email, Công cụ đính kèm (Nén tất cả, Tự động lưu tất cả...), Loại bỏ các bản saovà Báo cáo nhanhhữu ích. Cảm ơn !
Xóa hàng loạt tất cả các thư mục trống trong Outlook bằng VBA
Để 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.
Bài viết liên quan
Tìm thư mục (đường dẫn thư mục đầy đủ) theo tên thư mục trong Outlook
Công cụ năng suất văn phòng tốt nhất
Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn
📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP) / Lên lịch gửi email / Tự động CC/BCC theo quy định khi gửi Email / Tự động chuyển tiếp (Quy tắc nâng cao) / Tự động thêm lời chào / Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !
📨 Quản lý email: Dễ dàng thu hồi email / Chặn email lừa đảo theo chủ đề và những người khác / Xóa các email trùng lặp / Tìm Kiếm Nâng Cao / Hợp nhất các thư mục hữu ích. Cảm ơn !
📁 Tệp đính kèm chuyên nghiệp: Lưu hàng loạt / Tách hàng loạt / Nén hàng loạt / Tự động lưu / Tự động tách / Tự động nén hữu ích. Cảm ơn !
🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn / Tăng năng suất Outlook của bạn với chế độ xem theo thẻ / Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !
👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến / Email chống lừa đảo / 🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !
👩🏼🤝👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn / Chia nhóm liên hệ thành các nhóm riêng lẻ / Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !
Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.