Outlook: E-mailek nyomtatása képek nélkül

Általában, ha az Outlookban nyomtat egy e-mailt, a képek is ki lesznek nyomtatva. Néha azonban csak a szövegeket szeretné kinyomtatni a képek nélkül, azonban az Outlookban nincs olyan beépített szolgáltatás, amely támogatná ezt a munkát. Ez az oktatóanyag egy VBA-kódot tartalmaz, amely azonnal kinyomtatja a kép nélküli e-mailt a Word segítségével. Vagy ha a számítógépe nem rendelkezik nyomtatóval, a VBA-kód először PDF-ként exportálja az e-mailt képek nélkül, majd kinyomtathatja a PDF-fájlt, miután a nyomtató rendelkezésre áll.

VBA e-mailek nyomtatásához képek nélkül

Iroda lap – Engedélyezze a lapos szerkesztést és böngészést a Microsoft Office-ban, így a munka egyszerűvé válik

Tovább ...Töltse le a ...

Kutools for Outlook – Növelje az Outlookot 100+ speciális funkcióval a kiemelkedő hatékonyság érdekében

Automatizálja az e-mailezést ezzel Auto CC / BCC, Automatikus továbbítás szabályok szerint; Küld Autómatikus válasz (Out of Office) Exchange szerver nélkül...
Szerezzen emlékeztetőket BCC figyelmeztetés amikor mindenkinek válaszol, miközben a Titkos másolat listában van, és Emlékeztessen a hiányzó mellékletekre az elfelejtett mellékletekhez...
Növelje az e-mailek hatékonyságát Válasz (mindenre) mellékletekkel, Üdvözlés vagy dátum és idő automatikus hozzáadása az aláíráshoz vagy a tárgyhoz, Válasz több e-mailre...
Egyszerűsítse az e-mailezést ezzel E-mailek visszahívása, Melléklet eszközök (Összes tömörítése, Összes automatikus mentése...), Távolítsa el a másolatokatés Gyorsjelentés...

Növelje Outlook 2021–2010 vagy Outlook 365 verzióját ezekkel a speciális funkciókkal. Élvezze az átfogó 60 napos ingyenes próbaverziót, és fokozza az e-mailezési élményt!

Tovább ...Töltse le a ...

VBA e-mailek nyomtatásához képek nélkül

1. Válasszon ki egy e-mailt, amelynek csak a szövegét szeretné kinyomtatni, majd nyomja meg a gombot más + F11 gombokat az engedélyezéshez Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok egy új üres modul létrehozásához, majd másolja ki és illessze be az alábbi kódot a modulba.

VBA: e-mailek exportálása képek nélkül

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