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

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

第1个回答  推荐于2017-09-05

  操作步骤如下:

  1、启动outlook;

  2、点击文件选项卡,点击选项按钮;

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

  

第2个回答  推荐于2019-08-18

1、电脑中打开OUTLOOK;

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

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

4、进入到OUTLOOK“选项”,然后选择“邮件”选项;

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


本回答被网友采纳
第3个回答  2011-03-16
好像不行吧,一般先保存原附件,全部回复后,再将它拖进邮件,这样也快呀,必竟这种回复人家还带原附件的情况少。
第4个回答  2011-03-15
工具,选项,首选参数,电子邮件选项
你试一下 答复邮件时的设置:附加邮件原件追问

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

追答

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

追问

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

本回答被提问者采纳
第5个回答  2011-03-15
写个宏吧
代码如下:

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
相似回答