Preskoči na glavno vsebino

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

Zavihek Office – omogočite urejanje in brskanje z zavihki v Microsoft Officeu, kar olajša delo
Kutools za Outlook – izboljšajte Outlook s 100+ naprednimi funkcijami za vrhunsko učinkovitost
Izboljšajte svoj Outlook 2021 - 2010 ali Outlook 365 s temi naprednimi funkcijami. Uživajte v obsežnem 60-dnevnem brezplačnem preizkusu in izboljšajte svojo e-poštno izkušnjo!

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

doc odstrani podvojene elemente koledarja 1

3. klik Orodja > Reference omogočiti Reference – Projekt 1 pogovorno okno, označite Knjižnica predmetov Microsoft Word 16.0 potrditveno polje. Kliknite OK.

 doc odstrani podvojene elemente koledarja 1

doc odstrani podvojene elemente koledarja 1

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.

 doc odstrani podvojene elemente koledarja 1

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.

doc odstrani podvojene elemente koledarja 1

doc odstrani podvojene elemente koledarja 1

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.

doc odstrani podvojene elemente koledarja 1

3. Izberite lokacijo in preverite želene oblike datotek, kliknite V redu.

doc odstrani podvojene elemente koledarja 1

doc odstrani podvojene elemente koledarja 1

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 ProShrani 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č.

 

 

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