Outlook: как распечатать письмо без изображений

Обычно при печати письма в Outlook изображения печатаются вместе с текстом. Однако иногда возникает необходимость распечатать только текст без изображений — к сожалению, Outlook не предоставляет встроенной функции для этого. В данном руководстве приведён код VBA, который мгновенно отправит письмо на печать без изображений через Word. Если же на вашем компьютере отсутствует принтер, код сначала экспортирует письмо в PDF-файл без изображений, чтобы вы могли распечатать его позже, как только принтер станет доступен.

VBA для печати письма без изображений

---

VBA для печати письма без изображений

1. Выберите письмо, текст которого хотите распечатать, затем нажмите Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставка > Модуль, чтобы создать новый пустой модуль, затем скопируйте и вставьте приведённый ниже код в этот модуль.

VBA: экспорт письма без изображений

Sub PrintWithoutImages()
'UpdatebyExtendoffice20220414
  Dim xMail As Outlook.MailItem
  Dim xFileName As String, xSubject As String
  Dim xWord As Word.Application
  Dim xWordDoc As Word.Document
  Dim xInlineShape As Word.InlineShape
  Dim InvalidArr
  On Error Resume Next
  If Application.ActiveWindow.Class = olInspector Then
    Set xMail = ActiveInspector.CurrentItem
  ElseIf Application.ActiveWindow.Class = olExplorer Then
    Set xMail = ActiveExplorer.Selection.Item(1)
  End If
  
  InvalidArr = Array("/", "\", "*", ":", Chr(34), "?", "<", ">", "|")
  xSubject = xMail.Subject
  For i = 0 To UBound(InvalidArr)
    xSubject = VBA.Replace(xSubject, InvalidArr(i), "")
  Next i
  
  xFileName = Environ("Temp") & "\" & xSubject & ".doc"
Debug.Print xFileName
  xMail.SaveAs xFileName, olDoc
  Set xWord = CreateObject("Word.Application")
  xWord.Visible = False
  Set xWordDoc = xWord.Documents.Open(xFileName)
  For Each xInlineShape In xWordDoc.InlineShapes
      xInlineShape.Delete
  Next
  xWordDoc.PrintOut
  xWordDoc.Close
  xWord.Quit
  Kill xFileName
End Sub

3. Нажмите Сервис > Ссылки, чтобы открыть диалоговое окно Ссылки – Проект 1. Установите флажок Microsoft Word 16,0 Object Library и нажмите ОК.

 

4-1. Установите курсор внутри кода и нажмите F5 или щелкните кнопку Выполнить, чтобы запустить код. После этого письмо без изображений будет немедленно напечатано через Word. Если на вашем компьютере нет принтера, перейдите к шагу 4.

4-2. Если на вашем компьютере нет принтера, после нажатия F5 или щелчка по кнопке Выполнить для запуска кода появится диалоговое окно, в котором можно выбрать папку для сохранения PDF-файла и указать его имя. Нажмите Сохранить.

 

Теперь письмо экспортировано в формат PDF без изображений. Откройте файлы PDF и щелкните правой кнопкой мыши, чтобы выбрать Печать и распечатать письмо.

Совет: если вы хотите массово сохранить выбранные письма в формате PDF (а также Word, CSV, Excel, TXT или HTML) с изображениями, заголовками, телом письма и копиями, функция Массовое сохранение из Kutools для Outlook справится с этим всего за 3 шага.

1. Выберите нужные письма.

2. Нажмите Kutools > Массовое сохранение.

3. Выберите папку и отметьте нужные вам типы файлов. Нажмите «ОК».