Làm cách nào để xóa loại tệp đính kèm cụ thể khỏi email trong Outlook?

Bạn đã bao giờ cố gắng xóa tệp đính kèm trong nhiều email được chọn theo loại tệp trong Outlook chưa? Chẳng hạn như xóa tất cả các tệp đính kèm docx hoặc png khỏi các email đã chọn. Làm thế nào bạn có thể giải quyết công việc này trong Outlook?

Xóa loại tệp đính kèm cụ thể khỏi email có mã VBA

Xóa loại tệp đính kèm cụ thể khỏi email có mã VBA

Để xóa loại tệp đính kèm cụ thể khỏi các email đã chọn, mã VBA sau có thể giúp ích cho bạn, vui lòng thực hiện như sau:

1. Chọn email mà bạn muốn xóa loại tệp đính kèm cụ thể của chúng trong danh sách gửi thư.

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

3. Sau đó nhấn vào Chèn > Mô-đun, sao chép và dán mã bên dưới vào mô-đun trống đã mở, xem ảnh chụp màn hình:

Mã VBA: Xóa loại tệp đính kèm cụ thể khỏi email:

Sub DeleteSpecificTypeOfAttachments()
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFileType As String
Dim xType As String
Dim xFSO As Scripting.FileSystemObject
Dim I As Integer
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xFSO = New Scripting.FileSystemObject
xType = ""
xType = InputBox("Attachment Type:", "Kutools for Outlook", xType, 8)
If Len(Trim(xType)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
       If xMailItem.Attachments.Count > 0 Then
            For I = xMailItem.Attachments.Count To 1 Step -1
                Set xAttachment = xMailItem.Attachments.Item(I)
                xFileType = xFSO.GetExtensionName(xAttachment.FileName)
                If InStr(xFileType, Trim(xType)) > 0 Then
                    xAttachment.Delete
                End If
            Next I
            xMailItem.Save
        End If
    End If
Next
Set xMailItem = Nothing
Set xFSO = Nothing
End Sub

4. Và sau đó vẫn trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp CÔNG CỤ > dự án đi đến Tài liệu tham khảo-Dự án1 hộp thoại và kiểm tra Thời gian chạy tập lệnh của Microsoft tùy chọn từ Tài liệu tham khảo có sẵn hộp danh sách, xem ảnh chụp màn hình:

doc xóa phần đính kèm theo loại 1

5. Sau đó nhấn vào OK để đóng hộp thoại, bây giờ, nhấn F5 để chạy mã này và một hộp nhắc xuất hiện, vui lòng nhập loại tệp đính kèm mà bạn muốn xóa, xem ảnh chụp màn hình:

doc xóa phần đính kèm theo loại 2