Enregistrer des emails au format PDF dans Outlook : un guide étape par étape
L'enregistrement d'emails importants au format PDF peut être très avantageux pour l'archivage, le partage ou la documentation légale. Microsoft Outlook ne propose pas d'option directe pour enregistrer des emails au format PDF, mais il existe plusieurs méthodes que vous pouvez utiliser pour y parvenir. Voici un guide complet sur la façon d'enregistrer des emails au format PDF dans Outlook.
Enregistrer un email au format PDF en utilisant la fonction Imprimer
Enregistrer les emails sélectionnés au format PDF en utilisant du code VBA
Enregistrer un email au format PDF en utilisant la fonction Imprimer
Si vous souhaitez simplement enregistrer un seul email au format PDF, la fonction Imprimer peut vous aider.
1. Sélectionnez l'email que vous souhaitez enregistrer au format PDF.
2. Cliquez sur "Fichier" > "Imprimer".
3. Dans le menu déroulant Imprimante, sélectionnez "Microsoft Print to PDF", puis cliquez sur "Imprimer".
4. Dans la fenêtre "Enregistrer la sortie d'impression sous", choisissez le dossier de destination, entrez le nom du fichier, puis cliquez sur "Enregistrer".
Enregistrer les emails sélectionnés au format PDF en utilisant du code VBA
1. Tout d'abord, vous devez sélectionner l'email que vous souhaitez enregistrer au format PDF.
2. Appuyez sur "Alt + F11" pour lancer la fenêtre "Microsoft Visual Basic for Applications".
3. Cliquez sur "Insérer" > "Module", puis copiez et collez le code VBA suivant dans la fenêtre Module.
Le code VBA pour enregistrer un email au format 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 SubRemarque : Ce code VBA a été testé avec succès dans Outlook 2007 et 2010
4. Cliquez 
pour exécuter le code.
5. Une boîte de dialogue "Enregistrer le fichier" apparaîtra pendant l'exécution du code. Sélectionnez un chemin pour enregistrer le fichier, nommez-le, puis cliquez sur le bouton "Enregistrer".
6. Lorsque le code aura fini de s'exécuter, l'email aura été converti avec succès en fichier PDF.
Enregistrer les emails sélectionnés au format PDF ou dans d'autres formats de fichiers en utilisant Kutools pour Outlook
Avec "Kutools pour Outlook" installé, vous pouvez utiliser son utilitaire "Enregistrer les e-mails sélectionnés sous différents formats de fichier comme PDF" pour enregistrer ou exporter rapidement les emails sélectionnés vers des fichiers PDF/Excel/CSV ou d'autres formats de fichiers.
Découvrez l'efficacité ultime des emails avec Kutools pour Outlook ! Accédez à 70 fonctionnalités puissantes entièrement gratuites, pour toujours. Téléchargez la version gratuite dès maintenant !
1. Dans un dossier d'emails, sélectionnez les messages que vous souhaitez enregistrer au format PDF, cliquez sur "Kutools" > "Enregistrer les e-mails sélectionnés sous différents formats de fichier comme PDF".
2. Dans la boîte de dialogue "Enregistrer le courrier électronique sous d'autres fichiers", sélectionnez un chemin pour placer les nouveaux fichiers, cochez "Format PDF", et vous pouvez spécifier le "Contenu à enregistrer" selon vos besoins.
3. Cliquez sur "Ok". Les emails sélectionnés ont ensuite été enregistrés individuellement au format PDF.
Meilleurs outils de productivité pour Office
Dernières nouvelles : Kutools pour Outlook lance une version gratuite !
Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !
📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...
📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...
🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...
👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...
