Outlook: Cum să imprimați e-mailuri fără imagini

În general, prin imprimarea unui e-mail în Outlook, imaginile vor fi tipărite, de asemenea. Dar, uneori, doriți doar să imprimați textele fără imagini, cu toate acestea, în Outlook, nu există nicio funcție încorporată care să poată susține această lucrare. Acest tutorial oferă un cod VBA care va imprima imediat e-mailul fără imagini prin Word. Sau atunci când computerul nu are o imprimantă, codul VBA va exporta mai întâi e-mailul ca PDF fără imagini, apoi puteți imprima PDF-ul după ce imprimanta este disponibilă.

VBA pentru a imprima e-mail fără imagini

Office Tab - Activați editarea cu file și navigarea în Microsoft Office, făcând munca o briză

Citeşte mai mult ...Descarca ...

Kutools pentru Outlook - Îmbunătățiți Outlook cu peste 100 de caracteristici avansate pentru o eficiență superioară

Automatizați e-mailurile cu Auto CC / BCC, Auto înainte prin reguli; trimite Răspuns automat (În afara biroului) fără a necesita un server de schimb...
Primiți mementouri ca Avertisment BCC când răspundeți la toate în timp ce vă aflați în lista BCC și Amintiți-vă când lipsesc atașamentele pentru atașamente uitate...
Îmbunătățiți eficiența e-mailului cu Răspunde (toate) cu atașamente, Adăugați automat salutul sau data și ora în semnătură sau subiect, Răspunde la mai multe e-mailuri...
Simplificați e-mailurile cu Rechemare e-mailuri, Instrumente de atașare (Comprimați toate, Salvați automat toate...), Eliminați duplicatele, și Raport rapid...

Îmbunătățiți-vă Outlook 2021 - 2010 sau Outlook 365 cu aceste funcții avansate. Bucurați-vă de o perioadă de încercare gratuită cuprinzătoare de 60 de zile și îmbunătățiți-vă experiența prin e-mail!

Citeşte mai mult ...Descarca ...

VBA pentru a imprima e-mail fără imagini

1. Selectați un e-mail pe care doriți să-l imprimați numai textul, apoi apăsați Alt + F11 taste pentru activare Microsoft Visual Basic pentru aplicații fereastră.

2. clic Insera > Module pentru a crea un nou modul gol, apoi copiați și lipiți codul de mai jos în modul.

VBA: export e-mail fără imagini

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