Outlook: Kako natisniti e-pošto brez slik
Na splošno se pri tiskanju e-pošte v Outlooku natisnejo tudi slike. Včasih pa želite samo natisniti besedila brez slik, vendar v Outlooku ni vgrajene funkcije, ki bi podpirala to opravilo. Ta vadnica ponuja kodo VBA, ki bo e-pošto brez slik takoj natisnila prek Worda. Če pa vaš računalnik nima tiskalnika, bo koda VBA najprej izvozila e-pošto kot PDF brez slik, nato pa lahko PDF natisnete, ko je tiskalnik na voljo.
VBA za tiskanje e-pošte brez slik
- Avtomatizirajte pošiljanje e-pošte z Samodejno CC / BCC, Samodejno posredovanje naprej po pravilih; poslati Samodejni odgovor (Zven pisarne) brez potrebe po strežniku za izmenjavo ...
- Prejemajte opomnike, kot je Opozorilo pred BCC ko odgovarjate vsem, ko ste na seznamu BCC, in Opomni, ko manjkajo priloge za pozabljene priloge...
- Izboljšajte učinkovitost e-pošte z Odgovori (vsem) s priponkami, Samodejno dodajte pozdrav ali datum in uro v podpis ali zadevo, Odgovorite na več e-poštnih sporočil...
- Poenostavite pošiljanje e-pošte z Odpoklic e-pošte, Orodja za pritrditev (Stisni vse, samodejno shrani vse ...), Odstrani dvojnikein Hitro poročilo...
VBA za tiskanje e-pošte brez slik
1. Izberite e-poštno sporočilo, za katerega želite natisniti samo besedilo, nato pritisnite druga + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduli da ustvarite nov prazen modul, nato kopirajte in prilepite spodnjo kodo v modul.
VBA: izvoz e-pošte brez slik
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. klik Orodja > Reference omogočiti Reference – Projekt 1 pogovorno okno, označite Knjižnica predmetov Microsoft Word 16.0 potrditveno polje. Kliknite OK.
4-1. Držite kazalec znotraj kode in pritisnite F5 tipko ali kliknite Run gumb za zagon kode, potem bo e-pošta brez slik takoj natisnjena prek Worda. Če pa vaš računalnik nima tiskalnika, sledite 4. koraku.
4-2. Ko vaš računalnik nima tiskalnika, po pritisku F5 tipko ali klik Run gumb za zagon kode, se prikaže pogovorno okno za izbiro mape, v katero želite shraniti datoteko PDF, in poimenovati datoteko PDF. Kliknite Shrani.
Zdaj je bila e-pošta izvožena kot PDF brez slik. Odprite datoteko PDF in z desno miškino tipko kliknite, da izberete Tiskanje za tiskanje e-pošte.
Nasvet: Če želite izbrana e-poštna sporočila v velikem obsegu shraniti kot PDF (ali datoteke Word, CSV, Excel, Txt, HTML) s slikami, glavami, telesi, Ccs, Shranjevanje v velikem obsegu značilnost Kutools za Outlook vam lahko pomaga, kar potrebujete le 3 korake.
1. Izberite e-poštna sporočila.
2. klik Kutools > Shranjevanje v velikem obsegu.
3. Izberite lokacijo in preverite želene oblike datotek, kliknite V redu.
Pridobite 30-dnevno brezplačno preskusno različico Kutools za Outlook zdaj.
Najboljša pisarniška orodja za produktivnost
Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka
🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...
📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP) / Načrtujte pošiljanje e-pošte / Samodejna CC/BCC po pravilih pri pošiljanju e-pošte / Samodejno naprej (napredna pravila) / Samodejno dodaj pozdrav / E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...
📨 Email upravljanje: Enostaven priklic e-pošte / Blokiraj prevarantska e-poštna sporočila glede na teme in druge / Izbriši podvojena e-poštna sporočila / napredno iskanje / Združite mape ...
📁 Priloge Pro: Shrani paket / Batch Detach / Paketno stiskanje / Samodejno shranite / Samodejno loči / Samodejno stiskanje ...
🌟 Vmesnik Magic: 😊Več lepih in kul emojijev / Povečajte Outlookovo produktivnost s pogledi z zavihki / Minimizirajte Outlook, namesto da bi ga zaprli ...
???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami / E-poštna sporočila proti lažnemu predstavljanju / 🕘Pokaži pošiljateljev časovni pas ...
👩🏼🤝👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil / Razdelite skupino stikov na posamezne skupine / Odstranite opomnike za rojstni dan ...
Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.