Come convertire in blocco più email in file PDF in Outlook?

In Outlook, la funzione **Salva con nome** permette di salvare un'email esclusivamente nei formati HTML, TXT, MHT, MSG e modello. Ma se si desidera convertire una o più email in file PDF, come fare? In questo articolo scoprirai alcuni trucchi efficaci per risolvere il problema.

Convertire un'email in File PDF con la funzione Stampa

Convertire in blocco email multiple in singoli file File PDF con l'utilità Salva come file

Convertire un'email in File PDF con VBA

---

Convertire un'email in File PDF con la funzione Stampa

In Outlook, puoi utilizzare la funzione Stampa per salvare un'email direttamente come file PDF.

1. Seleziona l'email che desideri convertire in PDF, fai clic su File > Stampa, seleziona Microsoft Print to PDF dal menu a discesa Printer e fai clic su Print.

2. Nella finestra di dialogo Save Print Output As, seleziona un percorso in cui salvare il file e assegnagli un nome.

3. Fare clic su Save e quindi su Cancel per interrompere la stampa.

Il messaggio selezionato è stato convertito in un file PDF.

Nota: questo metodo funziona esclusivamente con Outlook 2016.

---

---

Convertire in blocco email multiple in singoli file File PDF con l'utilità Salva come file

Con i metodi descritti sopra è possibile salvare un solo messaggio alla volta come file PDF. Se invece si desidera convertire in blocco più email in singoli file PDF, provate l’utilità Kutools per Outlook con la funzione Salva elementi selezionati come file in vari formati, ad esempio PDF.

Installare gratuitamenteKutools per Outlook e seguire quindi i passaggi indicati di seguito:

1. Seleziona le email da convertire e fai clic su Kutools > Elaborazione in blocco>alva i messaggi selezionati come file in vari formati, ad esempio PDF ave Selected Messages as Files in Vavrious Formats like PDF.

2. Nella finestra di dialogo Save message as other files, seleziona un percorso in cui salvare i file, spunta l'opzione del formato PDF e, nella sezione a destra, potrai scegliere le opzioni relative al contenuto da salvare.

3. Fare clic su Ok.

Le email sono state convertite in file PDF.

  Save Selected Messages as File

---

Convertire un'email in File PDF con VBA

Se utilizzi Outlook 2007 o 2010, puoi applicare un codice VBA per convertire un'email in un file PDF.

1. Seleziona un'email e premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Fare clic su Insert > Module e incollare il codice seguente nella finestra dello script Module.

VBA: convertire un'email in 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

3. Premere il tasto F5 per aprire la finestra di dialogo Salva file, scegliere il percorso «Seleziona una cartella in cui salvare il file» e assegnargli un nome.

4. Fare clic su Save.

Suggerimento: se il codice non viene eseguito, accedi al Centro protezione e attiva l’opzione «Abilita tutte le macro» nella sezione Impostazioni macro.