Làm cách nào để giữ tệp đính kèm khi trả lời trong Outlook?

Khi chúng tôi chuyển tiếp một thư email trong Microsoft Outlook, các tệp đính kèm ban đầu trong thư email này vẫn còn trong thư được chuyển tiếp. Tuy nhiên, khi chúng tôi trả lời thư email, các tệp đính kèm ban đầu sẽ không được đính kèm trong thư trả lời mới. Ở đây chúng tôi sẽ giới thiệu một số thủ thuật về việc giữ các tệp đính kèm gốc khi trả lời trong Microsoft Outlook.

Trả lời bằng tệp đính kèm bằng cách sao chép và dán thủ công
Trả lời tự động với tệp đính kèm bằng VBA
Một cú nhấp chuột để trả lời với tệp đính kèm với Kutools cho Outlook

Trả lời bằng tệp đính kèm bằng cách sao chép và dán thủ công

Chúng tôi có thể sao chép thủ công các tệp đính kèm gốc trong email và dán chúng vào cửa sổ Reply Message khi chúng tôi trả lời email sau.

Bước 1: Nhấp vào email để xem trước trong Ngăn đọc.

Bước 2: Nhấp chuột phải vào một tệp đính kèm trong email xem trước và chọn Chọn tất cả từ menu chuột phải.

Bước 3: Nhấp chuột phải vào các tệp đính kèm đã chọn và chọn Sao chép từ menu chuột phải.

Bước 4: Trả lời email bằng cách nhấp vào đáp lại nút trên Trang Chủ (hoặc trên Thanh công cụ trong Outlook 2007).

Bước 5: Trong cửa sổ Thư trả lời, nhấp vào Dán nút trên Tin nhắn để dán các tệp đính kèm này.

Nếu bạn đang sử dụng Outlook 2013 hoặc phiên bản mới hơn, hãy bấm vào Bật ra ở góc trên bên trái của Ngăn đọc để mở cửa sổ Thư trả lời. Nhấp để biết thêm…

Bước 6: Soạn tin nhắn trả lời và nhấp vào Gửi .

Trả lời tự động với tệp đính kèm bằng VBA 

Có một macro VBA có thể giúp bạn tự động trả lời các tệp đính kèm gốc.

Lưu ý: Trước khi chạy bất kỳ macro VBA nào, bạn cần phải bật macro trong Microsoft Outlook.

Bước 1: Chọn email mà bạn sẽ trả lời kèm theo các tệp đính kèm.

Bước 2: Nhấn Khác + F11 để mở cửa sổ Microsoft Visual Basic for Applications.

Bước 3: Mở rộng Đối tượng Project1 và Microsoft Outlook ở thanh bên trái và bấm đúp vào ĐâyOutlookSession mở nó ra.

Bước 4: Dán đoạn mã sau vào cửa sổ ThisOutlookSession.

Sub RunReplyWithAttachments()
'Update by Extendoffice 20180830
    Dim xReplyItem As Outlook.MailItem
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyItem = xItem.Reply
    CopyAttachments xItem, xReplyItem
    xReplyItem.Display
    Set xReplyItem = Nothing
    Set xItem = Nothing
End Sub
Sub RunReplyAllWithAttachments()
    Dim xReplyAllItem As Outlook.MailItem
    Dim xItem As Object
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyAllItem = xItem.ReplyAll
    CopyAttachments xItem, xReplyAllItem
    xReplyAllItem.Display
    Set xReplyAllItem = Nothing
    Set xItem = Nothing
End Sub
    
Function GetCurrentItem() As Object
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = Application.ActiveInspector.currentItem
    End Select
End Function
    
Sub CopyAttachments(SourceItem As MailItem, TargetItem As MailItem)
    Dim xFilePath As String
    Dim xAttachment As Attachment
    Dim xFSO As Scripting.FileSystemObject
    Dim xTmpFolder As Scripting.Folder
    Dim xFldPath As String
    Set xFSO = New Scripting.FileSystemObject
    Set xTmpFolder = xFSO.GetSpecialFolder(2)
    xFldPath = xTmpFolder.Path & "\"
    For Each xAttachment In SourceItem.Attachments
        If IsEmbeddedAttachment(xAttachment) = False Then
            xFilePath = xFldPath & xAttachment.Filename
            xAttachment.SaveAsFile xFilePath
            TargetItem.Attachments.Add xFilePath, , , xAttachment.DisplayName
            xFSO.DeleteFile xFilePath
        End If
    Next
    Set xFSO = Nothing
    Set xTmpFolder = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
    Dim xAttParent As Object
    Dim xCID As String, xID As String
    Dim xHTML As String
    On Error Resume Next
    Set xAttParent = Attach.Parent
    xCID = ""
    xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
    If xCID <> "" Then
        xHTML = xAttParent.HTMLBody
        xID = "cid:" & xCID
        If InStr(xHTML, xID) > 0 Then
            IsEmbeddedAttachment = True
        Else
            IsEmbeddedAttachment = False
        End If
    End If
End Function

Bước 5: Nhấn F5 phím để chạy macro này. Trong phần mở đầu Macros hộp thoại, nhấn ChạyTrả lờiTất cảVớiTệp đính kèm nếu bạn muốn trả lời tất cả bằng tệp đính kèm. Nếu không, hãy chọn ChạyReplyWithAttachments, sau đó nhấp vào chạy .

Sau đó, nó sẽ mở cửa sổ Thư trả lời kèm theo tất cả các tệp đính kèm ban đầu.

Bước 6: Soạn tin nhắn trả lời và nhấp vào Gửi .

Tự động trả lời bằng tệp đính kèm với Kutools cho Outlook

Sản phẩm Trả lời với Đính kèm tiện ích của Kutools cho Outlook có thể giúp bạn trả lời email có tệp đính kèm gốc chỉ với một cú nhấp chuột.

Kutools cho Outlook : với hơn 100+ 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 email chứa các tệp đính kèm mà bạn cần trả lời.

2. Sau đó nhấn vào Kutools > Trả lời bằng tệp đính kèm > Trả lời bằng tệp đính kèm. Xem ảnh chụp màn hình:

Sau đó, tất cả các tệp đính kèm của email đã chọn được liệt kê trong Ban hành kèm trường của tin nhắn trả lời. Soạn email của bạn và gửi nó.

Nếu bạn muốn dùng thử miễn phí tiện ích này, vui lòng truy cập tải xuống miễn phí phần mềm đầu tiên, và sau đó đi đến áp dụng hoạt động theo các bước trên.

Một cú nhấp chuột để trả lời với tệp đính kèm với Kutools cho Outlook

Các bài liên quan:

• Làm cách nào để giữ tệp đính kèm khi trả lời trong Outlook?
• Làm cách nào để lưu tất cả các tệp đính kèm từ nhiều email vào thư mục trong Outlook?
• Làm cách nào để xóa tất cả các tệp đính kèm khỏi email trong Outlook?

---

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

🤖 Trợ lý thư AI: Email chuyên nghiệp tức thì với phép thuật AI--một cú nhấp chuột để có câu trả lời xuất sắc, giọng điệu hoàn hảo, khả năng thông thạo đa ngôn ngữ. Chuyển đổi email một cách dễ dàng! ...

📧 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.

Tìm hiểu thêm       Tải xuống miễn phí      Mua