Nếu chúng tôi đã chuyển đổi email HTML sang RTF trước khi trả lời, tất cả tên của tệp đính kèm sẽ được sao chép vào thư trả lời sau khi nhấp vào Trang chủ> Trả lời trong Outlook.

1. Bấm đúp để mở email có tên tệp đính kèm mà bạn cần sao chép, sau đó bấm Tin nhắn > Hoạt động > Chỉnh sửa tin nhắn trong cửa sổ tin nhắn. Xem ảnh chụp màn hình:

2. Tiếp tục nhấp vào Định dạng văn bản > Văn bản đa dạng, sau đó lưu và đóng email.

3. Bây giờ bạn trở lại giao diện chính. Tiếp tục chọn email và nhấp vào Trang Chủ > đáp lại.

4. Bây giờ tất cả tên của tệp đính kèm được sao chép từ email gốc và dán vào thư trả lời như hình minh họa bên dưới. Vui lòng soạn tin nhắn trả lời và gửi đi.

Phương pháp này sẽ giới thiệu macro VBA để sao chép tên của tất cả các tệp đính kèm khi trả lời email, sau đó dán tên vào nội dung thư của email trả lời trong Outlook.

1. nhấn Khác + F11 đồng thời để mở cửa sổ Microsoft Visual Basic for Applications.

2. Trong Project Explorer bên trái, hãy mở rộng Project 1, nhấp đúp để mở ĐâyOutlookSession cửa sổ (xem ảnh chụp màn hình bên dưới), và sau đó dán mã bên dưới vào cửa sổ.

VBA: Sao chép tên của tất cả tệp đính kèm khi trả lời email trong Outlook

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. Nhấp chuột CÔNG CỤ > dự án.

4. Trong cửa sổ Tài liệu tham khảo đang mở - Dự án 1 cho Outlook 2016, vui lòng kiểm tra Thư viện đối tượng Microsoft Word 16.0 trong hộp Tham chiếu Có sẵn và nhấp vào OK cái nút. Xem ảnh chụp màn hình:

Chú thích: Vui lòng chọn Thư viện đối tượng Microsoft Word 15.0 tham khảo nếu bạn đang làm việc với Outlook 2013 hoặc Thư viện đối tượng Microsoft Word 14.0 tham chiếu với Outlook 2010.

5. Lưu VBA và đóng cửa sổ Microsoft Visual Basic for Applications.

6. Bây giờ bạn quay lại giao diện chính của Outlook. Chọn email bạn sẽ trả lời và nhấp vào Trang Chủ > đáp lại or Trả lời tất cả.
Chú thích: Nếu tên tệp đính kèm không được sao chép và dán vào email trả lời, vui lòng khởi động lại Outlook của bạn và trả lời lại.

Và bây giờ tất cả tên của tệp đính kèm được sao chép từ email đã chọn và dán vào email trả lời. Xem ảnh chụp màn hình:

Nếu bạn có Kutools cho Outlook đã cài đặt, bạn có thể áp dụng nó Sao chép tên tính năng sao chép nhanh tất cả các tên tệp đính kèm từ email đã nhận, sau đó dễ dàng dán vào thư trả lời của nó trong Outlook.

1. Chọn email bạn sẽ trả lời và nhấp vào Kutools > Công cụ đính kèm > Sao chép tên.

Sau đó, một hộp thoại xuất hiện và cho bạn biết tên tệp đính kèm đã được sao chép vào khay nhớ tạm. Nhấp chuột OK để đóng nó.

2. Tiếp tục nhấp vào Trang Chủ > đáp lại để trả lời email đã chọn.

3. Trong cửa sổ tin nhắn trả lời, hãy đặt con trỏ vào nội dung tin nhắn và nhấn Ctrl + V phím để dán tên tệp đính kèm dễ dàng.

Dễ dàng trả lời các email đã chọn với tất cả các tệp đính kèm gốc được lưu trong Outlook

Nói chung, các tệp đính kèm gốc sẽ bị xóa khi trả lời email trong Outlook. Nhưng, với sự tuyệt vời Trả lời bằng tệp đính kèm tính năng của Kutools cho Outlook, bạn có thể dễ dàng giữ tất cả các tệp đính kèm của email khi trả lời nó trong Outlook.