跳到主要内容

在Outlook中回复时如何复制所有附件的名称?

作者:凯莉 最后修改时间:2020-05-28

在Outlook中回复RTF电子邮件(格式为Rich Format)时,它将复制所有附件的名称并自动粘贴在邮件正文中(请参见下面的屏幕截图)。 但是,在Outlook中回复HTML电子邮件时,回复电子邮件中缺少附件。 在这里,本文将介绍一些在回复电子邮件时或直接在收到的电子邮件中复制所有附件名称的方法。


将HTML更改为RTF答复时,复制所有附件的名称

如果我们在回复之前将HTML电子邮件转换为RTF,则在Outlook中单击“主页”>“回复”后,所有附件的名称都将复制到回复邮件中。

1。 双击以打开您需要复制附件名称的电子邮件,然后单击 留言 > 行动 > 编辑讯息 在消息窗口中。 看截图:

2。 继续点击 格式化文字 > 富文本,然后保存并关闭电子邮件。

3。 现在返回主视图。 继续选择电子邮件,然后单击 主页 > 回复.

4。 现在,所有附件的名称都将从原始电子邮件中复制并粘贴到回复邮件中,如下图所示。 请撰写回复邮件并发送。

用VBA答复时复制所有附件的名称

此方法将引入VBA宏,以在回复电子邮件时复制所有附件的名称,然后将名称粘贴到Outlook中回复电子邮件的邮件正文中。

1。 按 其他 + F11 同时按下两个键可以打开“ Microsoft Visual Basic for Applications”窗口。

2。 在左侧的Project Explorer中,展开Project 1,双击以打开 本次展望会议 窗口(请参见下面的屏幕截图),然后将下面的代码粘贴到窗口中。

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 1的开头参考-项目2016窗口中,请检查 Microsoft Word 16.0对象库 可用参考框中的参考,然后单击 OK 按钮。 看截图:

备注:请选择 Microsoft Word 15.0对象库 如果您使用的是Outlook 2013,请参考;或者 Microsoft Word 14.0对象库 Outlook 2010参考。

5。 保存VBA并关闭“ Microsoft Visual Basic应用程序”窗口。

6。 现在,您返回到Outlook的主界面。 选择您要回复的电子邮件,然后单击 主页 > 回复 or 全部回复.
备注: 如果附件名称未复制并粘贴到回复电子邮件中,请重新启动Outlook并再次回复。

现在,所有附件的名称都将从所选电子邮件中复制并粘贴到回复电子邮件中。 看截图:


使用出色的工具回复时复制所有附件名称

如果你有 Kutools for Outlook 安装后,可以应用它 复制名称 功能可以快速复制收到的电子邮件中的所有附件名称,然后轻松地将其粘贴到Outlook中的回复邮件中。

Kutools for Outlook:终极 Outlook 工具包,包含 100 多个方便的工具。 免费试用 30 天,无任何限制,不用担心!   阅读更多    立即开始免费试用!

1。 选择您要回复的电子邮件,然后单击 库工具 > 附件工具 > 复制名称.

然后会出现一个对话框,告诉您附件名称已复制到剪贴板。 请点击 OK 关闭它。

2。 继续点击 主页 > 回复 回复所选电子邮件。

3。 在回复邮件窗口中,将光标置于邮件正文中,然后按 按Ctrl + V 键以轻松粘贴附件名称。

轻松回复所有保留在Outlook中的带有原始附件的电子邮件

通常,在Outlook中回复电子邮件时,原始附件会被删除。 但是,梦幻般 带附件回复 Kutools for Outlook 的功能,您可以在 Outlook 中回复电子邮件时轻松保留电子邮件的所有附件。


带附件回复


相关文章:


最佳办公生产力工具

最新消息:Kutools for Outlook 发布 免费版本!

体验全新的 Kutools for Outlook 免费版本拥有 70 多项令人难以置信的功能,您可以永久使用! 点击立即下载!

🤖 Kutools人工智能 : 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...

📧 电子邮件自动化: 自动回复(适用于 POP 和 IMAP)  /  安排发送电子邮件  /  发送电子邮件时按规则自动抄送/密件抄送  /  自动转发(高级规则)   /  自动添加问候语   /  自动将多收件人电子邮件拆分为单独的消息 ...

📨 电子邮件管理: 撤回电子邮件  /  按主题和其他人阻止诈骗电子邮件  /  删除重复的电子邮件  /  高级搜索  /  合并文件夹 ...

📁 附件专业版批量保存  /  批量分离  /  批量压缩  /  自动保存   /  自动分离  /  自动压缩 ...

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  收到重要邮件时提醒您  /  最小化 Outlook 而不是关闭 ...

👍 一键奇迹: 使用传入附件回复全部  /   反网络钓鱼电子邮件  /  🕘显示发件人的时区 ...

👩🏼‍🤝‍👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人  /  将联系人组拆分为各个组  /  删除生日提醒 ...

只需单击一下即可立即解锁 Kutools for Outlook -永久免费. 别等了, 立即下载并提高您的效率!

kutools for outlook 功能1 kutools for outlook 功能2
 

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations