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ů
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
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.
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.
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.
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í.
3. Vyberte umístění a zaškrtněte požadovaný formát souboru (formáty) a klepněte na tlačítko OK.
AI Mail Assistant v aplikaci Outlook: Chytřejší odpovědi, jasnější komunikace (kouzlo na jedno kliknutí!) UVOLNIT
Zjednodušte své každodenní úkoly Outlooku pomocí AI Mail Assistant od Kutools pro Outlook. Tento výkonný nástroj se učí z vašich minulých e-mailů, aby nabídl inteligentní a přesné odpovědi, optimalizoval obsah vašich e-mailů a pomohl vám bez námahy navrhovat a upravovat zprávy.
Tato funkce podporuje:
- Chytré odpovědi: Získejte odpovědi vytvořené z vašich minulých konverzací – přizpůsobené, přesné a připravené k použití.
- Vylepšený obsah: Automaticky upravte text e-mailu tak, aby byl srozumitelný a účinný.
- Skládání bez námahy: Stačí zadat klíčová slova a nechat AI, aby se postarala o zbytek, s několika styly psaní.
- Inteligentní rozšíření: Rozšiřte své myšlenky pomocí kontextových návrhů.
- Shrnutí: Získejte okamžitě stručné přehledy dlouhých e-mailů.
- Globální dosah: Snadno překládejte své e-maily do jakéhokoli jazyka.
Tato funkce podporuje:
- Chytré e-mailové odpovědi
- Optimalizovaný obsah
- Koncepty založené na klíčových slovech
- Inteligentní rozšíření obsahu
- Emailová sumarizace
- Vícejazyčný překlad
Nejlepší ze všeho je, že tato funkce je zcela uvolnit navždy! Nečekej —stáhněte si AI Mail Assistant nyní a užívejte si!
Nejlepší nástroje pro produktivitu v kanceláři
Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!
Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!
???? Automatizace e-mailu: Automatická odpověď (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: Připomenout e-maily / 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 Pro: Dá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ů / Připomeňte si, když přijdou důležité e-maily / 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 ...
