Outlook: Как да отпечатате имейл без изображения

Автор: Слънце Последна промяна: 2022-04-29

Обикновено при отпечатване на имейл в Outlook изображенията също ще бъдат отпечатани. Но понякога просто искате да отпечатате текстовете без изображенията, но в Outlook няма вградена функция, която да поддържа тази работа. Този урок предоставя VBA код, който незабавно ще отпечата имейла без изображения чрез Word. Или когато компютърът ви няма принтер, VBA кодът първо ще експортира имейла като PDF без изображения и след това можете да отпечатате PDF, след като принтерът е наличен.

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

Раздел Office - Активирайте редактиране и сърфиране с раздели в Microsoft Office, правейки работата лесна

Прочети повече ...Изтегляне на ...

Kutools за Outlook - Увеличете Outlook със 100+ разширени функции за превъзходна ефективност

Автоматизирайте изпращането на имейл с Автоматично CC/BCC, Автоматично препращане по правила; изпрати Автоматичен отговор (Извън офиса) без да е необходим сървър за обмен...
Получавайте напомняния като BCC Предупреждение когато отговаряте на всички, докато сте в списъка BCC, и Напомняне при липсващи прикачени файлове за забравени прикачени файлове...
Подобрете ефективността на имейл с Отговор (на всички) с прикачени файлове, Автоматично добавяне на поздрав или дата и час в подпис или тема, Отговорете на няколко имейла...
Опростете изпращането на имейл с Извикване на имейли, Инструменти за прикачване (Компресиране на всички, автоматично запазване на всички...), Премахване на дубликати, и Бърз доклад...

Увеличете своя Outlook 2021 - 2010 или Outlook 365 с тези разширени функции. Насладете се на цялостен 60-дневен безплатен пробен период и подобрете изживяването си с имейл!

Прочети повече ...Изтегляне на ...

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

1. Изберете имейл, който искате да отпечатате само текста, след което натиснете Друг + 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