Để giữ cho hộp thư Outlook ở kích thước nhỏ và ngăn hỏng dữ liệu Outlook, bạn nên xóa tệp đính kèm khỏi email đã nhận hoặc gửi trong một khoảng thời gian cụ thể trước đó. Bài viết này sẽ giúp bạn nhanh chóng thực hiện được điều đó với Outlook VBA.
Như chúng ta đã biết, với hộp thư Outlook lớn hơn, dữ liệu Outlook sẽ trở nên dễ bị tấn công hơn rất nhiều. Do đó, tôi đã quen với việc xóa các tệp đính kèm trong các email cũ hơn một ngày cụ thể, vì trước đây tôi thường lưu các tệp đính kèm này vào đĩa cục bộ của mình. Nhưng có một chút rắc rối là tôi phải tìm xem những email nào đã cũ và sau đó xóa các tệp đính kèm theo cách thủ công. Để cải thiện hiệu quả của mình, tôi đưa ra một giải pháp bằng Outlook VBA.
Xóa tệp đính kèm khỏi email đã nhận cũ hơn một ngày cụ thể
- Để bắt đầu, hãy mở Outlook và chuyển sang tab “Nhà phát triển”.
- Sau đó nhấn nút “Visual Basic” trong nhóm “Code”.
- Một cửa sổ mới sẽ bật lên. Trong đó, bạn nên mở một mô-đun mới và sao chép các mã sau vào đó.
Sub RemoveAttachmentsfromAgedEmail()
Dim olInbox As Outlook.Folder
Dim varItem As Variant
Dim i As Integer
Dim intDatDiff As Integer
Dim Att As Attachment
Set olInbox = Session.GetDefaultFolder(olFolderInbox)
For i = olInbox.Items.Count To 1 Step -1
Set varItem = olInbox.Items.Item(i)
If varItem.Class = olMail Then
'calculate the period between now and the received time
intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)
'You can replace "50" as per your needs
If intDatDiff > 50 Then
For Each Att In varItem.Attachments
Att.Delete
Next Att
varItem.Save
End If
End If
Next
End Sub
- Giờ đây, bạn có thể thoát khỏi cửa sổ “Visual Basic” hiện tại và tiến hành thêm macro vào Thanh công cụ truy cập nhanh. Làm theo các bước dưới đây:
- Đầu tiên, nhấn mũi tên xuống trong Quick Access Toolbar và chọn “More Commands” từ danh sách thả xuống.
- Sau đó, bạn nên chọn “Macro” trong trường “Chọn lệnh từ”.
- Tiếp theo, chọn macro chính xác và nhấp vào nút "Thêm" ở giữa.
- Cuối cùng, nhấp vào nút “OK” để kích hoạt nó và quay lại cửa sổ chính của Outlook.
- Cuối cùng, bạn có thể tìm và nhấp vào nút trong Thanh công cụ truy cập nhanh. Các tệp đính kèm trong thư cũ hơn ngày bạn chỉ định sẽ bị xóa nhanh chóng.
Xóa tệp đính kèm khỏi email đã gửi cũ hơn một ngày cụ thể
Để đạt được mục đích này, bạn có thể sao chép toàn bộ mã VBA ở trên nhưng thay đổi một số dòng nhất định bằng cách thực hiện theo các thông báo bên dưới:
- Đầu tiên, thay đổi tất cả “olInbox” thành “olSentItemFolder” trong mã VBA.
- Sau đó thay thế “Set olInbox = Session.GetDefaultFolder(olFolderInbox)” bằng:
Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)
- Tiếp theo thay thế “intDatDiff = DateDiff(“d”, varItem.ReceivedTime, Now)” bằng:
intDatDiff = DateDiff("d", varItem.SentOn, Now)
Loại bỏ các lỗi Outlook khó chịu
Nếu bạn đã sử dụng Outlook trong một thời gian dài, chắc hẳn việc thường xuyên xảy ra lỗi đã trở thành vấn đề phổ biến. Rõ ràng là bạn không thể dự đoán hoặc loại bỏ hoàn toàn chúng. Những gì bạn có thể làm chỉ là cố gắng hết sức để giải quyết chúng. Ví dụ: sử dụng công cụ sửa hộp thư đến, Scanpest.exe để sửa lỗi email Outlook. Ngoài ra, bạn phải tạo bản sao lưu thường xuyên cho dữ liệu Outlook của mình trong trường hợp xảy ra sự cố ngoài ý muốn.
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 Server thiệt hại mdf 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