有些用户想让 Outlook 自动打印重要的传入电子邮件。 另外，如果这样的邮件太长，为了不浪费纸张，Outlook 只会打印第一页。 现在，在本文中，我们将揭示如何以编程方式实现它。
手动打印邮件的首页非常简单。 您可以在打印前更改打印选项。 但是，如果希望Outlook能够自动识别邮件的长度，并自动打印超长邮件的首页，就得另谋出路了，比如下面这个。
自动打印重要传入电子邮件的第一页
- 首先，您需要正常启动 Outlook 应用程序。
- 然后在 Outlook 主窗口中，您需要按“Alt + F11”键。
- 随后，您将成功访问 VBA 编辑器。
- 在这个新窗口中，您应该打开一个空模块，您应该在其中将以下 VBA 代码复制到该模块中。
Sub PrintFirstPage_ImportantIncomingEmails(objMail As Outlook.MailItem)
Dim objWordApp As Word.Application
Dim objTempWordDocument As Word.Document
Dim objMailDocument As Word.Document
Dim lPageCount As Long
objMail.Display
Set objMailDocument = objMail.GetInspector.WordEditor
objMailDocument.Range.Copy
Set objWordApp = CreateObject("Word.Application")
Set objTempWordDocument = objWordApp.Documents.Add
objWordApp.Visible = True
objTempWordDocument.Activate
objTempWordDocument.Range.Paste
lPageCount = objTempWordDocument.ComputeStatistics(wdStatisticPages)
'If the email takes up more than one page
If lPageCount > 1 Then
'Only print the first page
objTempWordDocument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"
Else
'Otherwise, print the whole email
objMail.PrintOut
End If
objMail.Close olDiscard
objMail.UnRead = True
objTempWordDocument.Close False
objWordApp.Quit
End Sub
- 之后，您可以退出当前窗口。
- 然后转到“文件”菜单并单击“管理规则和警报”按钮。
- 在弹出的“规则和警报”对话框中，单击“新建规则”按钮。
- 接下来，在“规则向导”的新对话框中，选择“对我收到的邮件应用规则”，然后点击“下一步”。
- 在“规则向导”的第二个屏幕中，您应该指定条件，即定义哪些电子邮件对您很重要，例如来自特定发件人等。
- 之后，单击“下一步”，这将带您进入下一个屏幕，您需要在其中设置规则操作。 选择“运行脚本”并选择之前添加的宏。
- 之后，多次点击“Next”，直到出现最后一个画面——“Finish rule setup”，在这个画面中，你可以为这条规则指定一个名称，并再次检查规则设置。
- 最后单击“完成”以保存此新规则。
- 最后，从那时起，每当一封新的重要电子邮件进入您的邮箱时，如果它太长，Outlook 将自动打印它的第一页。
从损坏的 PST 文件中提取最大数据
也许您已经意识到 Outlook 的漏洞。 在这种情况下，您必须千方百计保护您的 Outlook 数据。 但是，通常情况下，您会发现 Outlook 数据可能仅仅由于突然关闭而损坏。 因此，您必须为意外情况做好准备 前景腐败，包括常规 PST 备份和强大的修复工具，例如 DataNumen Outlook Repair.
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 恢复sql 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com