您无法将 Outlook 配置为使用特定的非默认打印机来打印电子邮件。 但在本文中，我们将向您展示一种使用 Outlook VBA 实现它的方法。
您的计算机必须已将一台打印机设置为默认打印机，该打印机将应用于该计算机上的所有程序。 在这种情况下，如果您想通过 Outlook 中的非默认打印机打印电子邮件，则每次打印时都必须更换打印机。 挺麻烦的。 因此，在下文中，我们将与您分享一种无需每次都更换打印机即可自动使用特定打印机发送电子邮件的方法。
自动使用特定打印机打印电子邮件
- 首先，启动 Outlook 应用程序。
- 然后，在 Outlook 主窗口中，按“Alt + F11”键按钮。
- 接下来，在显示的“Microsoft Visual Basic for Applications”窗口中，您需要先启用“Microsoft Word 对象库”。您可以通过单击“工具”>“引用”来实现此操作。
- 然后，您需要访问一个空模块。
- 随后，将以下 VBA 代码复制并粘贴到该模块中。
Sub PrintEmail()
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim objWordApp As Word.Application
Dim strTempFolder As String
Dim strMailDocument As String
Dim objMailDocument As Word.Document
Dim strPrinter As String
Select Case Application.ActiveWindow.Class
Case olInspector
Set objItem = ActiveInspector.CurrentItem
Case olExplorer
Set objItem = ActiveExplorer.Selection.Item(1)
End Select
If TypeOf objItem Is MailItem Then
Set objMail = objItem
Set objWordApp = CreateObject("Word.Application")
strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
strMailDocument = strTempFolder & "\" & Format(Now, "yyyymmddssnn") & ".doc"
objMail.SaveAs strMailDocument, olDoc
Set objMailDocument = objWordApp.Documents.Open(strMailDocument)
objWordApp.Visible = True
objMailDocument.Activate
strPrinter = objWordApp.ActivePrinter
'Change to the name of specific printer
objWordApp.ActivePrinter = "Specific Printer"
objWordApp.PrintOut Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent
objWordApp.ActivePrinter = strPrinter
objMailDocument.Close False
objWordApp.Quit
Kill strMailDocument
End If
End Sub
- 之后，您可以关闭当前窗口。
- 然后，转到“文件”菜单并单击“选项”。
- 在“Outlook 选项”窗口中，切换到“快速访问工具栏”选项卡，并像往常一样将新宏添加到快速访问工具栏。
- 最后，您可以尝试这个 VBA 项目。
- 首先，选择或打开您要打印的电子邮件。
- 然后，单击快速访问工具栏中的宏按钮。
- 电子邮件将立即由特定打印机打印出来。
- 从现在开始，要通过特定打印机打印电子邮件，您只需使用此宏即可。
事故腐败后恢复前景
为了防止 Outlook 数据丢失，您需要采取很多措施。例如，您应该定期备份 PST 文件。当然，建议您使用外部修复工具，例如…… DataNumen Outlook Repair。 它可以 修复 PST 错误并为您恢复最大的 Outlook 数据。
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 恢复sql 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com