Ви не можете налаштувати 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 після аварії
Щоб запобігти втраті даних Outlook, вам доведеться докласти значних зусиль. Наприклад, вам слід регулярно створювати резервні копії PST-файлу. Звичайно, рекомендується скористатися зовнішнім інструментом для відновлення, таким як DataNumen Outlook Repair. Він може виправити PST помилок і відновити для вас максимум даних Outlook.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити sql та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com