Kako shraniti e-pošto kot pdf datoteko v Outlooku?
Če delate z Microsoft Outlook 2010 in 2007, boste ugotovili, da v Outlooku ni vgrajenega e-poštnega sporočila v format pdf. E-poštno sporočilo morate pretvoriti v datoteko pdf z nekaterimi povezanimi dodatki ali s kodo VBA. V naslednjem članku boste v Outlooku enostavno shranili e-pošto kot pdf datoteko.
Shranite e-pošto kot pdf datoteko v Outlooku s kodo VBA
Shranite več e-poštnih sporočil v velikem obsegu kot datoteko pdf ali druge oblike datotek s funkcijo množičnega shranjevanja
Shranite e-pošto kot pdf datoteko v Outlooku s kodo VBA
1. Najprej izberite e-poštno sporočilo, ki ga želite shraniti kot PDF.
2. Pritisnite Alt + F11 za zagon Microsoft Visual Basic za aplikacije okno.
3. klik Vstavi > Moduli, nato kopirajte in prilepite naslednjo kodo VBA v okno modula.
Koda VBA za shranjevanje e-pošte kot datoteke PDF:
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 Sub
Opombe: To kodo VBA so uspešno preizkusili v programih Outlook 2007 in 2010
4. klik za zagon kode.
5. Tam bo Datoteka Shrani pogovorno okno, ki se pojavi med izvajanjem kode. Izberite pot za shranjevanje datoteke, jo poimenujte in na koncu kliknite Shrani gumb.
6. Ko se koda konča, se je e-pošta uspešno pretvorila v datoteko pdf.
Shranite več e-poštnih sporočil v velikem obsegu kot datoteko pdf ali druge oblike datotek s funkcijo množičnega shranjevanja
z Kutools for Outlook nameščen, lahko uporabite njegovo Bulk Save pripomoček za hitro shranjevanje ali izvoz izbranih e-poštnih sporočil v datoteke PDF / datoteke Excel / datoteke CSV ali druge oblike datotek.
Kutools for Outlook, vključuje zmogljive funkcije in orodja za Microsoft Outlook 2019, 2016, 2013, 2010 in Office 365. |
||
1. V e-poštni mapi izberite sporočila, ki jih želite shraniti kot PDF, kliknite Kutools > Bulk Save.
2. V Ljubljani Bulk Save v pogovornem oknu izberite pot do novih datotek, preverite PDF format, in lahko določite Save content kot jo potrebujete.
3. klik Ok. Nato so bila izbrana e-poštna sporočila posamezno shranjena kot datoteke PDF.
Shranjevanje e-poštnih sporočil v več oblikah
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č.