Hoe converteert u meerdere e-mails in één keer naar PDF-bestanden in Outlook?

In Outlook kunt u met de functie **Opslaan als** alleen een e-mail opslaan als HTML-, TXT-, MHT-, MSG- of sjabloonbestand. Maar hoe converteert u e-mails naar PDF-bestanden? In dit artikel deel ik enkele handige trucs om dit probleem eenvoudig op te lossen.

Converteer één e-mail naar PDF-bestanden met de afdrukfunctie

Converteer batch-e-mails naar afzonderlijke PDF-bestanden met de hulpprogramma Opslaan als bestand

Converteer één e-mail naar PDF-bestanden met VBA

---

Converteer één e-mail naar PDF-bestanden met de afdrukfunctie

In Outlook kunt u de afdrukfunctie gebruiken om één e-mail op te slaan als PDF-bestand.

1. Selecteer de e-mail die u naar PDF wilt converteren, klik op Bestand > Afdrukken, kies Microsoft Print to PDF in de keuzelijst Printer en klik op Afdrukken.

2. Selecteer in het dialoogvenster Save Print Output As een locatie om het bestand op te slaan en geef het een naam.

3. Klik op Save en klik vervolgens op Cancel om het afdrukken te stoppen.

De geselecteerde berichten zijn nu geconverteerd naar PDF-bestanden.

Opmerking: Deze methode werkt uitsluitend in Outlook 2016.

---

---

Converteer batch-e-mails naar afzonderlijke PDF-bestanden met het hulpprogramma Opslaan als bestand

Met de bovenstaande methoden kunt u slechts één bericht tegelijk opslaan als PDF-bestand. Als u meerdere e-mails in één keer wilt converteren naar afzonderlijke PDF-bestanden, kunt u het hulpprogramma Kutools voor Outlook – Opslaan als bestanden in verschillende formaten zoals PDF – proberen.

Installeer gratisKutools voor Outlook

1. Selecteer de e-mails die u wilt converteren en klik vervolgens op Kutools > Bulk Processing >ave Selected Messages as Files in Various Formats like PDF ave Selected Messages as Files in Vavrious Formats like PDF.

2. Selecteer in het dialoogvenster Save message as other files een locatie voor het bestand en vink de PDF-indelingsoptie aan. U kunt de opties voor het opslaan van inhoud instellen in het rechtergedeelte.

3. Klik op Ok.

De e-mails zijn nu omgezet naar PDF-bestanden.

  Save Selected Messages as File

---

Converteer één e-mail naar PDF-bestanden met VBA

Als u werkt met Outlook 2007 of 2010, kunt u VBA-code gebruiken om één e-mail te converteren naar een PDF-bestand.

1. Selecteer één e-mail en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Insert > Module en plak de onderstaande code in het Module-script.

VBA: Converteer e-mail naar 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

3. Druk op F5 om het dialoogvenster Bestand opslaan te openen, kies een map om het bestand op te slaan en geef het een naam.

4. Klik op Save.

Tip: Als de code niet wordt uitgevoerd, schakel dan in het vertrouwenscentrum de optie ‘Alle macro’s inschakelen’ in onder Macro-instellingen.