如何在Outlook中回覆郵件時複製所有附件名稱？

如果我們在回覆之前已將HTML郵件轉換為RTF，則單擊「開始」>「答覆」後，所有附件名稱都會被複製到回覆郵件中。

1. 雙擊打開需要複製附件名稱的郵件，然後在郵件窗口中單擊「郵件地址」>「回覆」>「編輯郵件」。見截圖：

2. 繼續單擊「格式文本」>「富文本」，然後保存並關閉郵件。

3. 現在您返回到主視圖。保持選中該郵件，並單擊「 開始」>「 答覆」。

4. 此時，所有附件名稱都從原始郵件中複製並粘貼到回覆郵件中，如下圖所示。請撰寫回覆郵件並發送。

輕鬆回覆所選郵件並保留Outlook中的所有原始附件

一般來說，在Outlook中回覆郵件時，原始附件會被移除。但是，借助Kutools for Outlook出色的「帶附件回覆 」功能，您可以在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在打開的Outlook 2016的「引用 – 項目1」窗口中，請勾選 Microsoft Word 16.0 Object Library 在可用引用框中的引用，然後單擊 確定 按鈕。見截圖：

注意： 請選擇 Microsoft Word 15.0 Object Library 引用，如果您使用的是Outlook 2013，或者選擇 Microsoft Word 14.0 Object Library 引用與Outlook 2010配合使用。

5. 保存VBA並關閉Microsoft Visual Basic for Applications窗口。

6. 現在您返回到Outlook的主界面。選擇要回覆的郵件，並單擊「開始」>「答覆」或 「全部答覆」。
注意： 如果附件名稱未複製並粘貼到回覆郵件中，請重新啟動您的Outlook並再次回覆。

現在，所有附件名稱都從所選郵件中複製並粘貼到回覆郵件中。見截圖：