电子邮件到达 Outlook 时如何自动打印附件？

本教程演示了一种结合 VBA 脚本和 Outlook 规则的方法，以帮助您在某些电子邮件到达 Outlook 时自动打印它们的附件。

---

某些电子邮件到达时自动打印附件

假设您想自动打印来自某个发件人的传入电子邮件的附件。 您可以执行以下操作来完成它。

第 1 步：在 Outlook 中创建脚本

首先，您需要在 Outlook 中创建一个 VBA 脚本。

1.启动Outlook，按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2。 在里面 Microsoft Visual Basic应用程序 窗口，双击 Project1 > Microsoft Outlook对象 > 本次展望会议 打开 ThisOutlookSession（代码） 窗口，然后将以下代码复制到此代码窗口中。

VBA 代码 1：电子邮件到达时自动打印附件（所有类型的附件）

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20220413
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  On Error Resume Next
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Now, "yyyymmddhhmmss")
  MkDir (xTempFolder)
  
  'Set Item = Application.ActiveExplorer.Selection.Item(1)
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    xFileName = xAtt.FileName
    xFileType = LCase$(Right$(xFileName, 4))
    xFileName = xTempFolder & "\" & xFileName
    xAtt.SaveAsFile (xFileName)
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
  Next xAtt
'xFS.DeleteFolder (xTempFolder)
Set xFS = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
Exit Sub
End Sub

请注意： 此代码支持打印电子邮件中收到的所有类型的附件。 如果您只想打印指定类型的附件，例如 pdf 文件，请应用以下 VBA 代码。

VBA代码2：邮件到达时自动打印指定类型的附件

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20220413
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  On Error Resume Next
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Now, "yyyymmddhhmmss")
  MkDir (xTempFolder)
  
  'Set Item = Application.ActiveExplorer.Selection.Item(1)
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    xFileName = xAtt.FileName
    xFileType = LCase$(Right$(xFileName, 4))
    xFileName = xTempFolder & "\" & xFileName
    xAtt.SaveAsFile (xFileName)
    Select Case xFileType
    Case "pdf" ‘change “pdf” to the file extension you want to print
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
     End Select
  Next xAtt
'xFS.DeleteFolder (xTempFolder)
Set xFS = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
Exit Sub
End Sub

请注意： 在行 案例“pdf”， 请更换 “PDF” 到要打印的文件扩展名。

3. 继续点击 鑫安工具 > 引用。 在弹出 参考 - 项目1 对话框，检查 Microsoft脚本运行时 框，然后单击 OK 按钮。

4.保存代码，然后按 其他 + Q 关闭键 Microsoft Visual Basic应用程序 窗口。

请注意： 请确保 启用所有宏 Outlook 中启用了该选项。 您可以按照下面显示的步骤检查此选项。

Step2：构建规则以使用脚本

在 Outlook 中添加 VBA 脚本后，您需要创建规则以根据某些条件使用该脚本。

1. 转到主页选项卡，单击 规则 > 管理规则和警报.

2。 在里面 规则和警报 对话框中，单击 新规则 按钮以创建规则。

提示： 如果您在 Outlook 中添加了多个电子邮件帐户，请在 将更改应用到此文件夹 要应用规则的下拉列表。 否则，它将应用于当前选择的电子邮件帐户的收件箱。

3.在第一 规则向导 对话框中选择 对我收到的消息应用规则 在 步骤 框，然后单击 下一步。

4.在第二 规则向导 对话框，您需要：

5.在第三 规则向导 对话框，您需要配置如下。

提示： 如果“运行脚本” 选项在您的 规则向导，您可以按照本文中提到的方法进行显示： 恢复 Outlook 规则中缺少的运行脚本选项.

6.然后另一个 规则向导 弹出询问例外情况。 如有必要，您可以选择例外，否则，单击 下一页 没有任何选择的按钮。

7.最后 规则向导，您需要为规则指定一个名称，然后单击 结束通话 按钮。

8.然后返回到 规则和警报 对话框，你可以看到你创建的规则列在里面，点击 OK 按钮以完成整个设置。

从现在开始，当收到来自指定人员的电子邮件时，将自动打印附件。

---

相关文章

---