如何在Outlook回覆時保留附件？

在 Microsoft Outlook 中，當您轉寄電子郵件時，原始附件會保持不變。然而，當您回覆電子郵件時，Outlook 會自動移除所有附件，假設它們在對話中是不必要的。這可能會令人感到沮喪且效率低下，特別是當您需要引用重要文件、重新發送文檔或保留附件以獲得更好的上下文時。幸運的是，有幾種方法可以確保在使用 Outlook 回覆時附件仍然包含在內，無論您偏好手動、一鍵式或自動化解決方案：

透過手動複製和貼上來回覆帶附件的郵件 （基本但繁瑣）

使用 Kutools for Outlook 一鍵回覆帶附件的郵件 👍 （快速且輕鬆）

使用 VBA 自動回覆帶附件的郵件 （技術性且需設定）

透過手動複製和貼上來回覆帶附件的郵件

您可以手動從郵件中複製附件，然後在發送之前將其貼到回覆訊息中。

1. 打開 Outlook，選擇您要回覆的郵件，並在閱讀窗格中預覽，或者在單獨的視窗中打開它。

2. 點擊任何附件，然後在附件標籤下點擊 全選 > 複製。

3. 點擊回覆按鈕以打開回覆視窗。

4. 在回覆訊息中，點擊訊息正文中的任意位置，然後按下 Ctrl + V 或在 訊息 標籤中點擊 貼上 以插入已複製的附件。

5. 撰寫您的回覆，檢查附件，然後點擊發送。

---

📂 輕鬆保存多封郵件的附件

厭倦了在 Outlook 中逐封郵件保存附件嗎？使用 Kutools for Outlook 簡化您的工作流程！強大的「儲存全部（附件）」功能讓您只需點擊幾下，就能從多封郵件或整個資料夾中保存附件。告別繁瑣的手動操作，輕鬆掌控您的收件匣。

立即下載 Kutools for Outlook

使用 Kutools for Outlook 一鍵回覆帶附件的郵件 👍

為了快速且輕鬆地回覆帶附件的郵件，您可以使用 Kutools for Outlook。回覆帶原始附件功能讓您只需點擊一下即可保留原始附件進行回覆。

選擇包含您需要保留的附件的郵件。然後點擊 Kutools > 回覆帶原始附件或全部回覆帶原始附件。

就是這樣！回覆訊息將自動包含原始郵件中的所有附件。只需撰寫您的訊息並點擊發送即可。

使用 VBA 自動回覆帶附件的郵件

對於熟悉 VBA 腳本的用戶，此方法可自動化回覆帶附件的過程。但是，它需要在 Outlook 中啟用宏並手動添加腳本。

第 1 步：打開 VBA 編輯器

1. 選擇您要回覆的郵件。

2. 按 Alt + F11 打開 Microsoft Visual Basic for Applications 視窗。

3. 在左側面板中，展開 Project1 > Microsoft Outlook Objects。雙擊 ThisOutlookSession 以打開它。

第 2 步：插入 VBA 程式碼

將以下 VBA 程式碼複製並貼到 ThisOutlookSession 視窗中：

Sub RunReplyWithAttachments()
'Update by Extendoffice 20250224
    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 Object
    Dim xTmpFolder As Object
    Dim xFldPath As String
    Set xFSO = CreateObject("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 = 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

第 3 步：運行 VBA 宏

1. 按 F5 或點擊運行按鈕以執行宏。

2. 在宏對話框中，選擇 ThisOutlookSession.RunReplyAllWithAttachments 以全部回覆，或選擇 ThisOutlookSession.RunReplyWithAttachments 以回覆一位收件人。點擊運行。

結果

回覆視窗將打開並包含所有原始附件。只需撰寫您的訊息並點擊發送即可。

結論：您應該選擇哪種方法？

以下是三種方法的比較，幫助您決定哪一種最適合您的需求：

對於大多數用戶來說，Kutools for Outlook 是最佳選擇，因為它是回覆帶附件的最快且最簡單的方法。現在，您可以輕鬆地在 Outlook 中回覆帶附件的郵件，使用最適合您工作流程的方法！🚀

演示：使用 Kutools for Outlook 一鍵回覆帶附件的郵件

相關文章：

• 如何在Outlook回覆時保留附件？
• 如何在Outlook中將多封郵件的所有附件保存到文件夾？
• 如何在Outlook中移除郵件的所有附件？

---

最佳辦公室生產力工具

最新消息：Kutools for Outlook 推出免費版本！

體驗全新 Kutools for Outlook，超過100項精彩功能！立即下載！

🤖 Kutools AI ：採用先進的AI技術輕鬆處理郵件，包括答覆、摘要、優化、擴充、翻譯及撰寫郵件。

📧 郵件自動化：自動回覆（支援POP及IMAP） / 排程發送郵件 / 發送郵件時根據規則自動抄送密送 / 自動轉發（高級規則） / 自動添加問候語 / 自動分割多收件人郵件為個別郵件 ...

📨 郵件管理：撤回郵件 / 根據主題等方式阻止詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾 ...

📁 附件專業工具：批量保存 / 批量拆離 / 批量壓縮 / 自動保存 / 自動拆離 / 自動壓縮 ...

🌟 介面魔法：😊更多精美與酷炫表情符號 /重要郵件來臨時提醒 / 最小化 Outlook 而非關閉 ...

👍 一鍵便利：帶附件全部答復 / 防詐騙郵件 / 🕘顯示發件人時區 ...

👩🏼‍🤝‍👩🏻 聯絡人與日曆：從選中郵件批量添加聯絡人 / 分割聯絡人組為個別組 / 移除生日提醒 ...

以您偏好的語言使用 Kutools，支援英語、西班牙語、德語、法語、中文及超過40種其他語言！

只需點擊一次，即可立即解鎖 Kutools for Outlook。別等了，現在下載提升您的工作效率！

Kutools for Outlook 功能清單立即下載前往購買

🚀 一鍵下載 — 獲取全部 Office 插件

強力推薦：Kutools for Office（5合1）

一鍵下載五個安裝程式，包括 Kutools for Excel, Outlook, Word, PowerPoint及 Office Tab Pro。 立即下載！

• ✅ 一鍵便利：一次操作即可下載全部五套安裝包。
• 🚀 隨時處理任何 Office 任務：安裝您需求的插件，隨時隨地。
• 🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

套件介紹 ⬇下載套件 💳 購買套件