Как автоматически использовать определенный принтер для печати электронных писем Outlook

Вы не можете настроить Outlook для использования определенного принтера, отличного от используемого по умолчанию, для печати электронных писем. Но в этой статье мы покажем вам, как это сделать с помощью Outlook VBA.

На вашем компьютере должен быть установлен принтер по умолчанию, который будет применяться ко всем программам на этом компьютере. В этом случае, если вы хотите печатать электронные письма через принтер, отличный от используемого по умолчанию в Outlook, вам придется менять принтер каждый раз при печати. Это довольно хлопотно. Поэтому в дальнейшем мы поделимся с вами средством автоматического использования определенного принтера для электронной почты без необходимости каждый раз менять принтер.

Автоматическое использование определенного принтера для печати электронных писем

1. В самом начале сtarт ваше приложение Outlook.
2. Затем в главном окне Outlook нажмите клавиши «Alt + F11».
3. Далее, в открывшемся окне «Microsoft Visual Basic для приложений» вам необходимо сначала включить «Microsoft Word object Librarу». Вы можете нажать «Инструменты»> «Справочник», чтобы добиться этого.
4. Затем вам нужно получить доступ к пустому модулю.
5. Затем скопируйте и вставьте следующий код 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

6. После этого можно закрыть текущее окно.
7. Затем перейдите в меню «Файл» и нажмите «Параметры».
8. В окне «Параметры Outlook» перейдите на вкладку «Панель быстрого доступа» и добавьте новый макрос на панель быстрого доступа, как обычно.
9. В конце концов, вы можете попробовать этот проект VBA.

• Во-первых, выберите или откройте электронное письмо, которое вы хотите распечатать.
• Затем нажмите кнопку макроса на панели быстрого доступа.
• Электронное письмо будет сразу распечатано на указанном принтере.

10. Отныне для печати электронных писем на определенном принтере вы можете просто использовать этот макрос.

Восстановить Outlook после аварийного повреждения

Чтобы заблокировать ваши данные Outlook от lost, вам придется приложить большие усилия. Например, вам следует регулярно создавать резервную копию файла PST. Конечно, предлагается приобрести внешний инструмент для ремонта, например DataNumen Outlook Repair. Он может исправить PST ошибки и восстановить максимум данных Outlook для вас.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com