Hoe converteer je meerdere e-mails in bulk naar PDF-bestanden in Outlook?
In Outlook kan de functie Opslaan als een e-mail alleen opslaan in HTML-, TXT-, MHT-, MSG- en sjabloonformaat. Als je de e-mail(s) wilt converteren naar PDF-bestand(en), hoe doe je dat dan? In dit artikel introduceer ik enkele trucs om dit probleem op te lossen.
Converteer één e-mail naar een PDF-bestand met de Afdrukfunctie
Converteer meerdere e-mails in bulk naar afzonderlijke PDF-bestanden met de Sla op als Bestand-hulpprogramma
Converteer één e-mail naar een PDF-bestand met VBA
Converteer één e-mail naar een PDF-bestand met de Afdrukfunctie
In Outlook kun je de Afdrukfunctie gebruiken om één e-mail op te slaan als een PDF-bestand.
1. Selecteer de e-mail die je wilt converteren naar PDF, klik op Bestand > Afdrukken, selecteer Microsoft Print to PDF uit de Printer-keuzelijst en klik op Afdrukken.
2. Selecteer in het dialoogvenster Opslaan afdrukuitvoer als een locatie om het bestand op te slaan en geef het een naam.
3. Klik op Opslaan en klik op Annuleren om het afdrukken te stoppen.
Nu is het geselecteerde bericht geconverteerd naar een PDF-bestand.
Opmerking: Deze methode werkt alleen in Outlook 2016.
AI Mail Assistant in Outlook: Slimmere antwoorden, duidelijkere communicatie (één-klik magie!) GRATIS
Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert uit uw eerdere e-mails om intelligente en nauwkeurige reacties te bieden, uw e-mailinhoud te optimaliseren en u te helpen berichten moeiteloos op te stellen en te verfijnen.
Deze functie ondersteunt:
- Slimme antwoorden: Ontvang reacties die zijn samengesteld uit uw eerdere gesprekken - afgestemd, precies en klaar voor gebruik.
- Verbeterde inhoud: Automatisch uw e-mailtekst verfijnen voor meer duidelijkheid en impact.
- Makkelijke samenstelling: Geef slechts trefwoorden op en laat AI de rest doen, met meerdere schrijfstijlen.
- Intelligente uitbreidingen: Breid uw gedachten uit met contextbewuste suggesties.
- Samenvatting: Krijg direct een beknopt overzicht van lange e-mails.
- Wereldwijde bereik: Vertaal uw e-mails eenvoudig in elke taal.
Deze functie ondersteunt:
- Slimme e-mailreacties
- Geoptimaliseerde inhoud
- Op trefwoorden gebaseerde concepten
- Intelligente inhoudsuitbreiding
- E-mailsamenvatting
- Meertalige vertaling
Het beste van alles is dat deze functie voor altijd volledig gratis is! Wacht niet langer — download AI Mail Assistant nu en geniet
Converteer meerdere e-mails in bulk naar afzonderlijke PDF-bestanden met de Sla op als Bestand-hulpprogramma
Met bovenstaande methoden kun je slechts één bericht tegelijk opslaan als een PDF-bestand. Als je meerdere e-mails in bulk wilt converteren naar afzonderlijke PDF-bestanden, kun je proberen Kutools voor Outlook’s Geselecteerde Berichten opslaan als Bestanden in Verschillende Formaten zoals PDF-hulpprogramma.
Installeer Kutools voor Outlook gratis en volg vervolgens de onderstaande stappen:
1. Selecteer de e-mails die je wilt converteren en klik vervolgens op Kutools > Bulkverwerking > Geselecteerde Berichten opslaan als Bestanden in Verschillende Formaten zoals PDF.
2. Selecteer in het dialoogvenster Bericht opslaan als andere bestanden een locatie om het bestand op te slaan, vink de optie PDF-indeling aan en controleer de opties over het opslaan van inhoud in de rechtersectie.
3. Klik op OK.
Nu zijn de e-mails geconverteerd naar PDF-bestanden.
Geselecteerde Berichten opslaan als Bestand
Converteer één e-mail naar een PDF-bestand met VBA
Als je werkt met Outlook 2007 of 2010, kun je een VBA-code gebruiken om één e-mail naar een PDF-bestand te converteren.
1. Selecteer één e-mail en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de onderstaande code in het Modulescript.
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 Sub3. Druk op F5 om het dialoogvenster Bestand opslaan te openen, selecteer een map om het bestand op te slaan en geef het een naam.
4. Klik op Opslaan.
Tip: Als de code niet kan worden uitgevoerd, probeer dan naar het Trust Center te gaan om de optie Alle macro's inschakelen in de sectie Macro-instellingen te controleren.
Beste productiviteitstools voor Office
Breaking News: Kutools voor Outlook lanceert gratis versie!
Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...
👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...
👩🏼🤝👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...
