Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

在Outlook里答复邮件并保留(原邮件的)附件

在Outlook里转发邮件时,Outlook会自动将原邮件中的附件添加到转发邮件里。但是,答复邮件时,原邮件里的附件却不会添加到答复邮件里。一般情况下,复制附件后再粘贴到答复邮件里也是可行的。除此之外,我们还要介绍几种更简单便捷的方法。

Kutools for Outlook: 100+ New Advanced Tools for Outlook.
Office Tab: Enable Tabbed Editing and Browsing in Office, Just Like Chrome, Firefox, IE 8/9/10.
Classic Menu: Bring Old Menus and Toolbars Back to Office 2007, 2010, 2013, 2016 and 2019.

arrow blue right bubble 方法一:复制原邮件里的附件,再粘贴到答复邮件里

想要实现答复邮件并保留附件,最常见的方法就是在原邮件里复制附后,直接粘贴到答复邮件里。

1. 在阅读窗格里预览将答复的邮件,或者是双击打开。

2. 在附件栏里,全选所有的附件并复制。

快捷键全选:选中任一附件后,在键盘上同时按Ctrl键和A键;
快捷键复制:Ctrl + C。

3. 点击开始 > 答复按钮答复邮件, 然后在答复邮件窗口里点击邮件 > 粘贴

如果你使用的是Outlook 2013, 请点击预览窗格左上角的弹出按钮弹出答复邮件窗口。

6. 编辑答复邮件并发送.


arrow blue right bubble 方法二:运行VBA答复邮件并保留原附件

下面VBA代码可以帮你快速答复邮件并保留原邮件里的附件。

注意:在运行VBA宏之前,你需要先在Outlook里启用宏。

1. 选择将要答复并保留附件的邮件。

2. 在键盘上同时点击Alt和F11键打开Microsoft Visual Basic for Applications窗口。

3. 在工程资源管理器窗格中,展开Project1,双击打开ThisOutlookSession窗口。

4. 将下面的代码粘贴到ThisOutlookSession窗口中。

VBA: 答复邮件并保留附件

Sub RunReplyWithAttachments()
Dim oReply As Outlook.MailItem
Dim oItem As Object
Set oItem = GetCurrentItem()
If Not oItem Is Nothing Then
Set oReply = oItem.Reply
CopyAttachments oItem, oReply
oReply.Display
End If
Set oReply = Nothing
Set oItem = Nothing
End Sub
Sub RunReplyAllWithAttachments()
Dim oReply As Outlook.MailItem
Dim oItem As Object
Set oItem = GetCurrentItem()
If Not oItem Is Nothing Then
Set oReply = oItem.ReplyAll
CopyAttachments oItem, oReply
oReply.Display
End If
Set oReply = Nothing
Set oItem = Nothing
End Sub
Function GetCurrentItem() As Object
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = Application.ActiveInspector.CurrentItem
End Select
End Function
Sub CopyAttachments(oSourceItem, oTargetItem)
Set oFso = CreateObject("Scripting.FileSystemObject")
Set fldTemp = oFso.GetSpecialFolder(2) 'Temporary Folder
sPath = fldTemp.Path & "\"
For Each oAtt In oSourceItem.Attachments
sFile = sPath & oAtt.FileName
oAtt.SaveAsFile sFile
oTargetItem.Attachments.Add sFile, , , oAtt.DisplayName
oFso.DeleteFile sFile
Next
Set fldTemp = Nothing
Set oFso = Nothing
End Sub

5. 点击F5键运行VBA。

这时答复邮件窗口打开,原邮件中的所有附件都自动复制到附件栏里。

6. 编辑答复邮件并发送。

注意:如果原邮件正文里包含图片,运行上面的VBA后,这些图片也会添加到答复邮件的附件栏里。


arrow blue right bubble 方法三:运行Kutools for Outlook答复邮件并保留原附件

安装Kutools for Outlook后,你可以运行其带附件答复功能一键答复当前选中的邮件并保留其附件。

Kutools for Outlook - 让你在 Outlook 里的工作更简单、更快捷!批量保存/压缩附件、高级打印、自动答复\转发\拦截垃圾邮件、删除重复项,等等……

1. 选择你需要答复并保留附件的邮件。

2.点击Kutools > 带附件答复 > 带附件答复。见下图:

3. 此时答复邮件窗口弹出,原邮件中的所有附件都自动添加到当前答复邮件里的附件栏中。编辑邮件并发送。

 

Recommended Productivity Tools

shot kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus tab 1180x121

Kutools for Outlook - More than 100 Advanced Functions for Outlook, Improve 70% Efficiency For you

  • Complicated and repeated operations can be done a one-time processing in seconds.
  • Forward multiple emails individually with one-click, and auto forward by rules.
  • Auto CC/BCC every sending email and easy for customizing rules, and auto reply without requiring exchange server.
  • Powerful junk emails filter, remove duplicate emails, reply with attachment, bunch of one-click operations, and so on...
  • 60-day unlimited free trial. 60-day money back guarantee. 2 years free upgrade and support. Buy once, use forever.
Say something here...
symbols left.
You are guest ( Sign Up? )
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.