Làm cách nào để xóa tất cả các tệp đính kèm khỏi email trong Outlook?
Thông thường, khi bạn đang xem trước email, bạn có thể xóa tệp đính kèm bằng cách nhấp chuột phải và chọn Xóa tệp đính kèm mục. Đôi khi có thể có nhiều tệp đính kèm trong một email và việc xóa từng tệp một sẽ rất tẻ nhạt. Ở đây, chúng tôi sắp xếp cho bạn hai thủ thuật dễ dàng để xóa tất cả các tệp đính kèm trong một email và xóa tất cả các tệp đính kèm khỏi nhiều email cũng như trong Outlook.
Xóa thủ công tất cả các tệp đính kèm trong một thư email trong Outlook
Xóa tất cả các tệp đính kèm khỏi nhiều thư email trong Outlook bằng mã VBA
Dễ dàng xóa tất cả các tệp đính kèm khỏi một hoặc nhiều email với Kutools cho Outlook
Xóa thủ công tất cả các tệp đính kèm trong một thư email trong Outlook
Dễ dàng xóa tất cả các tệp đính kèm trong một email đã chọn với Xóa tệp đính kèm tính năng trong Outlook.
Bước 1: Chọn email có tệp đính kèm mà bạn sẽ xóa sau này.
Bước 2: Nhấp vào một trong các tệp đính kèm trong Ngăn Đọc để kích hoạt Công cụ Tệp đính kèm.
Bước 3: Nhấp vào Chọn tất cả nút trong Lựa chọn nhóm trên File đính kèm tab.
Bước này sẽ cho phép bạn chọn tất cả các tệp đính kèm trong các thư email đã chọn này cùng một lúc.
Bước 4: Nhấp vào Xóa tệp đính kèm nút trong Hoạt động nhóm trên File đính kèm tab.
Bước 5: Trong hộp thoại cảnh báo, nhấp vào Xóa tệp đính kèm .
Sau đó, tất cả các tệp đính kèm trong thư email đã chọn này sẽ bị xóa càng sớm càng tốt.
Chú thích: Tính năng Xóa tệp đính kèm hoạt động tốt trong Outlook 2010 và phiên bản mới hơn, nhưng không hoạt động trong Outlook 2007.
Dễ dàng xóa tất cả các tệp đính kèm khỏi nhiều email đã chọn trong Outlook:
Với Tách tất cả các tệp đính kèm tiện ích của Kutools cho Excel, bạn có thể dễ dàng xóa tất cả các tệp đính kèm khỏi nhiều email đã chọn như hình minh họa bên dưới. (Các tệp đính kèm sẽ được lưu vào một thư mục cụ thể) Tải về và thử ngay bây giờ! (30 ngày dùng thử miễn phí)
Xóa tất cả các tệp đính kèm khỏi nhiều thư email trong Outlook bằng mã VBA
Nếu bạn muốn xóa tất cả các tệp đính kèm khỏi nhiều thư email trong Microsoft Outlook, phương pháp sau sẽ giúp bạn thực hiện dễ dàng. Chúng tôi giới thiệu bạn bật tất cả các macro trong Microsoft Outlook của bạn trước hết.
Bước 1: Đi tới thư mục của Tài liệu của tôi, tạo một thư mục mới và đặt tên là Tệp đính kèm OLA
Bước 2: Chọn nhiều email có tệp đính kèm mà bạn sẽ xóa sau này.
Lưu ý: Bạn có thể chọn các email không liên tiếp bằng cách giữ Ctrl phím và nhấp chuột.
Bạn có thể chọn các email liên tiếp bằng cách giữ sự thay đổi phím và nhấp chuột.
Bước 3: Mở VBA Editor bằng cách nhấn Khác phím và F11 chìa khóa cùng một lúc.
Bước 4: Mở rộng Project1 > Đối tượng Microsoft Outlook trong thanh bên trái, sau đó bấm đúp vào ĐâyOutlookSession để mở nó trong Trình chỉnh sửa. Xem ảnh chụp màn hình sau:
Bước 5: Sao chép và dán mã VBA sau vào ngăn chỉnh sửa.
Public Sub ReplaceAttachmentsToLink()
Dim objApp As Outlook.Application
Dim aMail As Outlook.MailItem 'Object
Dim oAttachments As Outlook.Attachments
Dim oSelection As Outlook.Selection
Dim i As Long
Dim iCount As Long
Dim sFile As String
Dim sFolderPath As String
Dim sDeletedFiles As String
' Get the path to your My Documents folder
sFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
On Error Resume Next
' Instantiate an Outlook Application object.
Set objApp = CreateObject("Outlook.Application")
' Get the collection of selected objects.
Set oSelection = objApp.ActiveExplorer.Selection
' Set the Attachment folder.
sFolderPath = sFolderPath & "\OLAttachments"
' Check each selected item for attachments. If attachments exist,
' save them to the Temp folder and strip them from the item.
For Each aMail In oSelection
' This code only strips attachments from mail items.
' If aMail.class=olMail Then
' Get the Attachments collection of the item.
Set oAttachments = aMail.Attachments
iCount = oAttachments.Count
If iCount > 0 Then
' We need to use a count down loop for removing items
' from a collection. Otherwise, the loop counter gets
' confused and only every other item is removed.
For i = iCount To 1 Step -1
' Save attachment before deleting from item.
' Get the file name.
sFile = oAttachments.Item(i).FileName
' Combine with the path to the Temp folder.
sFile = sFolderPath & "\" & sFile
' Save the attachment as a file.
oAttachments.Item(i).SaveAsFile sFile
' Delete the attachment.
oAttachments.Item(i).Delete
'write the save as path to a string to add to the message
'check for html and use html tags in link
If aMail.BodyFormat <> olFormatHTML Then
sDeletedFiles = sDeletedFiles & vbCrLf & "<file://" & sFile & ">"
Else
sDeletedFiles = sDeletedFiles & "<br>" & "<a href='file://" & _
sFile & "'>" & sFile & "</a>"
End If
Next i
'End If
' Adds the filename string to the message body and save it
' Check for HTML body
If aMail.BodyFormat <> olFormatHTML Then
aMail.Body = aMail.Body & vbCrLf & _
"The file(s) were saved to " & sDeletedFiles
Else
aMail.HTMLBody = aMail.HTMLBody & "<p>" & _
"The file(s) were saved to " & sDeletedFiles & "</p>"
End If
aMail.Save
'sets the attachment path to nothing before it moves on to the next message.
sDeletedFiles = ""
End If
Next 'end aMail
ExitSub:
Set oAttachments = Nothing
Set aMail = Nothing
Set oSelection = Nothing
Set objApp = Nothing
End Sub
Bước 6: Nhấn phím của F5 để chạy mã VBA này.
Giờ đây, tất cả các tệp đính kèm từ các thư email đã chọn sẽ bị xóa, với việc để lại các siêu liên kết đến từng tệp đính kèm đã xóa ở cuối tất cả các thư email đã chọn.
Dễ dàng xóa tất cả các tệp đính kèm khỏi một hoặc nhiều email với Kutools cho Outlook
Sản phẩm Tách tất cả tiện ích đính kèm của Kutools cho Outlook có thể nhanh chóng xóa tất cả các tệp đính kèm khỏi một hoặc nhiều email đã chọn trong Outlook. Hãy làm như sau.
Kutools cho Outlook : với hơn 100 phần bổ trợ Outlook tiện dụng, dùng thử miễn phí không giới hạn trong 60 ngày.
1. Chọn một hoặc nhiều thư email có tệp đính kèm bạn muốn xóa, sau đó nhấp vào Kutools > Công cụ đính kèm > Tách tất cả. Xem ảnh chụp màn hình:
2. bên trong Tách cài đặt hộp thoại, vui lòng cấu hình như sau.
- 2.1 Nhấp vào Xem để chọn một thư mục để lưu tất cả các tệp đính kèm đã xóa.
- 2.2 Theo mặc định, Tách (các) tệp đính kèm theo kiểu bên dưới được chọn, vui lòng chọn một tùy chọn để lưu các tệp đính kèm vào các thư mục khác nhau dựa trên email khi bạn cần.
- 2.3 Nhấp vào OK cái nút. Xem ảnh chụp màn hình:
3. Nhấp vào Có nút trong Tách tất cả hộp thoại.
4. Sau đó a Kutools cho Outlook hộp thoại sẽ bật lên để cho bạn biết có bao nhiêu tệp đính kèm bị xóa. Vui lòng nhấp vào OK .
Bây giờ tất cả các tệp đính kèm được xóa ngay lập tức chỉ còn lại các siêu liên kết trong các email đã chọn. Bạn có thể nhấp vào siêu liên kết để mở tệp đính kèm tương ứng khi bạn cần.
Nếu bạn muốn dùng thử miễn phí (60 ngày) tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.
Công cụ năng suất văn phòng tốt nhất
Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn
📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP) / Lên lịch gửi email / Tự động CC/BCC theo quy định khi gửi Email / Tự động chuyển tiếp (Quy tắc nâng cao) / Tự động thêm lời chào / Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !
📨 Quản lý email: Dễ dàng thu hồi email / Chặn email lừa đảo theo chủ đề và những người khác / Xóa các email trùng lặp / Tìm Kiếm Nâng Cao / Hợp nhất các thư mục hữu ích. Cảm ơn !
📁 Tệp đính kèm chuyên nghiệp: Lưu hàng loạt / Tách hàng loạt / Nén hàng loạt / Tự động lưu / Tự động tách / Tự động nén hữu ích. Cảm ơn !
🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn / Tăng năng suất Outlook của bạn với chế độ xem theo thẻ / Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !
👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến / Email chống lừa đảo / 🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !
👩🏼🤝👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn / Chia nhóm liên hệ thành các nhóm riêng lẻ / Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !
Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.