Outlook: як роздрукувати електронну пошту без зображень

Зазвичай, якщо друкувати лист електронної пошти в Outlook, зображення також будуть надруковані. Але іноді ви просто хочете надрукувати тексти без зображень, проте в Outlook немає вбудованої функції, яка підтримує це завдання. У цьому посібнику наведено код VBA, який негайно роздрукує електронну пошту без зображень через Word. Або якщо на вашому комп’ютері немає принтера, код VBA спочатку експортує електронний лист у форматі PDF без зображень, а потім ви зможете роздрукувати PDF-файл, коли принтер стане доступним.

VBA для друку електронної пошти без зображень

Вкладка Office - увімкніть редагування та перегляд із вкладками в Microsoft Office, що полегшить роботу

Детальніше ...Завантажити ...

Kutools для Outlook - покращте Outlook за допомогою 100+ розширених функцій для надзвичайної ефективності

Автоматизуйте надсилання електронних листів за допомогою Авто CC / BCC, Автоматичне пересилання вперед за правилами; відправити Автовідповідь (Поза офісом) без необхідності сервера обміну...
Отримуйте нагадування як Попередження BCC коли ви відповідаєте всім, поки ви перебуваєте в списку прихованих копій, і Нагадати про відсутність вкладень за забуті вкладення...
Підвищте ефективність електронної пошти за допомогою Відповісти (всім) із вкладеннями, Автоматичне додавання привітання або дати й часу до підпису чи теми, Відповісти на кілька електронних листів...
Оптимізація електронної пошти за допомогою Відкликати електронні листи, Інструменти кріплення (Стиснути все, автоматично зберегти все...), Видалити дублікати та Швидкий звіт...

Покращіть свій Outlook 2021 - 2010 або Outlook 365 за допомогою цих розширених функцій. Насолоджуйтесь повною 60-денною безкоштовною пробною версією та покращте роботу електронної пошти!

Детальніше ...Завантажити ...

VBA для друку електронної пошти без зображень

1. Виберіть електронний лист, для якого потрібно надрукувати лише текст, а потім натисніть інший + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модулі щоб створити новий порожній модуль, потім скопіюйте та вставте наведений нижче код у модуль.

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