如何在 Outlook 中回覆郵件時一併複製所有附件的檔名？

若我們在回覆前已將 HTML 電子郵件轉換為 RTF 格式，於 Outlook 中點擊 【首頁】 > 【回覆】 後，所有附件名稱便會自動複製至回覆訊息中。

1. 雙擊開啟需複製附件名稱的電子郵件，於訊息視窗中點擊訊息> 動作> 編輯訊息。請參閱截圖：

2. 接著點擊格式文字 > RTF 格式，然後儲存並關閉此電子郵件。

3. 您已返回主畫面，請繼續選取該電子郵件，並點擊首頁> 回覆。

4. 現在所有附件名稱都已從原始電子郵件複製並貼上至回覆訊息中（如下方截圖所示）。請立即撰寫回覆內容並傳送！

輕鬆答覆多封選中的郵件，同時保留 Outlook 中的所有原始附件

一般情況下，在 Outlook 中回覆電子郵件時，原始附件會被自動移除。但透過 Kutools for Outlook 的超實用附帶附件回覆功能，您就能輕鬆在回覆郵件時保留所有原始附件！

如果您已安裝 Kutools for Outlook，即可使用其複製名稱功能，快速從收到的電子郵件中提取所有附件名稱，並一鍵貼上至回覆訊息中，省時又高效！

1. 選取您要回覆的電子郵件，然後點擊 KUTOOLS PLUS > 附件工具 > 複製名稱。

隨即會彈出對話框，提示附件名稱已複製到剪貼簿。點擊確定即可關閉對話框。

2. 接著點擊首頁＞ 回覆，即可回覆所選郵件。

3. 在回覆訊息視窗中，將游標置於訊息內文處，按下 Ctrl+V 鍵，即可輕鬆貼上附件名稱。

此方法將介紹一個 VBA 巨集，可在 Outlook 中回覆電子郵件時，自動複製所有附件的檔名，並貼到回覆郵件的內文中。

1. 同時按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在左側的專案總管中，展開「專案 1」，雙擊開啟 ThisOutlookSession 視窗（見下方截圖），並將下列程式碼貼入該視窗中。

VBA：在 Outlook 中回覆電子郵件時複製所有附件名稱

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. 點擊工具＞ 參考設定。

4. 在為 Outlook 2016 開啟的「參考設定 – 專案 1」視窗中，請勾選「可用參考項目」清單中的 Microsoft Word 16.0 物件庫 參考項目，然後點擊確定按鈕。請參閱截圖：

注意：若您使用的是 Outlook 2013，請勾選 Microsoft Word 15.0 物件庫 參考項目；若使用 Outlook 2010，則請勾選 Microsoft Word 14.0 物件庫 參考項目。

5. 儲存 VBA 並關閉 Microsoft Visual Basic for Applications 視窗。

6. 現在您已回到 Outlook 主介面，請選取要回覆的電子郵件，並點擊首頁> 回覆 或全部回覆。
注意：若附件名稱未自動複製至回覆郵件中，請重新啟動 Outlook 後再次回覆。

現在，所有附件名稱都已從所選郵件複製並貼上至回覆郵件中。請參閱以下截圖：