时间:2020-10-14 23:08作者:admin来源:未知人气:2952我要评论(0)
0utlook添加答复所有人时带附件的操作方法
一、打开outlook,按快捷键ALT加F8输入宏名字,然后点击创建。
二、删除默认内容。
三、把以下代码拷贝到VB编辑窗口。
Sub 带附件答复()
Dim rpl As Outlook.MailItem
Dim itm As Object
Set itm = GetCurrentItem()If Not itm Is Nothing Then
Set rpl = itm.ReplyAllCopyAttachments itm, rplrpl.DisplayEnd IfSet rpl = NothingSet itm = NothingEnd SubFunction GetCurrentItem() As Object
Dim objApp As Outlook.Application
Set objApp = ApplicationOn Error Resume NextSelect Case TypeName(objApp.ActiveWindow)
Case Explorer
Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
Case Inspector
Set GetCurrentItem = objApp.ActiveInspector.CurrentItemEnd SelectSet objApp = NothingEnd FunctionSub 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
四、点击保存
五、关闭VB编辑窗口,打开outlook,在工具栏上面右击,点击自定义功能区。
六、选择命令里面选择宏,然后选中需要显示的宏,点击添加。
七、操作完成。
相关阅读 Outlook如何设置关闭时隐藏在任务栏右下角Outlook如何自动接收邮件Outlook如何终止发送邮件Outlook如何设置后台自动发送和接收邮件Outlook如何设置定时提醒Outlook如何在主界面中显示邮件内容Outlook如何在界面中显示待办事项Outlook如何将英文版的界面设置为中文版Outlook如何设置退出时也能自动发送和接收邮件Outlook中附件无法预览
热门文章 Outlook邮箱注册入口_Outlook注册教程Outlook写邮件时如何快速插入表情符号Outlook 邮箱容量设置扩充教程Outlook如何设置日历与手机、电脑同步
最新文章
Outlook如何设置关闭时隐藏在任务栏右下角Outlook如何自动接收邮件
Outlook如何终止发送邮件Outlook如何设置后台自动发送和接收邮件Outlook如何设置定时提醒Outlook如何在主界面中显示邮件内容
人气排行 Outlook邮箱注册入口_Outlook注册教程Outlook写邮件时如何快速插入表情符号Outlook 邮箱容量设置扩充教程Outlook发送邮件一直停留在发件箱的解决办法Outlook如何设置日历与手机、电脑同步Outlook如何精准搜索邮件Outlook 2019如何配置163邮箱的完整图解实例教程Outlook 如何修改邮件发件人姓名名称
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>