Přejít k hlavnímu obsahu

Outlook: Jak tisknout e-maily bez obrázků

Při tisku e-mailu v aplikaci Outlook se obvykle vytisknou i obrázky. Někdy však chcete pouze vytisknout texty bez obrázků, ale v aplikaci Outlook není žádná vestavěná funkce, která by tuto úlohu podporovala. Tento tutoriál poskytuje kód VBA, který okamžitě vytiskne e-mail bez obrázků prostřednictvím aplikace Word. Nebo když váš počítač nemá tiskárnu, kód VBA nejprve vyexportuje e-mail jako PDF bez obrázků a až bude tiskárna k dispozici, můžete PDF vytisknout.

VBA pro tisk e-mailů bez obrázků

Karta Office – Povolte úpravy a procházení na kartách v Microsoft Office, díky čemuž bude práce hračkou
Kutools pro Outlook – Vylepšete Outlook se 100+ pokročilými funkcemi pro vynikající efektivitu
Vylepšete svůj Outlook 2021–2010 nebo Outlook 365 pomocí těchto pokročilých funkcí. Užijte si komplexní 60denní bezplatnou zkušební verzi a vylepšete svůj e-mailový zážitek!

VBA pro tisk e-mailů bez obrázků

 

1. Vyberte e-mail, ze kterého chcete vytisknout pouze text, a stiskněte Další + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul pro vytvoření nového prázdného modulu, zkopírujte a vložte níže uvedený kód do modulu.

VBA: export e-mailu bez obrázků

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 odstranit duplicitní položky kalendáře 1

3. cvaknutí Tools > Reference umožnit Reference - projekt 1 dialog, zaškrtněte Knihovna objektů Microsoft Word 16.0 zaškrtávací políčko. Klepněte na OK.

 doc odstranit duplicitní položky kalendáře 1

doc odstranit duplicitní položky kalendáře 1

4-1. Udržujte kurzor uvnitř kódu a stiskněte F5 klíč nebo klik Běh tlačítko pro spuštění kódu, pak se e-mail bez obrázků okamžitě vytiskne pomocí aplikace Word. Pokud však váš počítač nemá tiskárnu, postupujte podle kroku 4.

4-2. Když váš počítač nemá tiskárnu, po stisknutí F5 klíč nebo kliknutí Běh tlačítko pro spuštění kódu, objeví se dialogové okno pro výběr složky pro umístění souboru PDF a pojmenování souboru PDF. Klikněte Uložit.

 doc odstranit duplicitní položky kalendáře 1

Nyní byl e-mail exportován jako PDF bez obrázků. Otevřete soubor PDF a kliknutím pravým tlačítkem vyberte Tisk vytisknout e-mail.

doc odstranit duplicitní položky kalendáře 1

doc odstranit duplicitní položky kalendáře 1

Tip: Pokud chcete hromadně uložit vybrané e-maily jako PDF (nebo soubory Word, CSV, Excel, Txt, HTML) s obrázky, záhlavími, těly, kopiemi, Hromadné uložení vlastnost Kutools pro aplikaci Outlook vám může pomoci, což vyžaduje pouze 3 kroky.

1. Vyberte e-maily.

2. cvaknutí Kutools > Hromadné uložení.

doc odstranit duplicitní položky kalendáře 1

3. Vyberte umístění a zaškrtněte požadovaný formát souboru (formáty) a klepněte na tlačítko OK.

doc odstranit duplicitní položky kalendáře 1

doc odstranit duplicitní položky kalendáře 1

Získejte 30denní bezplatnou zkušební verzi Kutools pro Outlook nyní.


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy ProDávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations