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

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

3. clic unelte > Referinte pentru a permite Referinte - Proiectul 1 dialog, bifează Biblioteca de obiecte Microsoft Word 16.0 Caseta de bifat. Clic OK.

4-1. Țineți cursorul în interiorul codului și apăsați F5 tasta sau faceți clic Alerga butonul pentru a rula codul, apoi e-mailul fără imagini va fi imprimat imediat prin Word. Dar dacă computerul dvs. nu are o imprimantă, vă rugăm să urmați Pasul 4.

4-2. Când computerul nu are o imprimantă, după apăsare F5 tasta sau făcând clic Alerga pentru a rula codul, apare o casetă de dialog pentru alegerea unui folder pentru a plasa fișierul PDF și denumirea fișierului PDF. Clic Economisiți.

Acum e-mailul a fost exportat ca PDF fără imagini. Deschideți fișierul PDF și faceți clic dreapta pentru a selecta pentru a imprima e-mailul.

varful: Dacă doriți să salvați în bloc e-mailurile selectate ca PDF (sau fișiere Word, CSV, Excel, Txt, HTML) cu imagini, anteturi, corpuri, Ccs, Salvare în bloc caracteristică a Kutools pentru Outlook te poate ajuta, care au nevoie doar de 3 pași.

1. Selectați e-mailuri.

2. clic Kutools > Salvare în bloc.

3. Alegeți o locație și verificați formatul (formatele) de fișier pe care îl doriți, faceți clic pe Ok.

Obțineți acum o încercare gratuită de 30 de zile a Kutools pentru Outlook.

Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

• Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
• Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
• Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
• Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
• E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.

Citeşte mai mult ... Descarcă acum...