OUTLOOK如何设置在全部回复的时候自动带上原先邮件中的附件

Question

如何设置在全部回复的时候自动带上原先邮件中的附件
在日常工作中经常要用到邮件的全部回复，有时候回复所有人的时候还要同时再发给其他人。这样如果不带附件，之后选的收件人就看不到之前邮件中的附件。
默认的全部回复是不带附件的，能否改一下设置，使全部回复的时候能带上附件？请高手指点，谢谢！

Answer 1

　　操作步骤如下：

　　1、启动outlook；

　　2、点击文件选项卡，点击选项按钮；

　　3、左侧导航点击邮件，右侧列表找到答复和转发，答复邮件时选项值改为“附加邮件原件”，点击确定即可。

　　

Answer 2

1、电脑中打开OUTLOOK；

2、在OUTLOOK 软件中，找到左上角“文件”选项；

3、进入文件后，在下方的侧边栏中选择“选项”；

4、进入到OUTLOOK“选项”，然后选择“邮件”选项；

5、在“邮件”框中找到“答复和转发”，然后选择“答复邮件时”设置为“附加邮件原件”即可。

本回答被网友采纳

Answer 3

好像不行吧，一般先保存原附件，全部回复后，再将它拖进邮件，这样也快呀，必竟这种回复人家还带原附件的情况少。

Answer 4

工具，选项，首选参数，电子邮件选项
你试一下 答复邮件时的设置：附加邮件原件追问

我前面试了，附加邮件原件，而且回复的原件是接收到的邮件的一个打包，还要再点击才能打开。但回复时没有文本了，

追答

找来找去也找不到其他选项，可能只能这样了吧
再看看别人怎么回答。

追问

恩，我找了好久就那些设置，但没看到什么目标，以前我记得可以的附件的，，现在不能了。艾

本回答被提问者采纳

Answer 5

写个宏吧
代码如下：

Sub 答复邮件带附件()
Dim rpl As Outlook.MailItem
Dim itm As Object

Set itm = GetCurrentItem()
If Not itm Is Nothing Then
Set rpl = itm.Reply
CopyAttachments itm, rpl
rpl.Display
End If

Set rpl = Nothing
Set itm = Nothing
End Sub

Function GetCurrentItem() As Object
Dim objApp As Outlook.Application

Set objApp = Application
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
End Select

Set objApp = Nothing
End Function

Sub CopyAttachments(objSourceItem, objTargetItem)
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldTemp = fso.GetSpecialFolder(2) ' TemporaryFolder
strPath = fldTemp.Path & "\"
For Each objAtt In objSourceItem.Attachments
strFile = strPath & objAtt.FileName
objAtt.SaveAsFile strFile
objTargetItem.Attachments.Add strFile, , , objAtt.DisplayName
fso.DeleteFile strFile
Next

Set fldTemp = Nothing
Set fso = Nothing
End Sub