- word文档教程基本操作:电脑版wps如何复制可见单元格但不粘贴隐藏单元格
- 如何制作wps表格教程:wps ppt如何添加超链接
- wps演示文稿制作教程:WPS表格分类汇总在生活中的妙用
- word教程零基础教程:WPS怎么恢复到旧版本
0utlook添加答复所有人时带附件的操作方法
一、打开outlook,按快捷键ALT加F8输入宏名字,word教程零基础教程,然后点击创建。
二、删除默认内容。
三、把以下代码拷贝到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编辑窗口,word怎么删除空白页,打开outlook,在工具栏上面右击,点击自定义功能区。
六、选择命令里面选择宏,然后选中需要显示的宏,点击添加。
七、操作完成。
,word制作表格教程基础入门上一篇:word文档制作简历的教程:Android版Outlook客户端 邮件播报功能 使用基础教程 下一篇:word教程自学:轻松学会Outlook添加答复所有人时带附件
郑重声明:本文版权归原作者所有,转载文章仅为传播更多信息之目的,如作者信息标记有误,请第一时间联系我们修改或删除,多谢。