Outlook: Sähköpostin tulostaminen ilman kuvia
Yleensä kun tulostat sähköpostin Outlookissa, myös kuvat tulostetaan. Mutta joskus haluat vain tulostaa tekstit ilman kuvia, mutta Outlookissa ei ole sisäänrakennettua ominaisuutta, joka voisi tukea tätä työtä. Tämä opetusohjelma sisältää VBA-koodin, joka tulostaa kuvattoman sähköpostin Wordin kautta välittömästi. Tai jos tietokoneessasi ei ole tulostinta, VBA-koodi vie sähköpostin ensin PDF-muodossa ilman kuvia ja sitten voit tulostaa PDF-tiedoston, kun tulostin on saatavilla.
VBA sähköpostin tulostamiseen ilman kuvia
VBA sähköpostin tulostamiseen ilman kuvia
1. Valitse sähköposti, jolle haluat tulostaa vain tekstin, ja paina sitten muut + F11 näppäimiä ottaaksesi käyttöön Microsoft Visual Basic for Applications ikkunassa.
2. napsauttaa liite > Moduulit luodaksesi uuden tyhjän moduulin, kopioi ja liitä alla oleva koodi moduuliin.
VBA: Vie sähköposti ilman kuvia
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. napsauttaa Työkalut > Viitteet mahdollistaa Viitteet – Hanke 1 valintaikkuna, rasti Microsoft Word 16.0 -objektikirjasto valintaruutu. Klikkaus OK.
4-1. Pidä kohdistin koodin sisällä ja paina F5 näppäintä tai napsauta ajaa -painiketta suorittaaksesi koodin, sähköposti ilman kuvia tulostetaan välittömästi Wordin kautta. Mutta jos tietokoneessasi ei ole tulostinta, noudata vaihetta 4.
4-2. Kun tietokoneessasi ei ole tulostinta, paina F5 näppäintä tai napsauttamalla ajaa -painiketta suorittaaksesi koodin, näkyviin tulee valintaikkuna, jossa valitaan kansio PDF-tiedoston sijoittamiseen ja nimetään PDF-tiedosto. Klikkaus Säästä.
Nyt sähköposti on viety PDF-muodossa ilman kuvia. Avaa PDF-tiedosto ja valitse hiiren oikealla painikkeella Painaa sähköpostin tulostamiseen.
Kärki: Jos haluat joukkotallentaa valitut sähköpostit PDF-muodossa (tai Word-, CSV-, Excel-, Txt-, HTML-tiedostoina) kuvien, otsikoiden, tekstien, kopioiden, Joukkotallennus ominaisuus Kutools Outlookille voi auttaa sinua, mikä vaatii vain 3 vaihetta.
1. Valitse sähköpostit.
2. napsauttaa Kutools > Joukkotallennus.
3. Valitse sijainti ja valitse haluamasi tiedostomuodot. Napsauta OK.
AI Mail Assistant Outlookissa: älykkäämpiä vastauksia, selkeämpi viestintä (yhden napsautuksen taikuutta!) VAPAA
Virtaviivaista päivittäisiä Outlook-tehtäviäsi Kutools for Outlookin AI Mail Assistantin avulla. Tämä tehokas työkalu oppii aiemmista sähköpostiviesteistäsi ja tarjoaa älykkäitä ja tarkkoja vastauksia, optimoi sähköpostisi sisällön ja auttaa sinua luomaan ja tarkentamaan viestejä vaivattomasti.
Tämä ominaisuus tukee:
- Älykkäät vastaukset: saat aiemmista keskusteluistasi luotuja vastauksia – räätälöityjä, tarkkoja ja valmiita käyttöön.
- Parannettu sisältö: tarkenna sähköpostisi tekstiä automaattisesti selkeyden ja vaikutuksen saamiseksi.
- Vaivaton kokoonpano: Anna vain avainsanoja ja anna tekoäly hoitaa loput useilla kirjoitustyyleillä.
- Älykkäät laajennukset: Laajenna ajatuksiasi kontekstitietoisilla ehdotuksilla.
- Yhteenveto: Saat lyhyet yleiskatsaukset pitkistä sähköposteista välittömästi.
- Globaali kattavuus: Käännä sähköpostisi helposti mille tahansa kielelle.
Tämä ominaisuus tukee:
- Älykkäät sähköpostivastaukset
- Optimoitu sisältö
- Avainsanoihin perustuvat luonnokset
- Älykäs sisältölaajennus
- Yhteenveto sähköpostitse
- Monikielinen käännös
Mikä parasta, tämä ominaisuus on täysin Ilmainen ikuisesti! Älä odota -lataa AI Mail Assistant nyt ja nauti!
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
