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

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ů

Záložka Office - Povolte úpravy a procházení záložkami v Office a mnohem usnadněte práci ...
Kutools pro Outlook - přináší do aplikace Microsoft Outlook 100 výkonných pokročilých funkcí
  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle pravidel; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem, pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (vše) se všemi přílohami v poštovní konverzaci; Odpovězte na mnoho e-mailů najednou; Automatické přidání pozdravu při odpovědi; Automatické přidání data a času do předmětu ...
  • Nástroje pro připojení: Auto Detach, Compress All, Rename All, Auto Save All ... Rychlá zpráva, Počet vybraných e-mailů, Odebrat duplicitní e-maily a kontakty ...
  • Více než 100 pokročilých funkcí bude vyřešit většinu vašich problémů v Outlooku 2010–2019 a 365. Kompletní funkce 60denní bezplatná zkušební verze.

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í.


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění