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

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

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

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

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

4. 現在所有附件名稱都已從原始郵件複製並貼上至回覆郵件中，如下方截圖所示。請撰寫回覆內容並立即寄出！

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

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

只要您已安裝 Kutools for Outlook，就能立即使用其複製名稱功能，快速複製來信中所有附件的檔名，並一鍵貼上至 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. 在開啟的「參考設定 – 專案 1」（適用於 Outlook 2016）視窗中，請勾選「可用參考」清單中的 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 後再次嘗試回覆。

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