Comment enregistrer un e-mail sous forme de fichier PDF dans Outlook?

Si vous travaillez avec Microsoft Outlook 2010 et 2007, vous constaterez qu'il n'y a pas de build-in dans Outlook pour changer l'e-mail au format pdf. Vous devez convertir l'e-mail en fichier pdf par certains compléments associés ou avec le code VBA. Avec l'article suivant, vous enregistrerez facilement vos e-mails sous forme de fichier pdf dans Outlook.

Enregistrer le courrier électronique en tant que fichier PDF dans Outlook avec le code VBA

Sauvegardez en masse plusieurs e-mails sous forme de fichier PDF ou d'autres formats de fichier avec Bulk Save

Enregistrer le courrier électronique en tant que fichier PDF dans Outlook avec le code VBA

1. Tout d'abord, vous devez sélectionner l'e-mail que vous souhaitez enregistrer au format PDF.

2. presse Alt + F11 lancer le Microsoft Visual Basic pour applications fenêtre.

3. Cliquez insérer > Module, puis copiez et collez le code VBA suivant dans la fenêtre Module.

Le code VBA d'enregistrement des e-mails 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 Sub

Notes: Ce code VBA a été testé avec succès dans Outlook 2007 et 2010

4. Cliquez pour exécuter le code.

5. Il y aura un Enregistrer le fichier boîte de dialogue qui apparaît pendant l'exécution du code. Sélectionnez un chemin pour enregistrer le fichier, nommez-le et enfin cliquez sur Épargnez .

6. Lorsque le code a fini de s'exécuter, l'e-mail a été converti avec succès en fichier pdf.

Sauvegardez en masse plusieurs e-mails sous forme de fichier PDF ou d'autres formats de fichier avec Bulk Save

Avec Kutools for Outlook installé, vous pouvez utiliser son Bulk Save utilitaire pour enregistrer ou exporter rapidement les e-mails sélectionnés vers des fichiers PDF / fichiers Excel / fichiers CSV ou d'autres formats de fichiers.

1. Dans un dossier de courrier électronique, sélectionnez les messages que vous souhaitez enregistrer au format PDF, cliquez sur Kutools > Bulk Save.

2. dans le Bulk Save boîte de dialogue, sélectionnez un chemin pour placer les nouveaux fichiers, cochez PDF format, et vous pouvez spécifier le Save content Comme vous le souhaitez.

3. Cliquez Ok. Ensuite, les e-mails sélectionnés ont été enregistrés individuellement en tant que fichiers PDF.

  Enregistrer en masse les e-mails dans plusieurs formats de fichiers

---

Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel facile des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes Pro: Sauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Boostez votre productivité Outlook avec des vues à onglets  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

En savoir plus       Téléchargement gratuit      Achat