如何用Outlook VBA批量打印多封邮件中的所有附件

展望解决方案 2025 年 9 月 29 日
立即分享：

如果您想批量打印多封选定邮件中的所有附件，可以使用本文介绍的方法。 它使用一段 VBA 代码来快速实现它。

如您所见，当您选择单个附件时，“附件”功能区中有一个直接的“快速打印”功能可用。 但是，当您选择多个附件时，“快速打印”按钮将被禁用，更不用说打印许多选定电子邮件中的所有附件了。 所以，如果你想一次性批量打印多封邮件中的所有附件，就得另谋出路，比如第三方工具或者VBA。 针对这个需求，这里给大家公开一段VBA代码，让大家一键搞定。

使用 Outlook VBA 批量打印多封电子邮件中的所有附件

批量打印多封邮件中的所有附件

  1. 首先，启动您的 Outlook 应用程序。
  2. 然后在主窗口中，按“Alt + F11”键按钮访问 VBA 编辑器。
  3. 在随后出现的“Microsoft Visual Basic for Applications”窗口中，打开一个空模块。
  4. 接下来将以下 VBA 代码复制到这样的模块中。
Sub BatchPrintAllAttachmentsinMultipleEmails()
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim objSelection As Outlook.Selection
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objShell As Object
    Dim objTempFolder As Object
    Dim objTempFolderItem As Object
    Dim strFilePath As String
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp for Attachments " & Format(Now, "YYYY-MM-DD_hh-mm-ss")
    'Create a new temp folder
    MkDir (strTempFolder)
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    For Each objItem In objSelection
        If TypeOf objItem Is MailItem Then
           Set objMail = objItem
           Set objAttachments = objMail.attachments
 
           'Save all the attachments in the temp folder
           For Each objAttachment In objAttachments
               strFilePath = strTempFolder & "\" & objAttachment.FileName
               objAttachment.SaveAsFile (strFilePath)
 
               'Print all the files in the temp folder
               Set objShell = CreateObject("Shell.Application")
               Set objTempFolder = objShell.NameSpace(0)
               Set objTempFolderItem = objTempFolder.ParseName(strFilePath)
               objTempFolderItem.InvokeVerbEx ("print")
           Next objAttachment
        End If
    Next
End Sub

VBA 代码 - 打印多封邮件中的所有附件

  1. 随后，您可以将新宏添加到快速访问工具栏。
  2. 之后，您应该将 Outlook 宏安全级别设置为低。
  3. 最终你可以尝试一下。
  • 首先，在邮件列表中，选择几封要打印附件的邮件。
  • 然后单击快速访问工具栏中的新宏按钮。
  • 接下来，将打印出所选电子邮件中的所有附件。

提防隐藏在宏中的病毒

如果您将 Outlook 宏安全级别配置为低，则必须花费大量精力来阻止恶意宏中的潜在病毒。 这是因为病毒可以一次性破坏您的 Outlook 数据。 一旦您的 Outlook 数据损坏，您将尽力 恢复 Outlook 通过各种方式获取数据，例如重复使用强大的工具，例如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 损坏的sql 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。