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

作者Kelly修改日期2025-02-25

在 Microsoft Outlook 中，當您轉寄郵件時，原始附件會完整保留；但當您回覆郵件時，Outlook 會自動移除所有附件，假設這些附件在對話中並非必要。這可能令人沮喪且降低效率，特別是當您需要引用重要檔案、重新傳送文件，或保留附件以提供更完整的上下文時。所幸，無論您偏好手動操作、一鍵式解決方案，還是自動化設定，都有多種方法可確保在 Outlook 中回覆郵件時仍包含附件。

帶附件答覆（透過手動複製與貼上）（基本但繁瑣）

一鍵式帶附件答覆（使用 Kutools for Outlook）👍（快速又省力）

帶附件答覆（透過 VBA 自動執行）（技術性高且需設定）

帶附件答覆（透過手動複製與貼上）

您可手動從郵件中複製附件，並在傳送前貼上至回覆訊息中。

1. 開啟 Outlook，選取您要回覆的郵件，並在閱讀窗格中預覽，或於新視窗中開啟。

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

手動複製貼上以附加檔案回覆的步驟截圖 1

3. 點擊回覆按鈕，即可開啟回覆視窗！

手動複製貼上以附加檔案回覆的步驟截圖 2

4. 在回覆訊息中，點擊訊息內文任意位置，並按下 Ctrl+V，或點擊貼上（位於）訊息索引標籤），即可輕鬆插入已複製的附件！

手動複製貼上以附加檔案回覆的步驟截圖 3

5. 撰寫您的回覆內容，確認附件無誤後，點擊傳送。

限制：

手動且重複：不適合頻繁操作。
耗時：每次操作都需額外步驟。
容易出錯：您可能會忘記複製並貼上附件。

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

厭倦了在 Outlook 中一次只能儲存一封郵件的附件嗎？立即體驗 Kutools for Outlook！其強大的全部儲存（附件）功能，讓您只需幾次點擊，就能從多封郵件或整個資料夾中快速儲存所有附件。告別繁瑣的手動操作，輕鬆掌控您的收件匣！

立即下載 Kutools for Outlook

一鍵式帶附件答覆（使用 Kutools for Outlook）👍

若想快速輕鬆地附上附件回覆，立即使用 Kutools for Outlook！其內建的以原始附件回覆功能，只需一鍵即可回覆郵件並完整保留原始附件，省時又高效！

告別 Outlook 效率低落的困擾！Kutools for Outlook 讓批次處理電子郵件變得更輕鬆——立即體驗 30 天免費試用！立即下載 Kutools for Outlook！！

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

「以原始附件回覆」或「全部回覆並附上原始附件」按鈕的截圖

就是這麼簡單！回覆訊息將自動附上原始郵件中的所有附件。只需撰寫內容並點擊傳送即可！

使用 Kutools for Outlook 在回覆郵件時保留附件的截圖

為什麼要選擇 Kutools for Outlook？

✅ 節省時間：無需手動複製貼上附件。
✅ 一鍵解決方案：立即以附件回覆！
✅ 使用友善：操作簡單直覺，無需任何技術背景！

注意：若要使用 Kutools for Outlook 的以原始附件回覆功能，首先應下載並安裝 Kutools for Outlook。

帶附件答覆（透過 VBA 自動執行）

對於熟悉 VBA 腳本的使用者，此方法可自動化帶附件回覆的流程，但需先在 Outlook 中啟用巨集，並手動加入該腳本。

💡 重要提醒：執行 VBA 巨集前，您必須先在 Outlook 中啟用巨集。

步驟 1：開啟 VBA 編輯器

1. 選取您想回覆的郵件訊息。

2. 按下 Alt+F11，立即開啟 Microsoft Visual Basic for Applications 視窗！

3. 在左側窗格中展開 Project 1 > Microsoft Outlook 物件，然後雙擊 ThisOutlookSession 以開啟它。

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 以回覆單一收件人，然後點擊執行。

巨集對話框的截圖

結果

回覆視窗將自動開啟，並包含所有原始附件。只需撰寫訊息，點擊傳送即可！

VBA 方法的優缺點：

✅ 自動化：無需手動複製貼上附件。
❌ 需要 VBA 知識：對初學者可能不夠友善。
❌ 巨集預設為停用狀態：您必須手動啟用。

結論：該選擇哪種方法？

以下是三種方法的比較，協助您選擇最適合需求的方案：

方法	最適用於	易用性	效率
手動複製貼上	偶爾使用	⭐⭐⭐⭐	⭐⭐
Kutools for Outlook	日常使用、非技術使用者	⭐⭐⭐⭐⭐	⭐⭐⭐⭐⭐
VBA 巨集	自動化愛好者、進階使用者	⭐⭐⭐	⭐⭐⭐⭐

對大多數使用者而言，Kutools for Outlook 是最佳選擇，因為這是最快且最簡單的方法來在 Outlook 中帶附件回覆！現在，您可輕鬆使用帶附件回覆功能，並選擇最符合您工作流程的方式！🚀

示範：一鍵使用帶附件答覆 Kutools for Outlook

最佳 Office 生產力工具

體驗全新 Kutools for Outlook，內含 100+ 項超強功能！立即點擊下載！

🤖KUTOOLS AI：運用先進 AI 技術，輕鬆處理電子郵件——無論是回覆、摘要、優化、擴充、翻譯還是撰寫郵件，通通一鍵搞定！

📧 郵件自動化：自動答覆（支援 POP 與 IMAP）／預約寄送郵件／寄信時依規則自動抄送密送／自動轉發（高級規則）／自動加入問候語／自動將多收件人郵件拆分為個別訊息……

📨 郵件管理：撤回郵件／依主旨等條件封鎖詐騙郵件／刪除重複郵件／高級搜尋／整合文件夾……

📁 附件專業版：批次儲存／批次解除附加／批次壓縮／自動保存／自動拆離／自動壓縮……

👍 一鍵奇蹟：帶附件全部答復／防釣魚郵件／🕘顯示發送者當前時間時區……

👩🏼‍🤝‍👩🏻 聯絡人與行事曆：從選取的郵件中批次新增聯絡人／將聯繫人組拆分為個別群組／移除生日提醒……

用您的慣用語言暢享 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

關於此套件 ⬇ 下載套件 💳 購買套件