Outlook: jak drukować wiadomości e-mail bez obrazów

Zwykle podczas drukowania wiadomości e-mail w programie Outlook obrazy zostaną również wydrukowane. Czasami jednak chcesz po prostu wydrukować teksty bez obrazów, jednak w Outlooku nie ma wbudowanej funkcji, która mogłaby obsługiwać to zadanie. Ten samouczek zawiera kod VBA, który natychmiast wydrukuje wiadomość e-mail bez obrazu za pośrednictwem programu Word. Lub jeśli Twój komputer nie ma drukarki, kod VBA wyeksportuje wiadomość e-mail jako plik PDF bez obrazów, a następnie możesz wydrukować plik PDF po udostępnieniu drukarki.

VBA do drukowania wiadomości e-mail bez obrazów

Karta Office — włącz edycję i przeglądanie na kartach w pakiecie Microsoft Office, dzięki czemu praca stanie się o wiele łatwiejsza

Czytaj więcej...Pobierz ...

Kutools dla programu Outlook - Zwiększ wydajność programu Outlook dzięki ponad 100 zaawansowanym funkcjom zapewniającym najwyższą wydajność

Automatyzuj wysyłanie e-maili za pomocą Auto CC / BCC, Auto Forward według zasad; wysłać Automatyczna odpowiedź (Poza biurem) bez konieczności korzystania z serwera wymiany...
Otrzymuj przypomnienia takie jak Ostrzeżenie BCC podczas odpowiadania wszystkim, gdy jesteś na liście BCC, oraz Przypomnij o braku załączników za zapomniane załączniki...
Popraw wydajność poczty e-mail dzięki Odpowiedz (wszystkim) z załącznikami, Automatyczne dodawanie pozdrowień lub daty i godziny do podpisu lub tematu, Odpowiedz na wiele e-maili...
Usprawnij wysyłanie e-maili za pomocą Przypomnij sobie e-maile, Narzędzia załączników (Kompresuj wszystko, automatycznie zapisuj wszystko...), Usuń duplikaty, Szybki raport...

Ulepsz swój program Outlook 2021–2010 lub Outlook 365 dzięki tym zaawansowanym funkcjom. Skorzystaj z kompleksowego, 60-dniowego bezpłatnego okresu próbnego i usprawnij korzystanie z poczty e-mail!

Czytaj więcej...Pobierz ...

VBA do drukowania wiadomości e-mail bez obrazów

1. Wybierz wiadomość e-mail, w której chcesz wydrukować tylko tekst, a następnie naciśnij inny + F11 klucze do włączenia Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Moduł aby utworzyć nowy pusty moduł, a następnie skopiuj i wklej poniższy kod do modułu.

VBA: eksportuj wiadomości e-mail bez obrazów

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