Outlook设置带附件回复

《Outlook设置带附件回复》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Outlook设置带附件回复在outlook工具→宏→VisualBasic编辑器,新建一个VB工程：主要代码如下：Sub带附件答复所有人_含抄送()DimrplAsOutlook.MailItemDimitmAsObjectSetitm=GetCurrentItem()IfNotitmIsNothingThenSetrpl=itm.ReplyAllCopyAttachmentsitm,rplrpl.DisplayEndIfSetrpl=NothingSetitm=NothingEndSubFunctionGetCurrentItem()A

2、sObjectDimobjAppAsOutlook.ApplicationSetobjApp=ApplicationOnErrorResumeNextSelectCaseTypeName(objApp.ActiveWindow)Case"Explorer"SetGetCurrentItem=objApp.ActiveExplorer.Selection.Item(1)Case"Inspector"SetGetCurrentItem=objApp.ActiveInspector.CurrentItemEndSelectSetobjApp=No

3、thingEndFunctionSubCopyAttachments(objSourceItem,objTargetItem)Setfso=CreateObject("Scripting.FileSystemObject")SetfldTemp=fso.GetSpecialFolder(2)'TemporaryFolderstrPath=fldTemp.Path&""ForEachobjAttInobjSourceItem.AttachmentsstrFile=strPath&objAtt.FileNameobjAtt.SaveAsFil

4、estrFileobjTargetItem.Attachments.AddstrFile,,,objAtt.DisplayNamefso.DeleteFilestrFileNextSetfldTemp=NothingSetfso=NothingEndSubSub带附件回复发件人_不含抄送()DimrplAsOutlook.MailItemDimitmAsObjectSetitm=GetCurrentItem()IfNotitmIsNothingThenSetrpl=itm.ReplyCopyAttachmentsitm,rplrpl.Dis

5、playEndIfSetrpl=NothingSetitm=NothingEndSub以上代码复制进去，然后点击保存！然后去工具→宏→安全性→：如上图进行设置。二、使用方法选中对应的邮件,选择工具→宏→宏(M)-选择对应的宏的名字,点击运行：