Tallenna sähköpostit PDF-tiedostoina Outlookissa: vaiheittaiset ohjeet
Tärkeiden sähköpostien tallentaminen PDF-tiedostoiksi voi olla erittäin hyödyllistä arkistointia, jakamista tai oikeudellista dokumentointia varten. Microsoft Outlookilla ei ole suoraa vaihtoehtoa tallentaa sähköpostit PDF-muodossa, mutta voit käyttää useita tapoja saavuttaa tämä. Tässä on kattava opas sähköpostien tallentamiseen PDF-tiedostoina Outlookissa.
Tallenna sähköposti PDF-tiedostona Tulosta-ominaisuuden avulla
Tallenna valitut sähköpostit PDF-tiedostona VBA-koodilla
Tallenna sähköposti PDF-tiedostona Tulosta-ominaisuuden avulla
Jos haluat tallentaa vain yhden sähköpostin PDF-tiedostona, Tulosta-ominaisuus voi auttaa sinua.
1. Valitse sähköposti, jonka haluat tallentaa PDF-tiedostona.
2. Napsauta "Tiedosto" > "Tulosta".
3. Valitse avattavasta Tulostin-valikosta "Microsoft Print to PDF" ja napsauta "Tulosta".
4. Valitse "Save Print Output As" -ikkunassa kohdekansio, kirjoita tiedoston nimi ja napsauta "Tallenna".
Tallenna valitut sähköpostit PDF-tiedostona VBA-koodilla
1. Ensin sinun tulee valita sähköposti, jonka haluat tallentaa PDF-muodossa.
2. Paina "Alt + F11" käynnistääksesi "Microsoft Visual Basic for Applications" -ikkunan.
3. Napsauta "Lisää" > "Moduuli" ja kopioi ja liitä seuraava VBA-koodi Moduuli-ikkunaan.
VBA-koodi sähköpostin tallentamiseen PDF-tiedostona
Sub SaveAsPDFfile()
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 SubHuomautuksia: Tämä VBA-koodi on testattu onnistuneesti Outlook 2007:ssä ja 2010:ssä
4. napsauttaa 
suorittaaksesi koodin.
5. Näyttöön tulee "Tiedosto Tallenna" -valintaikkuna, kun koodi on käynnissä. Valitse polku tiedoston tallennusta varten, nimeä se ja napsauta lopuksi "Tallenna" -painiketta.
6. Kun koodi on suoritettu loppuun, sähköposti on onnistuneesti muunnettu pdf-tiedostoksi.
Tallenna valitut sähköpostit PDF-tiedostona tai muissa tiedostomuodoissa käyttämällä Kutools for Outlookia
Kanssa "Kutools for Outlook"asennettu, voit käyttää sitä"Save Selected Emails as Files in Various Formats like PDF"-apuohjelma, jolla voit nopeasti tallentaa tai viedä valitut sähköpostit PDF-tiedostoiksi/Excel-tiedostoiksi/CSV-tiedostoiksi tai muihin tiedostomuotoihin.
Avaa äärimmäinen sähköpostitehokkuus Kutools for Outlookin avulla! Pääsy 70 tehokkaat ominaisuudet täysin ilmaisia, ikuisesti. Lataa ilmainen versio nyt!
1. Valitse sähköpostikansiosta viestit, jotka haluat tallentaa PDF-muodossa, napsauta "Kutools">"Save Selected Emails as Files in Various Formats like PDF".
2. Kohdassa "Save Messages as Other Files" -valintaikkuna, valitse polku uusien tiedostojen sijoittamiseen, valitse "PDF format", ja voit määrittää "Save content"kuin tarvitset.
3. Napsauta "Ok". Tämän jälkeen valitut sähköpostit on tallennettu PDF-tiedostoina yksitellen.
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 ...
