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

Come salvare la posta elettronica come file PDF in Outlook?

Se stai lavorando con Microsoft Outlook 2010 e 2007, scoprirai che non è presente alcun built-in in Outlook per cambiare l'e-mail in formato pdf. È necessario convertire l'e-mail in file pdf da alcuni componenti aggiuntivi correlati o con codice VBA. Con il seguente articolo, salverai facilmente la posta elettronica come file pdf in Outlook.

Salva e-mail come file pdf in Outlook con codice VBA

Salva in blocco più email come file PDF o altri formati di file con il salvataggio in bloccobuona idea 3


Salva e-mail come file pdf in Outlook con codice VBA

1. Innanzitutto dovresti selezionare l'e-mail che desideri salvare come PDF.

2. Stampa Alt + F11 lanciare il Microsoft Visual Basic, Applications Edition finestra.

3. Clic inserire > Modulo, quindi copia e incolla il seguente codice VBA nella finestra del modulo.

Il codice VBA per salvare l'e-mail 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

Note:: Questo codice VBA è stato testato con successo in Outlook 2007 e 2010

4. Clic per eseguire il codice.

5. Ci sarà un file File Salva finestra di dialogo che si apre mentre il codice è in esecuzione. Seleziona un percorso per salvare il file, assegnagli un nome e infine fai clic su Risparmi pulsante.

6. Al termine dell'esecuzione del codice, l'e-mail è stata convertita correttamente in file pdf.


Salva in blocco più email come file PDF o altri formati di file con il salvataggio in blocco

Con una lunga Kutools for Outlook installato, puoi usare il suo Bulk Save utility per salvare o esportare rapidamente le e-mail selezionate in file PDF / file Excel / file CSV o altri formati di file.

Kutools for Outlook, inclusi
100
potenti funzionalità e strumenti per Microsoft Outlook 2019, 2016, 2013, 2010 e Office 365.

1. In una cartella di posta elettronica, selezionare i messaggi che si desidera salvare come PDF, fare clic su Kutools > Bulk Save.
doc kutools salvataggio in blocco 1

2. Nel Bulk Save finestra di dialogo, selezionare un percorso in cui posizionare i nuovi file, controllare PDF formate puoi specificare il file Save content di cui hai bisogno.
doc salva e-mail come pdf 4

3. Clic Ok. Quindi le e-mail selezionate sono state salvate singolarmente come file PDF.
doc salva e-mail come pdf 5


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (11)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Eccellente grazie!
Questo commento è stato fatto dal moderatore sul sito
Molte grazie, amico. Questo è stato un grande aiuto.
Questo commento è stato fatto dal moderatore sul sito
Super, ha funzionato come un incantesimo. Grazie mille
Questo commento è stato fatto dal moderatore sul sito
Sono stato in grado di usare questo. Ma ora, quando eseguo, sta solo salvando una copia di questa pagina. Ricevo un PDF delle istruzioni anziché l'e-mail che stavo cercando di convertire. Eventuali suggerimenti?
Questo commento è stato fatto dal moderatore sul sito
Il codice VBA funziona perfettamente! Ora, c'è un modo per regolare questo in modo che l'impostazione predefinita "salva con nome" sia .msg in Outlook 2007?
Questo commento è stato fatto dal moderatore sul sito
Ciao a tutti, il PDF viene salvato nella dimensione predefinita e non riesco a vedere tutto il testo, le tabelle, ecc. Dall'e-mail. Come posso ripararlo? C'è un modo per salvare l'e-mail come file PDF in una dimensione reattiva?
Questo commento è stato fatto dal moderatore sul sito
Mi sono chiesto come farlo per anni, molto facile, grazie
Questo commento è stato fatto dal moderatore sul sito
Mi chiedo come posso cambiare la cartella in cui va il pdf e cambiare il nome del file (poiché tutte le e-mail che sto copiando hanno lo stesso nome
Questo commento è stato fatto dal moderatore sul sito
Questa macro è davvero fantastica e anche facile da usare, grazie mille per averla condivisa.
Volevo solo verificare se è possibile creare lo stesso tipo di macro anche per l'allegato PDF, perché la macro sopra funziona solo per il formato Excel e Word.

Qualcuno può aiutarmi su questo.
Questo commento è stato fatto dal moderatore sul sito
Ciao !!
Ho seguito tutte le istruzioni ma non funziona, "Errore di compilazione: Errore di sintassi"
Mi potete aiutare ? Per favore
Amaury
Questo commento è stato fatto dal moderatore sul sito
oppure (ma per questo devi aprire la posta) potresti usare questo:
ActiveInspector.WordEditor.ExportAsFixedFormat "c:\temp\test.pdf",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

Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL