欢迎来到天天文库
浏览记录
ID:39466983
大小:119.50 KB
页数:3页
时间:2019-07-04
《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)-选择对应的宏的名字,点击运行:
此文档下载收益归作者所有