跳到主要內容

在Outlook中回复時如何保留附件?

當我們在Microsoft Outlook中轉發電子郵件時,此電子郵件中的原始附件仍保留在轉發的郵件中。 但是,當我們回復電子郵件時,原始附件將不會附加在新的回复消息中。 在這裡,我們將介紹有關在Microsoft Outlook中回复時保留原始附件的一些技巧。

通過手動複製和粘貼來回复附件
VBA自動回复附件
一鍵回复帶有Kutools for Outlook的附件


通過手動複製和粘貼來回复附件

我們可以手動將原始附件複製到電子郵件中,然後在以後答復電子郵件時將其粘貼到“答复消息”窗口中。

步驟1:單擊電子郵件以在“閱讀窗格”中預覽。

步驟2:在預覽電子郵件中右鍵單擊一個附件,然後選擇 選擇全部 從右鍵單擊菜單中。

第3步:右鍵單擊選定的附件,然後選擇 複製 從右鍵單擊菜單中。

步驟4:按一下來回覆電子郵件 回复 上的按鈕 首頁 標籤(或在Outlook 2007中的工具欄上)。

步驟5:在[回覆郵件]視窗中,按一下 上的按鈕 您的留言 標籤以粘貼這些附件。

如果您使用的是Outlook 2013或更高版本,請單擊 彈出 在“閱讀窗格”的左上角,以釋放“答复消息”窗口。 點擊了解更多…

步驟6:撰寫回覆訊息,然後按一下 送出 按鈕。


在Outlook中輕鬆回复帶有原始附件的電子郵件:

Kutools for Outlook's 帶附件回复 實用程序可以幫助您輕鬆地在Outlook中回复包含原始附件的電子郵件。 請參見下面的演示: 
立即下載並試用! (60 天免費試用)


VBA自動回复附件 

有一個VBA宏可以幫助您自動回復原始附件。

注意:在運行任何VBA宏之前,您需要 在Microsoft Outlook中啟用宏.

第1步:選擇您要回复的電子郵件及其附件。

步驟2:按下 其他 + F11 鍵以打開“ Microsoft Visual Basic應用程序”窗口。

步驟3:在左側欄中展開Project1和Microsoft Outlook對象,然後雙擊 本次展望會議 打開它。

步驟4:將以下代碼粘貼到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

步驟5:按下 F5 運行此宏的鍵。 在開幕 對話框,單擊 運行回复所有附件 如果您想用附件回复所有人。 否則,選擇 RunReplyWithAttachments, 然後點擊 按鈕。

然後,它會打開帶有所有原始附件的“回复郵件”窗口。

步驟6:撰寫回覆訊息,然後按一下 送出 按鈕。


使用Kutools for Outlook自動回复附件

帶附件回复 的效用 Kutools for Outlook 一鍵即可幫助您回复帶有原始附件的電子郵件。

Kutools for Outlook :具有超過100個方便的Outlook加載項, 60天免費試用.

1.選擇包含您需要回复的附件的電子郵件。

2。 然後點擊 庫工具 > 帶附件回复 > 帶附件回复。 看截圖:

然後,所選電子郵件的所有附件都會列在 回复消息的字段。 撰寫並發送電子郵件。

如果您想免費試用該實用程序,請轉到 免費下載軟件 首先,然後按照上述步驟進行操作。


一鍵回复帶有Kutools for Outlook的附件

  如果您想免費試用(60天)此實用程序, 請點擊下載,然後按照上述步驟進行操作。


相關文章:


最佳辦公生產力工具

Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook

📧 電子郵件自動化: 外出(適用於 POP 和 IMAP)  /  安排發送電子郵件  /  發送電子郵件時按規則自動抄送/密件副本  /  自動轉送(進階規則)   /  自動添加問候語   /  自動將多收件者電子郵件拆分為單獨的訊息 ...

📨 電子郵件管理: 輕鬆回憶電子郵件  /  按主題和其他人阻止詐騙電子郵件  /  刪除重複的電子郵件  /  進階搜索  /  合併資料夾 ...

📁 附件專業版批量保存  /  批量分離  /  批量壓縮  /  自動保存   /  自動分離  /  自動壓縮 ...

🌟 介面魔法: 😊更多又漂亮又酷的表情符號   /  使用選項卡式視圖提高 Outlook 工作效率  /  最小化 Outlook 而不是關閉 ...

👍 一鍵奇蹟: 使用傳入附件回覆全部  /   反網路釣魚電子郵件  /  🕘顯示寄件者的時區 ...

👩🏼‍🤝‍👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人  /  將聯絡人群組拆分為各組  /  刪除生日提醒 ...

超過 100特點 等待您的探索! 按此處了解更多。

閱讀更多       免費下載      購買
 

 

Comments (26)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ciao, la macro funziona. Peccato che risponde solo al mittente, allegando gli allegati, e non a tutte le persone presenti in una mail. come si potrebbe modificare per aggiungere questa seconda funzione?

grazie mille
This comment was minimized by the moderator on the site
Buna ziua!

Exista posibilitatea de a da reply all la un email care are persoane in bcc?

Multumesc!
This comment was minimized by the moderator on the site
Hi, I am using your code for reply which is great, thank you form making it available.I have my mail options set to preface comments with my initials which works when I use the standard reply. When I create a reply using this code my intials are not inserted Can you assist please?ThanksSteve
This comment was minimized by the moderator on the site
Hi
I am going to use the code to reply all with attachments in search results from All Mailboxes but it shows me an error and does not work.
please let me know how to change the code to be usable for All Mailboxes.

Best regards
Shahrooz
This comment was minimized by the moderator on the site
Hi,
The error does not cause by the search.
To avoid the error, please click Tools > References to open the References dialog, and then enable the Microsoft Scripting Runtime option. See the attached image for the steps.
This comment was minimized by the moderator on the site
Hi!

Thanks a lot for such a great tool!

Can the command be ran so that the reply window won't pop-up but stay in reading pane view?
This comment was minimized by the moderator on the site
Hi Alexey,
We have released a new version with the tool updated. Thank you for your support.
This comment was minimized by the moderator on the site
Hi Crystal!

thanks for update!
had the macro code changed or it would work only with tool installed?
This comment was minimized by the moderator on the site
Hi Alexey,
The code is used alone without the tool installed.
This comment was minimized by the moderator on the site
Very nice, thanks, but I have compiler error: User-defined type not defined. There is highlighted Dim xFSO As Scripting.FileSystemObject in part Sub CopyAttachments
This comment was minimized by the moderator on the site
Hi Honza,
The code works well in my case. Which Office version do you use?
This comment was minimized by the moderator on the site
me too. I have the problem with the same people above. I use Office 2016.
This comment was minimized by the moderator on the site
I am using office 365 with the same error
This comment was minimized by the moderator on the site
Hi Bob,
Please try:
1. Press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window again;
2. Click Tools > References, and check the Microsoft Scripting Runtime box.
Now the code can work.
This comment was minimized by the moderator on the site
That solve it for me!

Thanks.
This comment was minimized by the moderator on the site
I used VBA code but it attaches with all image (.gif, jpg,...) in email content. Pls show me how to solve this problem?
This comment was minimized by the moderator on the site
Good Day,
The code is updated in the post. The problen now is solved. Please have a try and thanks for your comment.
This comment was minimized by the moderator on the site
In the last part of the script, many of the variables are not defined.
This comment was minimized by the moderator on the site
I have downloaded the Kutools tab. Can I add the 'Reply with Attachment' to my home tab or to Quick Steps??
This comment was minimized by the moderator on the site
Dear Jim,
You can right click the Reply with Attachment button, and select the "Add to Quick Access Toolbar" to add this function to the Quick Access Toolbar on the Ribbon. See screenshot:
This comment was minimized by the moderator on the site
I am trying to use the Reply with Attachments but it isn't adding the attachment, just keeping the link. I use the automatic detach when email is received. Is there a configuration setting that I need to update? Thank you for your help!
This comment was minimized by the moderator on the site
Dear Susan,

The attachments won't locate in the email any more as they are detached automatically from the email. Please turn off the auto detach feature for the sake of using this Reply with Attachment feature.

Best Regards, Crystal.
This comment was minimized by the moderator on the site
how do you turn off the auto detach feature
This comment was minimized by the moderator on the site
Dear Dakota,

If you are using the Auto detach all receiving attachments feature of Kutools for Outlook, please do as below screenshot shown to turn off this feature by unchecking it in your Outlook. Thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations