Note: The other languages of the website are Google-translated. Back to English
登陆  \/ 
x
or
x
点此注册  \/ 
x

or

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

在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,双击以打开 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 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多种方便的工具,可以在60天内免费试用,没有任何限制。 更多      现在免费试用

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

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

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

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

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

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


相关文章:


Kutools for Outlook-为Outlook带来100个高级功能,并使工作更加轻松!

  • 自动CC / BCC 根据规则发送电子邮件; 自动转发 自定义多封电子邮件; 自动回复 没有交换服务器,还有更多自动功能...
  • BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒,还有更多提醒功能...
  • 在邮件对话中回复(全部)带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中...
  • 附件工具:管理所有邮件中的所有附件, 自动分离, 全部压缩,全部重命名,全部保存...快速报告, 计算选定的邮件...
  • 强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明,更快和更好。
拍摄kutools前景kutools选项卡1180x121
拍摄kutools前景kutools加标签1180x121
 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.