Kuinka erässä muuntaa useita sähköposteja pdf-tiedostoiksi Outlookissa?
Outlookissa vain Tallenna nimellä -toiminto voi tallentaa sähköpostin HTML-, TXT-, MHT-, MSG- ja mallimuotoisena tiedostona, jos haluat muuntaa sähköpostit PDF-tiedostoiksi, miten voit tehdä sen? Tässä artikkelissa esittelen joitain temppuja tämän ongelman ratkaisemiseksi.
Muunna yksi sähköposti PDF-tiedostoksi Print-toiminnolla
Muunna eräsähköpostit erotetuiksi PDF-tiedostoiksi Tallenna tiedostona -apuohjelmalla
Muunna yksi sähköposti PDF-tiedostoksi VBA:lla
Muunna yksi sähköposti PDF-tiedostoksi Print-toiminnolla
Outlookissa voit käyttää Tulosta-toimintoa tallentaaksesi yhden sähköpostin PDF-tiedostona.
1. Valitse sähköposti, jonka haluat muuntaa PDF-muotoon, napsauta File > Painaavalitse Microsoft Print to PDF mistä Printer avattavasta luettelosta ja napsauta Print.
2. Vuonna Save Print Output As -valintaikkunassa, valitse polku tiedoston sijoittamiseen ja anna sille nimi.
3. napsauttaa Save, ja napsauta Cancel lopettaaksesi tulostamisen.
Nyt valittu viesti on muutettu PDF-tiedostoksi.
Huomautuksia: Tämä menetelmä toimii vain Outlook 2016:ssa.
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!
Muunna eräsähköpostit erotetuiksi PDF-tiedostoiksi Tallenna tiedostona -apuohjelmalla
Yllä olevilla menetelmillä voit tallentaa vain yhden viestin PDF-tiedostona kerrallaan. Jos haluat erämuuntaa useita sähköposteja erillisiksi PDF-tiedostoiksi, voit yrittää Kutools Outlookille'S Tallenna valitut viestit tiedostoina erilaisissa muodoissa, kuten PDF apuohjelma.
Vapaa asennus Kutools for Outlook ja tee sitten alla olevat vaiheet:
1. Valitse muunnettavat sähköpostit ja napsauta sitten Kutools > Bulk Processing > Save Selected Messages as Files in Vavrious Formats like PDF.
2. Vuonna Save message as other files valintaikkunassa, valitse polku tiedoston etsimiseen ja tarkista PDF muotovaihtoehto, voit tarkistaa sisällön tallennusvaihtoehdot oikeasta osiosta.
3. napsauttaa Ok.
Nyt sähköpostit on muutettu PDF-tiedostoiksi.
Save Selected Messages as File
Muunna yksi sähköposti PDF-tiedostoksi VBA:lla
Jos työskentelet Outlook 2007:ssä tai 2010:ssä, voit muuntaa yhden sähköpostin PDF-tiedostoksi VBA-koodin avulla.
1. Valitse yksi sähköposti ja paina Alt + F11 näppäimiä ottaaksesi käyttöön Microsoft Visual Basic for Applications ikkunassa.
2. napsauttaa Insert > Module, ja liitä alla oleva koodi kohtaan Module skriptejä.
VBA: Muunna sähköposti pdf-muotoon
Sub SaveAsPDFfile()
'UpdatebyExtendoffice
Dim MyOlNamespace As NameSpace
Dim MySelectedItem As MailItem
Dim Response As String
Dim FSO As Object, TmpFolder As Object
Dim tmpFileName As String
Dim wrdApp As Object
Dim wrdDoc As Object
Dim bStarted As Boolean
Dim dlgSaveAs As FileDialog
Dim fdfs As FileDialogFilters
Dim fdf As FileDialogFilter
Dim i As Integer
Dim WshShell As Object
Dim SpecialPath As String
Dim msgFileName As String
Dim strCurrentFile As String
Dim strName As String
Dim oRegEx As Object
Dim intPos As Long
Set MyOlNamespace = Application.GetNamespace("MAPI")
Set MySelectedItem = ActiveExplorer.Selection.Item(1)
Set FSO = CreateObject("Scripting.FileSystemObject")
tmpFileName = FSO.GetSpecialFolder(2)
strName = "email_temp.mht"
tmpFileName = tmpFileName & "\" & strName
MySelectedItem.SaveAs tmpFileName, 10
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
If Err Then
Set wrdApp = CreateObject("Word.Application")
bStarted = True
End If
On Error GoTo 0
Set wrdDoc = wrdApp.Documents.Open(FileName:=tmpFileName, Visible:=False, Format:=7)
Set dlgSaveAs = wrdApp.FileDialog(msoFileDialogSaveAs)
Set fdfs = dlgSaveAs.Filters
i = 0
For Each fdf In fdfs
i = i + 1
If InStr(1, fdf.Extensions, "pdf", vbTextCompare) > 0 Then
Exit For
End If
Next fdf
dlgSaveAs.FilterIndex = i
Set WshShell = CreateObject("WScript.Shell")
SpecialPath = WshShell.SpecialFolders(16)
msgFileName = MySelectedItem.Subject
Set oRegEx = CreateObject("vbscript.regexp")
oRegEx.Global = True
oRegEx.Pattern = "[\/:*?""<>|]"
msgFileName = Trim(oRegEx.Replace(msgFileName, ""))
dlgSaveAs.InitialFileName = SpecialPath & "\" & msgFileName
If dlgSaveAs.Show = -1 Then
strCurrentFile = dlgSaveAs.SelectedItems(1)
If Right(strCurrentFile, 4) <> ".pdf" Then
Response = MsgBox("Sorry, only saving in the pdf-format is supported." & _
vbNewLine & vbNewLine & "Save as pdf instead?", vbInformation + vbOKCancel)
If Response = vbCancel Then
wrdDoc.Close 0
If bStarted Then wrdApp.Quit
Exit Sub
ElseIf Response = vbOK Then
intPos = InStrRev(strCurrentFile, ".")
If intPos > 0 Then
strCurrentFile = Left(strCurrentFile, intPos - 1)
End If
strCurrentFile = strCurrentFile & ".pdf"
End If
End If
wrdApp.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
strCurrentFile, _
ExportFormat:=17, _
OpenAfterExport:=False, _
OptimizeFor:=0, _
Range:=0, _
From:=0, _
To:=0, _
Item:=0, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=0, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False
End If
Set dlgSaveAs = Nothing
wrdDoc.Close
If bStarted Then wrdApp.Quit
Set MyOlNamespace = Nothing
Set MySelectedItem = Nothing
Set wrdDoc = Nothing
Set wrdApp = Nothing
Set oRegEx = Nothing
End Sub3. Lehdistö F5 -näppäintä ottaaksesi Tiedoston tallennus -valintaikkunan käyttöön, valitse kansio, johon tiedosto sijoitetaan, ja anna sille nimi.
4. napsauttaa Save.
Kärki: Jos koodia ei voi suorittaa, voit yrittää mennä Luottamuskeskukseen ja tarkistaa Ota kaikki makrot käyttöön -vaihtoehdon makroasetukset-osiossa.
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 ...
