Cookie giúp chúng tôi cung cấp dịch vụ của chúng tôi. Bằng cách sử dụng dịch vụ của chúng tôi, bạn đồng ý sử dụng cookie.
Mẹo: Các ngôn ngữ khác được Dịch bởi Google. Bạn có thể ghé thăm English phiên bản của liên kết này.
Đăng nhập
x
or
x
x
Ghi danh
x

or

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

Bạn đã bao giờ thử xóa các tệp đính kèm trong nhiều email đã 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 được chọn, mã VBA sau có thể giúp bạn, hãy làm như sau:

1. Chọn email mà bạn muốn xóa loại tệp đính kèm cụ thể của họ 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ã dưới đây 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-Project1 hộp thoại và kiểm tra Thời gian chạy tập lệnh 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 đí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à hộp nhắc được bật ra, 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 đính kèm theo loại 2

6. Nhấp chuột OKvà tất cả các tệp đính kèm với loại cụ thể mà bạn đã xác định đã bị xóa cùng một lúc, hãy xem ảnh chụp màn hình:

doc xóa đính kèm theo loại 3



Kutools cho Outlook

Nhiều hơn các chức năng nâng cao 100 cho Outlook 2010, 2013, 2016, 2019 và 365

kutools chụp màn hình cho triển vọng nhỏ cho banner 201812

Các tính năng khác | Tải xuống miễn phí | Chỉ có $ 39.00 cho hàng trăm chức năng

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.