Salt la conținutul principal

Cum să convertiți mai multe e-mailuri în fișiere pdf în Outlook?

În Outlook, funcția Salvare ca numai poate salva un e-mail ca fișier format HTML, TXT, MHT, MSG și șablon, dacă doriți să convertiți e-mailurile în fișiere PDF, cum puteți face? În acest articol, introduc câteva trucuri pentru rezolvarea acestei probleme.

Convertiți un e-mail în fișier PDF cu funcția Print

Convertiți un e-mail în fișier PDF cu VBA

Convertiți e-mailurile lot în fișiere PDF separate cu utilitarul Salvare ca fișieridee bună3


Convertiți un e-mail în fișier PDF cu funcția Print

În Outlook, puteți utiliza funcția Print pentru a salva un e-mail ca fișier PDF.

1. Selectați e-mailul pe care doriți să îl convertiți în PDF, faceți clic pe File > , Selectați Microsoft Print to PDF de la Printer lista verticală și faceți clic pe Print.
doc batch converti e-mailul în pdf 1

2. În Save Print Output As , selectați o cale pentru a plasa fișierul și dați-i un nume.
doc batch converti e-mailul în pdf 2

3. clic Save, și faceți clic pe Cancel pentru a opri imprimarea.
doc batch converti e-mailul în pdf 3

Acum mesajul selectat a fost convertit într-un fișier PDF.

notițe: Această metodă funcționează numai în Outlook 2016.


Convertiți un e-mail în fișier PDF cu VBA

Dacă lucrați la Outlook 2007 sau 2010, puteți aplica un cod VBA pentru a converti un e-mail în fișier PDF.

1. Selectați un e-mail și apăsați Alt + F11 tastele pentru a activa Microsoft Visual Basic for Applications fereastră.

2. clic Insert > Module, și lipiți codul de mai jos în Module script-ul.

VBA: convertiți e-mailul în pdf

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 Sub

doc batch converti e-mailul în pdf 4

3. presa F5 pentru a activa dialogul Salvare fișiere, selectați un folder pentru a plasa fișierul și dați-i un nume.
doc batch converti e-mailul în pdf 5

4. clic Save.

varful: Dacă codul nu poate rula, puteți încerca să mergeți la Trust Center pentru a verifica opțiunea Activați toate macrocomenzile din secțiunea Setări macro.
doc batch converti e-mailul în pdf 6


Convertiți e-mailurile lot în fișiere PDF separate cu utilitarul Salvare ca fișier

Cu metodele de mai sus, puteți salva un singur mesaj ca fișier PDF odată, dacă doriți să convertiți mai multe e-mailuri în fișiere PDF separate, puteți încerca Kutools pentru Outlook'S Salvare în bloc utilitate.

Kutools for Outlook, Include  funcții și instrumente puternice pentru Microsoft Outlook 2016, 2013, 2010 și Office 365.

Instalare gratuită Kutools pentru Outlook, apoi faceți pașii de mai jos:

1. Selectați e-mailurile pe care doriți să le convertiți, apoi faceți clic pe Kutools > Bulk Save.
doc batch converti e-mailul în pdf 7

2. În Save message as other files , selectați o cale pentru a localiza fișierul și verificați PDF opțiunea de formatare, puteți verifica opțiunile despre salvarea conținutului în secțiunea din dreapta.
doc batch converti e-mailul în pdf 8

3. clic Ok.

Acum e-mailurile au fost convertite în fișiere PDF.
doc batch converti e-mailul în pdf 10


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations