Comment convertir par lots plusieurs e-mails en fichiers PDF dans Outlook?

Dans Outlook, la fonction Enregistrer sous peut uniquement enregistrer un e-mail sous forme de fichier au format HTML, TXT, MHT, MSG et modèle.Si vous souhaitez convertir le ou les e-mails en fichier (s) PDF, comment pouvez-vous faire? Dans cet article, je présente quelques astuces pour résoudre ce problème.

Convertir un e-mail en fichier PDF avec la fonction d'impression

Convertir un e-mail en fichier PDF avec VBA

Convertissez des e-mails par lots en fichiers PDF séparés avec l'utilitaire Enregistrer en tant que fichier

Convertir un e-mail en fichier PDF avec la fonction d'impression

Dans Outlook, vous pouvez utiliser la fonction Imprimer pour enregistrer un e-mail sous forme de fichier PDF.

1. Sélectionnez l'e-mail que vous souhaitez convertir en PDF, cliquez sur File > Commercial, sélectionnez Microsoft Print to PDF du Printer liste déroulante, et cliquez Print.
doc batch convertir un e-mail en pdf 1

2. dans le Save Print Output As , sélectionnez un chemin pour placer le fichier et donnez-lui un nom.
doc batch convertir un e-mail en pdf 2

3. Cliquez SaveEt cliquez Cancel pour arrêter l'impression.
doc batch convertir un e-mail en pdf 3

Le message sélectionné a maintenant été converti en fichier PDF.

Notes: Cette méthode ne fonctionne que dans Outlook 2016.

Convertir un e-mail en fichier PDF avec VBA

Si vous travaillez sur Outlook 2007 ou 2010, vous pouvez appliquer un code VBA pour convertir un e-mail en fichier PDF.

1. Sélectionnez un e-mail et appuyez sur Alt + F11 touches pour activer Microsoft Visual Basic for Applications fenêtre.

2. Cliquez Insert > Module, et collez le code ci-dessous dans le Module scripts.

VBA: convertir un e-mail en 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 convertir un e-mail en pdf 4

3. presse F5 pour activer la boîte de dialogue Enregistrer le fichier, sélectionnez un dossier pour placer le fichier et donnez-lui un nom.
doc batch convertir un e-mail en pdf 5

4. Cliquez Save.

Conseil : Si le code ne peut pas s'exécuter, vous pouvez essayer d'accéder au Centre de gestion de la confidentialité pour cocher l'option Activer toutes les macros dans la section Paramètres des macros.
doc batch convertir un e-mail en pdf 6

Convertissez des e-mails par lots en fichiers PDF séparés avec l'utilitaire Enregistrer en tant que fichier

Avec les méthodes ci-dessus, vous ne pouvez enregistrer qu'un seul message en tant que fichier PDF à la fois, si vous souhaitez convertir par lots plusieurs e-mails en fichiers PDF séparés, vous pouvez essayer Kutools for Outlook's Économisez en vrac utilitaire.

Kutools for Outlook, Inclus fonctionnalités et outils puissants pour Microsoft Outlook 2016, 2013, 2010 et Office 365.
Aller au téléchargement Essai gratuit 60 jours

Installation gratuite Kutools for Outlook, puis procédez comme suit:

1. Sélectionnez les e-mails que vous souhaitez convertir, puis cliquez sur Kutools > Bulk Save.
doc batch convertir un e-mail en pdf 7

2. dans le Save message as other files boîte de dialogue, sélectionnez un chemin pour localiser le fichier et cochez PDF option de format, vous pouvez vérifier les options d'enregistrement du contenu dans la section de droite.
doc batch convertir un e-mail en pdf 8