如何在将电子邮件移动到 Outlook 中的特定文件夹时自动打印电子邮件

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

一些用户渴望有一种方法可以让他们的 Outlook 在将电子邮件移动到特定文件夹时自动打印出电子邮件。 由于没有支持它的功能，本文将指导您如何使用 Outlook VBA 实现它。

如果您习惯于将非常重要的邮件移动到特定文件夹并且总是需要打印这些邮件，您可能希望 Outlook 能够在邮件移动到指定文件夹时自动打印它们。 虽然你无法通过Outlook规则来实现它，但它仍然可以通过VBA来实现。 现在继续阅读以获得详细的 VBA 代码和步骤。

当电子邮件移动到 Outlook 中的特定文件夹时自动打印电子邮件

移动到特定文件夹时自动打印电子邮件

  1. 首先，您应该正常启动 Outlook 应用程序。
  2. 然后，进入 Outlook 主屏幕后，您需要按“Alt + F11”键。
  3. 接下来在随后出现的“Microsoft Visual Basic for Applications”窗口中，需要找到并打开“ThisOutlookSession”项目。
  4. 之后，您可以将以下 VBA 代码复制到该项目窗口中。
Public WithEvents objSpecificFolder As Outlook.Folder
Public WithEvents objItems As Outlook.Items

Private Sub Application_Startup()
    'Specify the folder
    'You can change it as per your needs
    Set objSpecificFolder = Application.Session.GetDefaultFolder(olFolderInbox).folders("Print")
    Set objItems = objSpecificFolder.Items
End Sub

'Macro works when new item lands into the specific folder
Private Sub objItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       'Print this mail
       objMail.PrintOut
    End If
End Sub

VBA 代码 - 将电子邮件移动到 Outlook 中的特定文件夹时自动打印电子邮件

  1. 随后，您应该签署此代码。
  • 点击工具栏中的“工具”。
  • 从其下拉列表中，选择“数字签名”选项。
  • 然后，在弹出的对话框中，按照屏幕上的说明对该 VBA 项目进行签名。
  1. 稍后您可以退出 VBA 编辑器窗口。 在 Outlook 主窗口中，切换到“开发人员”选项卡并单击“宏安全”按钮。
  2. 在弹出窗口中，您可以更改 Outlook 宏设置以允许数字签名的宏。
  3. 最后，restart 您的 Outlook 应用程序以激活新的宏。
  4. 从现在开始，每次将电子邮件移入预定义的文件夹时，Outlook 都会立即将其打印出来。

从受损文件中检索 PST 数据

一旦您的 Outlook 受到严重损坏，您需要继续从损坏的 PST 文件中取回 Outlook 数据。 如果您有备份，则恢复数据非常简单方便。 如果没有备份，你可以试试 扫描仪. 但如果它失败了，你应该选择一个更强大的恢复工具，比如 DataNumen Outlook Repair. 它可以毫不费力地扫描并最大限度地减少 PST 损坏。

作者简介：

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

立即分享：

评论被关闭。