Salva le email come file PDF in Outlook: una guida passo-passo
Salvare le email importanti come file PDF può essere altamente vantaggioso per scopi di archiviazione, condivisione o documentazione legale. Microsoft Outlook non ha un'opzione diretta per salvare le email come PDF, ma ci sono diversi metodi che puoi utilizzare per raggiungere questo obiettivo. Ecco una guida completa su come salvare le email come file PDF in Outlook.
Salva un'email come file PDF utilizzando la funzione Stampa
Salva le email selezionate come file PDF utilizzando il codice VBA
Salva le email selezionate come file PDF o altri formati di file utilizzando Kutools per Outlook
Salva un'email come file PDF utilizzando la funzione Stampa
Se vuoi salvare solo un'email come file PDF, la funzione Stampa può aiutarti.
1. Seleziona l'email che desideri salvare come file PDF.
2. Clicca su "File" > "Stampa".
3. Nel menu a discesa della stampante, seleziona "Microsoft Print to PDF", e clicca su "Stampa".

4. Nella finestra "Salva output di stampa come", scegli la cartella di destinazione, inserisci il nome del file e clicca su "Salva".

Salva le email selezionate come file PDF utilizzando il codice VBA
1. Prima di tutto, devi selezionare l'email che desideri salvare come PDF.
2. Premi "Alt + F11" per aprire la finestra "Microsoft Visual Basic for Applications".
3. Clicca su "Inserisci" > "Modulo", quindi copia e incolla il seguente codice VBA nella finestra Modulo.

Il codice VBA per salvare l'email come file 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
Nota: Questo codice VBA è stato testato con successo in Outlook 2007 e 2010
4. Clicca per eseguire il codice.
5. Durante l'esecuzione del codice, apparirà una finestra di dialogo "Salvataggio File". Seleziona un percorso per salvare il file, assegnagli un nome e infine clicca sul pulsante "Salva".

6. Quando il codice finisce di essere eseguito, l'email sarà stata convertita con successo in un file PDF.
Salva le email selezionate come file PDF o altri formati di file utilizzando Kutools per Outlook
Con Kutools per Outlook installato, puoi utilizzare la sua funzione "Salva le email selezionate in vari formati di file come PDF" per salvare o esportare rapidamente le email selezionate in file PDF/Excel/CSV o altri formati di file.
Sblocca l'efficienza massima delle email con Kutools per Outlook! Accedi a 70 funzionalità potenti assolutamente gratis, per sempre. Scarica ora la versione gratuita!
1. In una cartella di posta elettronica, seleziona i messaggi che desideri salvare come PDF, clicca su "Kutools" > "Salva le email selezionate in vari formati di file come PDF".
2. Nella finestra di dialogo "Salva email come altri file", seleziona un percorso per posizionare i nuovi file, seleziona "Formato PDF", e puoi specificare il "Contenuto da salvare" secondo necessità.

3. Clicca su "Ok". Quindi, le email selezionate verranno salvate come file PDF individualmente.

I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri la nuovissima versione GRATUITA di Kutools per Outlook con oltre70 funzionalità straordinarie, da utilizzare PER SEMPRE! Clicca per scaricarla subito!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio email / CC/BCC automatico tramite regola durante l'invio / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddividi automaticamente le email con più destinatari in messaggi individuali...
📨 Gestione Email: Richiama Email / Blocca email di phishing per oggetto e altri criteri / Elimina email duplicate / Ricerca Avanzata / Organizza cartelle...
📁 Allegati Pro: Salva in blocco / Distacca in blocco / Comprimi in blocco / Salvataggio automatico / Distacca automaticamente / Auto Comprimi...
🌟 Magia dell'interfaccia: 😊Più emoji belle e originali / Notifiche per email importanti / Riduci Outlook a icona invece di chiuderlo...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘Mostra il fuso orario del mittente...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in blocco contatti dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi promemoria di compleanno...

