Sao chép tất cả các tệp đính kèm từ nhiều email sang một email mới

Sao chép tất cả các tệp đính kèm từ một email vào email trả lời của nó

Bài viết này sẽ giới thiệu một VBA để nhanh chóng sao chép tất cả các tệp đính kèm từ nhiều email sang một tệp mới trong Outlook. Vui lòng làm như sau:

1. Chọn nhiều email có tệp đính kèm mà bạn sẽ sao chép và nhấn Khác + F11 để mở cửa sổ Microsoft Visual Basic for Applications.
Chú thích: Giữ Ctrl chính, bạn có thể chọn nhiều email không liền kề bằng cách nhấp vào từng email một; giữ sự thay đổi chính, bạn có thể chọn nhiều email liền kề bằng cách nhấp vào email đầu tiên và email cuối cùng.

2. Nhấp chuột Chèn > Mô-đun, rồi dán mã VBA bên dưới vào cửa sổ Mô-đun mới.

VBA: Sao chép tất cả các tệp đính kèm từ nhiều email sang một tệp mới

Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String

Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If

For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub

3. nhấn F5 chìa khóa hoặc chạy để chạy VBA này.

Bây giờ bạn sẽ thấy tất cả các tệp đính kèm được sao chép từ các email đã chọn và được dán vào một email mới.

Nếu bạn đã cài đặt Kutools cho Outlook, bạn có thể áp dụng Trả lời bằng tệp đính kèm tính năng để dễ dàng sao chép tất cả các tệp đính kèm từ một email sang email trả lời của nó trong Outlook. Vui lòng làm như sau:

Chọn email bạn sẽ trả lời và nhấp vào Kutools > Trả lời bằng tệp đính kèm > Trả lời với Tệp đính kèm. Xem ảnh chụp màn hình:

Bây giờ bạn sẽ thấy tất cả các tệp đính kèm được sao chép tự động vào email trả lời.

Làm cách nào để sao chép tệp đính kèm vào một email khác trong Outlook?