Outlook: Hur man skriver ut e-post utan bilder

Vanligtvis skriver man ut ett e-postmeddelande i Outlook, bilderna skrivs också ut. Men ibland vill man bara skriva ut texterna utan bilderna, men i Outlook finns det ingen inbyggd funktion som kan stödja detta jobb. Denna handledning tillhandahåller en VBA-kod som kommer att skriva ut det bildfria e-postmeddelandet via Word omedelbart. Eller när din dator inte har en skrivare, kommer VBA-koden att exportera e-postmeddelandet som en PDF utan bilder först, och sedan kan du skriva ut PDF:en efter att skrivaren är tillgänglig.

VBA för att skriva ut e-post utan bilder

Office-fliken - Aktivera flikredigering och surfning i Microsoft Office, vilket gör arbetet enkelt

Läs mer...Ladda ner...

Kutools för Outlook - Boosta Outlook med 100+ avancerade funktioner för överlägsen effektivitet

Automatisera e-post med Auto CC / BCC, Automatisk vidarebefordran genom regler; skicka Auto-svar (Out of Office) utan att kräva en utbytesserver...
Få påminnelser som BCC-varning när du svarar alla medan du är i BCC-listan, och Påminn när du saknar bilagor för bortglömda bilagor...
Förbättra e-posteffektiviteten med Svara (alla) med bilagor, Lägg automatiskt till hälsning eller datum och tid i signatur eller ämne, Svara på flera e-postmeddelanden...
Effektivisera e-post med Återkalla e-postmeddelanden, Tillbehörsverktyg (Komprimera alla, Autospara alla...), Ta bort dubbletteroch Snabbrapport...

Förbättra din Outlook 2021 - 2010 eller Outlook 365 med dessa avancerade funktioner. Njut av en omfattande 60-dagars gratis provperiod och höj din e-postupplevelse!

Läs mer...Ladda ner...

VBA för att skriva ut e-post utan bilder

1. Välj ett e-postmeddelande där du bara vill skriva ut texten och tryck sedan på andra + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulerna för att skapa en ny tom modul, kopiera och klistra sedan in koden nedan i modulen.

VBA: exportera e-post utan bilder

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