Note: The other languages of the website are Google-translated. Back to English

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

Fila Office - Activați editarea și navigarea cu file în Office și faceți munca mult mai ușoară ...
Kutools pentru Outlook - aduce 100 de caracteristici avansate puternice în Microsoft Outlook
  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte E-mailuri multiple după reguli; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul atunci 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 în conversația prin poștă; Răspundeți la multe e-mailuri simultan; Adăugare automată felicitare când răspundeți; Adăugare automată a datei și orei în subiect ...
  • Instrumente de atașare: Detașare automată, Comprimare toate, Redenumire toate, Salvare automată toate ... Raport rapid, Numărați mesajele selectate, Eliminați mesajele și persoanele de contact duplicate ...
  • Mai mult de 100 de funcții avansate vor rezolva majoritatea problemelor tale în Outlook 2010-2019 și 365. Funcții complete de încercare gratuită de 60 de zile.

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

doc elimina elementele duplicate din calendar 1

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

 doc elimina elementele duplicate din calendar 1

doc elimina elementele duplicate din calendar 1

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.

 doc elimina elementele duplicate din calendar 1

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.

doc elimina elementele duplicate din calendar 1

doc elimina elementele duplicate din calendar 1

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.

doc elimina elementele duplicate din calendar 1

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

doc elimina elementele duplicate din calendar 1

doc elimina elementele duplicate din calendar 1

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.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (0)
Încă nu există evaluări. Fii primul care evaluează!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0  Caractere
Locații sugerate