Outlook设置带附件回复

Outlook设置带附件回复 在 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) - 选择对应的宏的名字, 点击 运行：