Làm cách nào để tự động xóa các tệp đính kèm sau khi gửi email từ các mục đã gửi?

Khi gửi email có một số tệp đính kèm, theo mặc định, tệp đính kèm sẽ được lưu cùng với email vào thư mục mục đã gửi. Để giảm kích thước tệp PST của bạn, bạn có thể muốn tự động xóa các tệp đính kèm khỏi các mục đã gửi sau khi gửi email. Bài viết này, tôi sẽ nói về tác vụ này trong Outlook.

Tự động xóa các tệp đính kèm sau khi gửi email từ các mục đã gửi

Tự động xóa các tệp đính kèm sau khi gửi email từ các mục đã gửi

Mã VBA sau có thể giúp bạn tự động xóa các tệp đính kèm sau khi gửi email từ Outlook của bạn, vui lòng thực hiện như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Trong tạp chí Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp ĐâyOutlookSession từ Project1 (VbaProject.OTM) để mở chế độ, sau đó sao chép và dán mã sau vào mô-đun trống.

Mã VBA: Tự động xóa tệp đính kèm sau khi gửi email từ các mục đã gửi:

Public WithEvents SentMailItems As Outlook.Items
    Private Sub Application_Startup()
    Set SentMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
    End Sub
    Sub SentMailItems_ItemAdd(ByVal Item As Object)
    Dim xSentMail As Outlook.MailItem
    Dim xAttachments As Outlook.Attachments
    Dim xAttachment As Outlook.Attachment
    Dim xAttachmentInfo As String
    On Error Resume Next
    If Item.Class = olMail Then
       Set xSentMail = Item
    End If
    Set xAttachments = xSentMail.Attachments
    For i = xAttachments.Count To 1 Step -1
        Set xAttachment = xAttachments.Item(i)
        xAttachmentInfo = "<HTML><BODY>" & xAttachment.DisplayName & _
                          "</BODY></HTML>" & vbCrLf & xAttachmentInfo
        xAttachment.Delete
    Next
    xSentMail.HTMLBody = "<HTML><BODY><font color=#FF0000>Attachment Removed: </font><br/></BODY></HTML>" & _
                         xAttachmentInfo & "<HTML><BODY><br/></BODY></HTML>" & xSentMail.HTMLBody
    xSentMail.Save
End Sub