体育竞猜平台

体育竞猜平台 > 其他专区 > Outlook >

轻松学会Outlook添加答复所有人时带附件

Outlook 2022-06-06 17:33:36

0utlook添加答复所有人时带附件的操作方法

一、拉开outlook,按方便键ALT加F8发送宏名字好听,并且点选搭建。三分钟轻松学会Outlook添加答复所有人时带附件,让小姐姐爱上你 

二、删除默认内容。

三分钟轻松学会Outlook添加答复所有人时带附件,让小姐姐爱上你 三、把下类码复制粘贴到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

四、点击保存

三分钟轻松学会Outlook添加答复所有人时带附件,让小姐姐爱上你

五、关闭VB编辑窗口,打开outlook,在工具栏上面右击,点击自定义功能区。

三分钟轻松学会Outlook添加答复所有人时带附件,让小姐姐爱上你

六、选择命令里面选择宏,然后选中需要显示的宏,点击添加。

三分钟轻松学会Outlook添加答复所有人时带附件,让小姐姐爱上你 

七、操作完成。

三分钟轻松学会Outlook添加答复所有人时带附件,让小姐姐爱上你 

标签: 轻松学会Outlook添加所有人时

体育竞猜平台 Copyrigh♎t © 2016-2020 nizhangku.com. Some Rights Reserved. 审批号
体育竞猜平台 - 体育竞猜登录-体育竞猜平台 im体育-体育平台竞猜-app下载官网-体育竞猜平台 体育竞猜平台-体育官方APP下载-体育竞猜平台 体育外围的app盘口 — 体育外围盘口下载-体育竞猜平台