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

Outlook: Sådan udskrives e-mail uden billeder

Generelt udskrives en e-mail i Outlook, billederne udskrives også. Men nogle gange vil du bare udskrive teksterne uden billederne, men i Outlook er der ingen indbygget funktion, der kan understøtte dette job. Denne vejledning giver en VBA-kode, der vil udskrive den billedfri e-mail via Word med det samme. Eller når din computer ikke har en printer, vil VBA-koden eksportere e-mailen som en PDF uden billeder først, og derefter kan du udskrive PDF'en, når printeren er tilgængelig.

VBA til at udskrive e-mail uden billeder

Fanen Office - Aktiver redigering og browsing med faner i Office, og gør arbejdet meget nemmere ...
Kutools til Outlook - bringer 100 kraftige avancerede funktioner til Microsoft Outlook
  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter regler; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle, hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Besvar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på én gang; Tilføj automatisk hilsen når svar Tilføj automatisk dato og tid til emne ...
  • Vedhæftningsværktøjer: Automatisk afmontering, Komprimer alt, Omdøb alt, Gem alle automatisk ... Hurtig rapport, Tæl valgte mails, Fjern duplikerede mails og kontakter ...
  • Mere end 100 avancerede funktioner vil løse de fleste af dine problemer i Outlook 2010-2019 og 365. Fuld funktioner 60-dages gratis prøveperiode.

VBA til at udskrive e-mail uden billeder

 

1. Vælg en e-mail, som du kun vil udskrive teksten på, og tryk derefter på andre + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler for at oprette et nyt tomt modul, så kopier og indsæt nedenstående kode til modulet.

VBA: eksporter e-mail uden billeder

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 fjern dublerede kalenderelementer 1

3. klik Værktøj > Referencer at muliggøre Referencer – Projekt 1 dialog, sæt kryds Microsoft Word 16.0-objektbibliotek afkrydsningsfelt. Klik på OK.

 doc fjern dublerede kalenderelementer 1

doc fjern dublerede kalenderelementer 1

4-1. Hold markøren inden for koden, og tryk på F5 tast eller klik Kør knappen for at køre koden, så vil e-mailen uden billeder blive udskrevet med det samme gennem Word. Men hvis din computer ikke har en printer, skal du følge trin 4.

4-2. Når din computer ikke har en printer, efter at have trykket på F5 tast eller klik Kør knappen for at køre koden, vises en dialogboks for at vælge en mappe til at placere PDF-filen og navngive PDF-filen. Klik Gem.

 doc fjern dublerede kalenderelementer 1

Nu er e-mailen blevet eksporteret som PDF uden billeder. Åbn PDF-filen, og højreklik for at vælge Trykke for at udskrive e-mailen.

doc fjern dublerede kalenderelementer 1

doc fjern dublerede kalenderelementer 1

Tip: Hvis du vil massegemme udvalgte e-mails som PDF (eller Word, CSV, Excel, Txt, HTML-filer) med billeder, overskrifter, brødtekster, Ccs, Massebesparelse træk ved Kutools til Outlook kan hjælpe dig, som kun behøver 3 trin.

1. Vælg e-mails.

2. klik Kutools > Massebesparelse.

doc fjern dublerede kalenderelementer 1

3. Vælg en placering og tjek det eller de filformater, du ønsker. Klik på Ok.

doc fjern dublerede kalenderelementer 1

doc fjern dublerede kalenderelementer 1

Få 30-dages gratis prøveversion af Kutools til Outlook nu.


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (0)
Ingen vurderinger endnu. Vær den første til at bedømme!
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0  Tegn
Foreslåede steder