Nếu bạn đã định cấu hình một số tài khoản email trong Outlook của mình và mỗi tài khoản sử dụng một tệp dữ liệu Outlook riêng, thì bạn sẽ có một số thư mục “Các mục đã xóa”. Khi bạn muốn làm trống từng thư mục “Các mục đã xóa” trong mọi tài khoản email, bạn có thể sử dụng đoạn mã VBA trong bài viết này. Nó cho phép bạn dọn sạch chúng với số lượng lớn.
Như chúng ta đã biết, Outlook cho phép người dùng thêm và định cấu hình một số tài khoản email. Ngoài ra, nếu mỗi tài khoản sử dụng một tệp dữ liệu Outlook riêng lẻ, thì mọi tệp sẽ đi kèm với thư mục “Các mục đã xóa”, nơi lưu trữ các mục đã bị xóa. Khi bạn xác nhận rằng các mục trong tất cả các thư mục "Các mục đã xóa" là vô dụng, bạn sẽ có xu hướng làm trống các thư mục đó. Trong trường hợp này, nếu bạn làm trống chúng theo cách thủ công, có thể rất tẻ nhạt. Tốt hơn hết là bạn nên áp dụng một mẹo để làm trống hàng loạt chúng, giống như mẹo sau đây.
Làm trống hàng loạt tất cả các thư mục “Các mục đã xóa” trong tất cả các tài khoản email
- Ngay từ đầu, hãy khởi chạy chương trình Outlook của bạn.
- Sau đó nhấn các nút phím “Alt + F11” trong cửa sổ chính của Outlook.
- Tiếp theo trong cửa sổ “Microsoft Visual Basic for Applications”, bạn cần mở một mô-đun trống.
- Sau đó, sao chép và dán các mã VBA sau vào mô-đun này.
Sub BatchEmptyAllDeletedItemsFolder()
Dim objStores As Outlook.Stores
Dim objStore As Outlook.Store
Dim objPSTFile As Outlook.Folder
Dim objFolders As Outlook.folders
Dim objFolder As Object
Set objStores = Outlook.Application.Session.Stores
'Process all Outlook PST files in your Outlook
For Each objStore In objStores
Set objPSTFile = objStore.GetRootFolder
For Each objFolder In objPSTFile.folders
Call ProcessFolders(objFolder)
Next
Next
End Sub
Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
Dim i, n As Long
If objCurrentFolder.Name = "Deleted Items" Then
'Delete all the items in "Deleted Items" folder
For i = objCurrentFolder.Items.Count To 1 Step -1
objCurrentFolder.Items.Item(i).Delete
'Delete all the subfolders under "Deleted Items" folder
For n = objCurrentFolder.folders.Count To 1 Step -1
objCurrentFolder.folders.Item(n).Delete
Next
Next
End If
End Sub
- Sau đó, bạn nên kiểm tra cài đặt macro Outlook của mình, đảm bảo rằng macro được phép trong Outlook của bạn.
- Cuối cùng, bạn có thể quay lại mô-đun và nhấn nút phím “F5” để chạy macro này.
- Sau khi chạy macro, bạn có thể thấy rằng tất cả các thư mục “Các mục đã xóa” đã được làm trống thành công.
Trong trường hợp lỗi Outlook
Bạn đã bao giờ gặp sự cố Outlook hoặc thậm chí hỏng Outlook chưa? Nói chung, làm thế nào bạn sẽ đối phó với các trường hợp khủng khiếp? Nếu bạn đã sử dụng Outlook trong nhiều thập kỷ, việc gặp phải các sự cố khác nhau trong Outlook của bạn là điều không thể tránh khỏi. Do đó, tốt hơn hết bạn nên ghi nhớ một số cách sửa chữa và khôi phục, chẳng hạn như sử dụng công cụ sửa chữa hộp thư đến, sao lưu dữ liệu Outlook thường xuyên, nắm giữ một công cụ sửa chữa mạnh mẽ. sửa chữa Outlook công cụ, v.v. Với tất cả các biện pháp phòng ngừa này, ngay cả khi tệp PST của bạn bị xâm phạm, bạn vẫn có thể giữ bình tĩnh và dễ dàng tìm lại dữ liệu Outlook của mình.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa sql và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm