Note: The other languages of the website are Google-translated. Back to English

如何仅在Outlook中从一封电子邮件或选定的电子邮件中打印附件?

在Outlook中,您可以打印电子邮件,但是您是否仅在Outlook中从一封电子邮件或选定的电子邮件中打印附件? 在本文中,我将介绍解决这项工作的技巧。

仅从一封带有“快速打印”的电子邮件中打印附件

仅使用VBA从选定的电子邮件中打印附件


仅从一封带有“快速打印”的电子邮件中打印附件

要仅打印不带电子邮件正文的附件,可以使用快速打印功能。

1.在消息窗口中,右键单击要打印的附件,选择 快速打印 从上下文菜单。
doc列印附件1

2。 然后点击 优惠 > 优惠 将附件文件保存在某个位置。
doc列印附件2
doc列印附件3

3.现在转到放置附件文件的位置,然后打开文件以照常打印。


仅使用VBA从选定的电子邮件中打印附件

如果要从选定的电子邮件中打印附件,则可以使用VBA代码。

1.选择要打印附件的电子邮件,然后按 Alt + F11键 启用键 Microsoft Visual Basic应用程序 窗口。

2.双击 本次展望会议Project1 窗格,将下面的代码复制并粘贴到脚本中。

VBA:从选定的电子邮件中打印附件

Sub BatchPrintAllAttachmentsInMultipleEmails()
'UpdatebyExtendoffice20180417
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFldPath As String
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xShell As Object
Dim xTempFolder As Object
Dim xTempFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
xTmpFldPath = xFSO.GetSpecialFolder(2).Path & "\Temp for Attachments"
If xFSO.FolderExists(xTmpFldPath) = False Then
    xFSO.CreateFolder xTmpFldPath
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xShell = CreateObject("Shell.Application")
Set xTempFolder = xShell.NameSpace(0)
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        If xMailItem.Attachments.Count = 0 Then Exit Sub
        Set xAttachments = xMailItem.Attachments
        For Each xAttachment In xAttachments
            xFilePath = xTmpFldPath & "\" & xAttachment.FileName
            xAttachment.SaveAsFile (xFilePath)
            Set xTempFolderItem = xTempFolder.ParseName(xFilePath)
            xTempFolderItem.InvokeVerbEx ("print")
        Next
    End If
Next

'If xFSO.FolderExists(xTmpFldPath) Then
'    xFSO.DeleteFolder xTmpFldPath, True
'End If
End Sub

doc列印附件4

3。 然后点击 鑫安工具 > 參考資料,而在 參考資料 对话框,检查 Microsoft脚本运行时 复选框。
doc列印附件5   doc列印附件6

4。 点击 OK,然后按 F5 键以批量打印所选电子邮件中的所有附件。

备注:如果附件为图片,则会弹出一个 打印图片 首先单击对话框 打印保存打印输出为 对话。
doc列印附件7


Kutools for Outlook-为Outlook带来100个高级功能,并使工作更加轻松!

  • 自动CC / BCC 根据规则发送电子邮件; 自动转发 自定义多封电子邮件; 自动回复 没有交换服务器,还有更多自动功能...
  • BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒,还有更多提醒功能...
  • 在邮件对话中回复(全部)带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中...
  • 附件工具:管理所有邮件中的所有附件, 自动分离, 全部压缩,全部重命名,全部保存...快速报告, 计算选定的邮件...
  • 强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明,更快和更好。
拍摄kutools前景kutools选项卡1180x121
拍摄kutools前景kutools加标签1180x121
 
按评论排序
注释 (4)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
如何启用宏? 上周它工作得很好。
该评论由网站上的主持人最小化
我尝试了粘贴 VBA 代码的多个电子邮件选项,但是当我按 F5 运行它时,出现语法错误,并突出显示了这一行:
如果 xItem.Class = olMail 则


有什么想法?
该评论由网站上的主持人最小化
您是否选中了 Microsoft Scripting Runtime 复选框?
该评论由网站上的主持人最小化
您如何在多封电子邮件中打印附件但具有一定的页面范围
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0  产品特性
建议地点