Note: The other languages of the website are Google-translated. Back to English

在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-為Outlook帶來100個高級功能,並使工作更加輕鬆!

  • 自動CC / BCC 根據規則發送電子郵件; 自動前進 自定義多封電子郵件; 自動回复 沒有交換服務器,還有更多自動功能...
  • BCC警告 -當您嘗試全部答复時顯示消息 如果您的郵件地址在“密件抄送”列表中; 缺少附件時提醒,還有更多提醒功能...
  • 在郵件對話中回复(全部)帶有所有附件; 回复許多電子郵件 片刻之間; 自動添加問候語 回复時將日期添加到主題中...
  • 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,保存全部...快速報告, 計算選定的郵件...
  • 強大的垃圾郵件 習俗 刪除重複的郵件和聯繫人... 使您能夠在Outlook中做得更聰明,更快和更好。
拍攝kutools前景kutools選項卡1180x121
拍攝kutools前景kutools加標籤1180x121
 
按評論排序
留言 (24)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
嗨團隊,他有一種方法可以使用 Outlook 中的一些快捷鍵來運行此宏。
網站主持人對此評論進行了最小化
是的。 在主要選項下,您可以添加一個開發人員選項卡,您可以在其中找到宏。 而且,更好的是,如果您右鍵單擊頂部帶有所有按鈕的條帶,他們稱之為“功能區”,您可以添加一個自定義的新組並將您的宏顯示為主頁選項卡中的按鈕。
網站主持人對此評論進行了最小化
我正在嘗試使用帶有附件的回复,但它沒有添加附件,只是保留鏈接。 我在收到電子郵件時使用自動分離。 是否有需要更新的配置設置? 感謝您的幫助!
網站主持人對此評論進行了最小化
親愛的蘇珊,

附件將不再位於電子郵件中,因為它們會自動從電子郵件中分離出來。 請關閉自動分離功能,以便使用此帶附件回复功能。

最好的問候,水晶。
網站主持人對此評論進行了最小化
如何關閉自動分離功能
網站主持人對此評論進行了最小化
親愛的達科他州,

如果您使用的是 Kutools for Outlook 的自動分離所有接收附件功能,請按照以下屏幕截圖所示操作,通過在 Outlook 中取消選中它來關閉此功能。 謝謝!
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
我已經下載了 Kutools 標籤。 我可以將“帶附件回复”添加到我的主頁選項卡或快速步驟嗎?
網站主持人對此評論進行了最小化
親愛的吉姆,
您可以右鍵單擊帶有附件的回复按鈕,然後選擇“添加到快速訪問工具欄”以將此功能添加到功能區上的快速訪問工具欄。 看截圖:
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
在腳本的最後一部分,很多變量都沒有定義。
網站主持人對此評論進行了最小化
我使用了 VBA 代碼,但它附加了電子郵件內容中的所有圖像(.gif、jpg、...)。 請告訴我如何解決這個問題?
網站主持人對此評論進行了最小化
美好的一天,
代碼在帖子中更新。 現在問題解決了。 請試一試,感謝您的評論。
網站主持人對此評論進行了最小化
非常好,謝謝,但我有編譯器錯誤:未定義用戶定義的類型。 部分 Sub CopyAttachments 突出顯示了 Dim xFSO As Scripting.FileSystemObject
網站主持人對此評論進行了最小化
嗨,洪扎,
該代碼在我的情況下運行良好。 您使用哪個 Office 版本?
網站主持人對此評論進行了最小化
我也是。 我和上面同樣的人有問題。 我使用 Office 2016。
網站主持人對此評論進行了最小化
我正在使用 Office 365 出現同樣的錯誤
網站主持人對此評論進行了最小化
嗨,鮑勃,
請試試:
1. 按 Alt + F11 鍵再次打開 Microsoft Visual Basic for Applications 窗口;
2. 單擊工具 > 參考,然後選中 Microsoft Scripting Runtime 框。
現在代碼可以工作了。
網站主持人對此評論進行了最小化
那幫我解決!

謝謝。
網站主持人對此評論進行了最小化
您好!

非常感謝這麼棒的工具!

可以運行命令以使回复窗口不會彈出而是停留在閱讀窗格視圖中嗎?
網站主持人對此評論進行了最小化
嗨阿列克謝,
我們發布了一個新版本,該工具已更新。 謝謝您的支持。
網站主持人對此評論進行了最小化
嗨,水晶!

感謝更新!
宏代碼是否已更改,或者只能在安裝工具的情況下使用?
網站主持人對此評論進行了最小化
嗨阿列克謝,
該代碼在沒有安裝工具的情況下單獨使用。
網站主持人對此評論進行了最小化
Hi
我將使用代碼在所有郵箱的搜索結果中回复所有附件,但它顯示錯誤並且不起作用。
請讓我知道如何將代碼更改為可用於所有郵箱。

最好的問候
沙魯茲
網站主持人對此評論進行了最小化
嗨,
該錯誤不是由搜索引起的。
為避免該錯誤,請單擊工具 > 參考打開參考對話框,然後啟用 Microsoft 腳本運行時選項。 有關步驟,請參見附圖。
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
嗨,我正在使用您的代碼進行回复,這很棒,感謝您提供的表格。我的郵件選項設置為在評論前加上我的姓名首字母,這在我使用標準回复時有效。 當我使用此代碼創建回复時,我的姓名縮寫沒有插入你能幫忙嗎?謝謝史蒂夫
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點