如何在 Outlook 回复邮件时，复制所有附件的名称？

如果在回复前已将 HTML 邮件转换为 RTF 格式，点击 Outlook 中的“主页”>“回复”时，所有附件名称都会被复制到回复邮件中。

1. 在邮件窗口中，双击打开需要复制附件名称的邮件，然后点击邮件> 操作> 编辑邮件。见下方截图：

2. 继续点击格式文本 > 富文本，然后保存并关闭该邮件。

3. 现在已返回主界面。请保持选中该邮件，点击主页 > 回复。

4. 现在，所有附件名称已从原始邮件复制并粘贴到回复邮件中，如下图所示。请编辑回复邮件并发送。

轻松答复多封选中的邮件，并在 Outlook 中保留所有原始附件

通常在 Outlook 中回复邮件时，原始附件会被移除。但借助带附件回复的带附件回复功能，您可以在 Outlook 中回复邮件时轻松保留所有附件。

如果您已安装 Kutools for Outlook，即可使用其拷贝名称功能，快速复制收到邮件中所有附件的名称，并轻松粘贴到 Outlook 的回复邮件中。

1. 选择需要回复的邮件，点击 KUTOOLS PLUS > 附件工具 > 拷贝名称。

在附件名称已复制到剪贴板后，会弹出一个对话框进行提示。点击确定即可关闭窗口。

2. 继续点击主页 > 回复，即可回复选中的邮件。

3. 在回复邮件窗口，将光标放在正文中，按下 Ctrl+V 组合键，即可轻松粘贴附件名称。

本方法将通过 VBA 宏介绍，如何在 Outlook 回复邮件时复制所有附件的名称，并将其粘贴到回复邮件的正文中。

1. 同时按下 Alt+F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在左侧的项目资源管理器中，展开 Project 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 后再尝试回复。

现在所有附件的名称已从选中邮件复制，并粘贴到回复邮件中。见下方截图：