Note: The other languages of the website are Google-translated. Back to English

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 shranjevanjadobra ideja3


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 100 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.
doc kutools množično shranjevanje 1

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.
doc shrani e-pošto kot pdf 4

3. klik Ok. Nato so bila izbrana e-poštna sporočila posamezno shranjena kot datoteke PDF.
doc shrani e-pošto kot pdf 5


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (11)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Odlično, hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala, prijatelj. To je bila velika pomoč.
Ta komentar je moderator na spletnem mestu minimiziral
Super, delovalo kot čar. Najlepša hvala
Ta komentar je moderator na spletnem mestu minimiziral
To sem lahko uporabil. Toda zdaj, ko zaženem, samo shrani kopijo te strani. Dobim PDF z navodili namesto e-pošte, ki sem jo poskušal pretvoriti. Kakšen predlog?
Ta komentar je moderator na spletnem mestu minimiziral
Koda VBA deluje brezhibno! Ali obstaja način, da to prilagodite tako, da bo v Outlooku 2007 privzeto "shrani kot" .msg?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, PDF se shranjuje v privzeti velikosti in iz e-pošte ne vidim vsega besedila, tabel itd. Kako lahko to popravim? Ali je mogoče shraniti e-pošto kot datoteko PDF v odzivni velikosti?
Ta komentar je moderator na spletnem mestu minimiziral
Že leta se sprašujem, kako to narediti, zelo enostavno, hvala
Ta komentar je moderator na spletnem mestu minimiziral
Zanima me, kako lahko spremenim mapo, v katero gre pdf, in spremenim ime datoteke (ker se vsa e-poštna sporočila, ki jih kopiram, imenujejo isto stvar
Ta komentar je moderator na spletnem mestu minimiziral
Ta makro je res odličen in enostaven za uporabo, najlepša hvala, ker ste to delili.
Želel sem samo preveriti, ali je mogoče ustvariti enak makro tudi za prilogo PDF, ker zgornji makro deluje samo za excel in word format.

Ali mi lahko kdo pomaga pri tem.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo!!
Sledil sem vsem navodilom, vendar ne deluje, "Napaka pri prevajanju: napaka v sintaksi"
Mi lahko pomagaš ? prosim
Amaury
Ta komentar je moderator na spletnem mestu minimiziral
ali (vendar za to morate odpreti pošto) lahko uporabite to:
ActiveInspector.WordEditor.ExportAsFixedFormat "c:\temp\test.pdf",ExportFormat:=17, OpenAfterExport:=False, OptimizeFor:=0, Range:=0, From:=0, To:=0, Element:=0 , IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:=0, DocStructureTags:=True, BitmapMissingFonts:=True, UseISO19005_1:=False

Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije