需要使用到邮箱时，很多小伙伴都会选择使用outlook邮箱这款软件。在outlook邮箱中写邮件时如果我们中途被打断了，我们可以将未完成的邮件保存到草稿箱中，方便后续继续进行编......
2023-01-11
轻松学会Outlook添加答复所有人时带附件
Outlook
2021-06-25
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将设置为HTML格式添加到快速访问栏详细阅读
在Outlook邮箱中写邮件时我们通常都会设置一定的文本格式，比如设置想要的字体字号，设置行间距段间距等等。但是有时候我们会发现这些设置文本格式的相关功能是灰色的不可......
2023-01-11
-
Outlook将密件抄送添加到快速访问栏详细阅读
在Outlook邮箱中有一个“密件抄送”功能，使用该功能我们可以将邮件发送给收件人的同时秘密抄送给其他收件人。如果我们经常需要使用到密件抄送功能我们就可以将其添加到......
2023-01-11
-
Outlook如何调出密件抄送栏详细阅读
在Outlook邮箱中写邮件时我们有时候会将同一封邮件发送给多个收件人，抄送给其他收件人等等，如果有需要我们还可以将邮件密件抄送给其他人，收件人不会看到添加到密件抄送栏......
2023-01-11
-
Outlook如何设置已读回执要求详细阅读
Outlook邮箱是很多企事业单位个体都在使用的一款办公软件，其中有许多非常强大的功能可以满足我们编辑和处理各种邮件的各种需求。在Outlook邮箱中有一个“已读回执”功能......
2023-01-11