outlook怎样设置可以带附件回复?

发布网友 发布时间：2022-05-13 22:12

我来回答

共2个回答

热心网友 时间：2023-11-01 11:49

一、在 outlook工具→宏→Visual Basic编辑器, 新建一个VB工程： 

主要代码如下： 

Sub 带附件答复所有人_含抄送()     

Dim rpl As Outlook.MailItem     

Dim itm As Object      

Set itm = GetCurrentItem()     

If Not itm Is Nothing Then         

Set rpl = itm.ReplyAll         

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  

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 

以上代码复制进去，然后点击保存！ 然后去工具→宏→安全性→： 

二、使用方法 

选中对应的 邮件, 选择 工具→宏→宏(M) - 选择对应的宏的名字, 点击 运行：

热心网友 时间：2023-11-01 11:50