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

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

Tab Office - Cho phép Chỉnh sửa và Duyệt theo Tab trong Office và Giúp Công việc Dễ dàng hơn Nhiều ...
Kutools cho Outlook - Mang đến 100 tính năng nâng cao mạnh mẽ cho Microsoft Outlook
  • Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo quy tắc; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
  • Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ mail của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
  • Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email cùng một lúc; Tự động thêm lời chào khi trả lời; Tự động Thêm Ngày & Giờ vào chủ đề ...
  • Công cụ đính kèm: Tự động tách, Nén tất cả, Đổi tên tất cả, Tự động lưu tất cả ... Báo cáo nhanh, Đếm Thư đã Chọn, Xóa Thư và Địa chỉ Liên hệ Trùng lặp ...
  • Hơn 100 tính năng nâng cao sẽ giải quyết hầu hết các vấn đề của bạn trong Outlook 2021 - 2010 hoặc Office 365. Tính năng đầy đủ Bản dùng thử miễn phí 60 ngày.

mũi tên màu xanh bong bóng bên phảiXó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.


mũi tên màu xanh bong bóng bên phảiBà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


Kutools cho Outlook - Cung cấp 100 Tính năng Nâng cao cho Outlook và Làm cho Công việc Dễ dàng hơn Nhiều!

  • Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo tùy chỉnh; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
  • Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ thư của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
  • Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email trong vài giây; Tự động thêm lời chào khi trả lời; Thêm Ngày vào chủ đề ...
  • Công cụ Tệp đính kèm: Quản lý Tất cả Tệp đính kèm trong Tất cả Thư, Tự động tách, Nén tất cả, Đổi tên tất cả, Lưu tất cả ... Báo cáo nhanh, Đếm thư đã chọnhữu ích. Cảm ơn !
  • Email rác mạnh mẽ Theo phong tục; Xóa thư và liên hệ trùng lặphữu ích. Cảm ơn ! Cho phép bạn làm việc thông minh hơn, nhanh hơn và tốt hơn trong Outlook.
shot kutools triển vọng tab kutools 1180x121
shot kutools triển vọng kutools plus tab 1180x121
 
Nhận xét (10)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xuất sắc!!!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi gặp lỗi sau khi chạy ở trên "Lỗi thời gian chạy '-2147352567 (80020009)' Không thể xóa thư mục này. Nhấp chuột phải vào thư mục, sau đó nhấp vào thuộc tính để kiểm tra quyền của bạn đối với thư mục. Xem chủ sở hữu thư mục hoặc quản trị viên của bạn để thay đổi quyền của bạn "

Nó xuất hiện tập lệnh di chuyển 1 mục vào thư mục đã xóa và sau đó xuất hiện lỗi.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đồng ý - Tôi cũng gặp lỗi tương tự.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tập lệnh cố gắng xóa một thư mục đã bị xóa.
Tôi đã thêm một hàng sau xFlag = False với nội dung này:
tiếp tục lỗi tiếp theo
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thật vậy, hãy thêm:

On Error Resume Next

SAU:

Dim x Fldr As Folder 'Khai báo các đối tượng thư mục con
xFlag = Sai

Nó sẽ giống như thế này:

Dim x Fldr As Folder 'Khai báo các đối tượng thư mục con
xFlag = Sai
On Error Resume Next
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang gặp lỗi tương tự như Bryan .... và bây giờ?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tập lệnh cố gắng xóa một thư mục đã bị xóa.
Tôi đã thêm một hàng sau xFlag = False với nội dung này:
tiếp tục lỗi tiếp theo
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Siêu dễ dàng và cực kỳ hữu ích. Cảm ơn bạn!!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
74 thư mục trống đã bị xóa nhưng tiếc là cũng có 109 thư mục không bị xóa. Các thư mục trống khác vẫn được giữ nguyên.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nó hiệu quả tuyệt vời đối với tôi. Cảm ơn bạn. Một số thư mục không thể bị xóa vì chúng có nguồn gốc từ Outlook, nhưng các thư mục con hoạt động rất tốt.
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL