如何在Outlook中使用原始附件全部答复?
通常,当您应用“全部答复”功能以将邮件答复给Outlook中的所有收件人时,原始附件将自动丢失。 在Outlook中回复所有人时是否可以附加原始附件?
使用 Kutools for Outlook 回复所有原始附件
使用带有VBA代码的原始附件全部答复
Outlook中没有直接功能来处理此任务,但是,您可以应用以下VBA代码来实现它。 请执行以下步骤:
1。 启动Outlook,然后按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
2。 在 Microsoft Visual Basic应用程序 窗口,双击 本次展望会议 来自 Project1(VbaProject.OTM) 窗格以打开模式,然后将以下代码复制并粘贴到空白模块中。
VBA代码:原始回信全部答复:
Sub ReplyAllWithAttachments()
'Updateby Extendoffice
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xAttParent As Object
Dim xCID As String, xID As String
Dim xHTML As String
On Error Resume Next
Set xAttParent = Attach.Parent
xCID = ""
xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCID <> "" Then
xHTML = xAttParent.HTMLBody
xID = "cid:" & xCID
If InStr(xHTML, xID) > 0 Then
IsEmbeddedAttachment = True
Else
IsEmbeddedAttachment = False
End If
End If
End Function
3。 然后点击 工具 > 参考资料 ,在 Microsoft Visual Basic应用程序 窗口,弹出 参考-Project1 对话框,检查 Microsoft脚本运行时 选项从 可用参考 列表框,请参见屏幕截图:
4。 然后保存并关闭代码窗口,然后可以将宏按钮添加到 快速访问工具栏.
5。 在其中打开您要全部答复带有附件的电子邮件 想说的话 窗口,然后选择 更多命令 来自 自定义快速访问工具栏 下拉菜单,请参见屏幕截图:
6。 在 Outlook选项 对话框中,进行以下操作:
(1.)选择 宏 来自 从中选择命令 下拉列表;
(2.)单击您刚才插入的宏名称;
(3.)然后单击 地址 按钮将宏添加到 自定义快速访问工具栏.
7。 然后点击 OK 关闭对话框,现在,宏按钮已插入到 快速访问工具栏,请参见屏幕截图:
8。 现在,单击宏按钮,然后打开带有原始附件的回复消息窗口,然后撰写回复消息,然后单击 提交 按钮,请参见屏幕截图:
使用 Kutools for Outlook 回复所有原始附件
如果你有 Kutools for Outlook,其 回复所有带有附件 功能,一键即可回复所有带附件的邮件。
Kutools for Outlook : 带有超过100个方便的Outlook加载项,可以在60天内免费试用. |
安装后 Kutools for Outlook,请这样做:
1。 选择您要全部答复带有附件的邮件,然后单击“确定”。 库工具 > 带附件回复 > 回复所有带有附件,请参见屏幕截图:
2。 然后打开带有原始附件的回复消息窗口,然后撰写您的消息并发送,请参见屏幕截图:
点击下载 Kutools for Outlook 并立即免费试用!
最佳办公生产力工具
Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook
🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...
📧 电子邮件自动化: 外出(适用于 POP 和 IMAP) / 安排发送电子邮件 / 发送电子邮件时按规则自动抄送/密件抄送 / 自动转发(高级规则) / 自动添加问候语 / 自动将多收件人电子邮件拆分为单独的消息 ...
📨 电子邮件管理: 轻松回忆电子邮件 / 按主题和其他人阻止诈骗电子邮件 / 删除重复的电子邮件 / 高级搜索 / 合并文件夹 ...
📁 附件专业版: 批量保存 / 批量分离 / 批量压缩 / 自动保存 / 自动分离 / 自动压缩 ...
🌟 界面魔法: 😊更多又漂亮又酷的表情符号 / 使用选项卡式视图提高 Outlook 工作效率 / 最小化 Outlook 而不是关闭 ...
👍 一键奇迹: 使用传入附件回复全部 / 反网络钓鱼电子邮件 / 🕘显示发件人的时区 ...
👩🏼🤝👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人 / 将联系人组拆分为各个组 / 删除生日提醒 ...
超过 100特点 等待您的探索! 单击此处了解更多。