outlook2010带附件回复方法.docVIP

手动添加一个宏 将以下代码复制进去，并保存 Sub ReplyWithAttachments() Dim rpl As Outlook.MailItem Dim itm As Object Set itm = GetCurrentItem() If Not itm Is Nothing Then Set rpl = itm.Reply CopyAttachmentsitm, 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) 1 / 3 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 objAttInobjSourceItem.Attachments strFile = strPathobjAtt.FileName objAtt.SaveAsFilestrFile objTargetItem.Attachments.AddstrFile, , , objAtt.DisplayName fso.DeleteFilestrFile Next Set fldTemp = Nothing Set fso = Nothing End Sub Sub ReplyToAllWithAttachments() Dim rpl As Outlook.MailItem Dim itm As Object 2 / 3 Set itm = GetCurrentItem() If Not itm Is Nothing Then Set rpl = itm.ReplyAll CopyAttachmentsitm, rpl rpl.Display End If Set rpl = Nothing Set itm = Nothing End Sub 最后，将这个宏的按钮添加到菜单栏上 3 / 3