Savjet: drugi jezici su prevedeni na Google. Možete posjetiti English verzija ove veze.
Prijava
x
or
x
x
Registracija
x

or

Kako spremiti e-poštu kao pdf datoteku u programu Outlook?

Ako radite s programom Microsoft Outlook 2010 i 2007, vidjet ćete da u Outlooku nema izgrađenosti za promjenu e-pošte u pdf formatu. Morate pretvoriti e-mail u pdf datoteku nekih povezanih dodataka ili VBA kodom. S sljedećim člankom, lako ćete spremiti e-poštu kao pdf datoteku u programu Outlook.

Spremi e-poštu kao PDF datoteku u programu Outlook s VBA kodom

Skupno spremanje više e-pošte kao pdf datoteka ili drugih formata datoteka s Bulk Savedobra ideja3

Spremite ili izvezite više poruka e-pošte drugim datotekama (PDF / HTML / WORD / EXCEL) u programu Outlook

Ponekad, možda želite spremiti ili izvesti poruke e-pošte u mapu kao druge datoteke formata, kao što su PDF, Word ili Excel datoteke u programu Outlook. U programu Outlook, niti jedna funkcija Save as (Spremi kao i izvoz) ne može obraditi ovaj posao. Međutim, Kutools za Outlook's Save as file uslužni program može izvesti više e-pošte u mapu kao datoteke s više formata odjednom. Kliknite 45 dana besplatno probno razdoblje!
doc izvoz e-mail u msg 8
Kutools for Outlook: s desecima praktičnih dodataka za Outlook, slobodno možete isprobati bez ograničenja u 45 danima.
Kutools za Outlook: 100 + Novi napredni alati za Outlook.
Kartica sustava Office: Omogućavanje uređivanja i pregledavanja karata u uredu, Baš kao i Chrome, Firefox, IE 8 / 9 / 10.
Klasični izbornik: Vraćanje starih izbornika i alatnih traka na Office 2007, 2010, 2013, 2016 i 2019.

Spremi e-poštu kao PDF datoteku u programu Outlook s VBA kodom

1. Prvo odaberite e-poruku koju želite spremiti kao PDF.

2. tisak Alt + F11 pokrenuti Microsoft Visual Basic for Applications prozor.

3. klik umetak > Moduli, zatim kopirajte i zalijepite sljedeći VBA kôd u prozor Modul.

VBA kod spremanja e-pošte kao PDF datoteke:

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

bilješke: Ovaj VBA kod uspješno je testiran u programima Outlook 2007 i 2010

4. klik za pokretanje koda.

5. Bit će a Spremanje datoteka dijaloški se prekid dok se kôd izvodi. Odaberite put za spremanje datoteke, nazovite ga i konačno kliknite na Prebaci tipku.

6. Kada kôd završi, e-adresa je uspješno pretvorena u pdf datoteku.


Skupno spremanje više e-pošte kao pdf datoteka ili drugih formata datoteka s Bulk Save

S Kutools for Outlook instaliran, možete ga koristiti Bulk Save uslužni program za brzo spremanje ili izvoz odabranih poruka e-pošte u PDF datoteke / Excel datoteke / CSV datoteke ili druge formate datoteka.

1. U mapi e-pošte odaberite poruke koje želite spremiti kao PDF, kliknite Kutools > Bulk Save.
doc spremite e-poštu kao pdf 3

2. U Bulk Save dijaloški okvir, odaberite put za postavljanje novih datoteka, provjerite PDF format, a možete odrediti i Save content kao što vam treba.
doc spremite e-poštu kao pdf 4

3. klik Ok, Tada su odabrane e-poruke spremljene kao PDF datoteke pojedinačno.
doc spremite e-poštu kao pdf 5



Kutools za Outlook

Više od 100 naprednih funkcija za Outlook 2010, 2013, 2016, 2019 i 365

zaslon pucao kutools za Outlook mali za banner 201812

Dodatne mogućnosti | Besplatno preuzimanje | Samo $ 39.00 za stotine funkcija

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Amaury · 8 months ago
    Hi !!
    I have follow all the instructions but it doesn't work, " Compile error : Syntax error"
    Can you help me ? Please
    Amaury
  • To post as a guest, your comment is unpublished.
    Shashank Soni · 1 years ago
    This macro is really great and easy to use as well,thank you so much for sharing this.
    Just wanted to check is it possible to create same kind of macro for PDF attachment as well,because the above macro works only for excel and word format.

    Can any one one help me on this.
  • To post as a guest, your comment is unpublished.
    mac · 2 years ago
    I am wondering how I could change the folder the pdf goes to and change the filename(since all the emails I am copying are called the same thing
  • To post as a guest, your comment is unpublished.
    Kade · 2 years ago
    Been wondering how to do this for years, very easy, thank you
  • To post as a guest, your comment is unpublished.
    Mar · 2 years ago
    Hi All,

    PDF is saving in default size and I can't see all text, tables, etc. from email. How can I fix that? Is it any way to save email as PDF file in responsive size?