Ga naar hoofdinhoud

Hoe converteer ik meerdere e-mails batchgewijs naar pdf-bestanden in Outlook?

In Outlook kan de functie Opslaan als alleen een e-mail opslaan als HTML-, TXT-, MHT-, MSG- en sjabloonbestand. Hoe kunt u de e-mail (s) naar PDF-bestand (en) converteren? In dit artikel introduceer ik enkele trucs om dit probleem op te lossen.

Converteer een e-mail naar een PDF-bestand met de afdrukfunctie

Converteer één e-mail naar een PDF-bestand met VBA

Converteer batch-e-mails naar afzonderlijke PDF-bestanden met het hulpprogramma Opslaan als bestandgoed idee 3


Converteer een e-mail naar een PDF-bestand met de afdrukfunctie

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

1. Selecteer de e-mail die u naar PDF wilt converteren, klik op File > Printselecteer Microsoft Print to PDF van het Printer vervolgkeuzelijst en klik op Print.
doc batch e-mail converteren naar pdf 1

2. In de Save Print Output As selecteer een pad om het bestand te plaatsen en geef het een naam.
doc batch e-mail converteren naar pdf 2

3. klikken Saveen klik Cancel om het afdrukken te stoppen.
doc batch e-mail converteren naar pdf 3

Nu is het geselecteerde bericht geconverteerd naar een pdf-bestand.

Note: Deze methode werkt alleen in Outlook 2016.


Converteer één e-mail naar een PDF-bestand met VBA

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

1. Selecteer een e-mail en druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications venster.

2. klikken Insert > Module, en plak onderstaande code in het Module scripts.

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

doc batch e-mail converteren naar pdf 4

3. druk op F5 toets om het dialoogvenster Bestand opslaan in te schakelen, selecteer een map om het bestand te plaatsen en geef het een naam.
doc batch e-mail converteren naar pdf 5

4. klikken Save.

Tip: Als de code niet kan worden uitgevoerd, kunt u proberen naar het Vertrouwenscentrum te gaan en de optie Alle macro's inschakelen in het gedeelte Macro-instellingen aan te vinken.
doc batch e-mail converteren naar pdf 6


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

Met bovenstaande methoden kunt u slechts één bericht tegelijk als PDF-bestand opslaan. Als u meerdere e-mails batchgewijs naar afzonderlijke PDF-bestanden wilt converteren, kunt u het proberen Kutools for Outlook's Bulk opslaan utility.

Kutools for Outlook, Inclusief  krachtige functies en tools voor Microsoft Outlook 2016, 2013, 2010 en Office 365.

Gratis installatie Kutools voor Outlook en voer de onderstaande stappen uit:

1. Selecteer de e-mails die u wilt converteren en klik vervolgens op Kutools > Bulk Save.
doc batch e-mail converteren naar pdf 7

2. In de Save message as other files dialoogvenster, selecteer een pad om het bestand te lokaliseren en vink aan PDF formaatoptie, kunt u de opties voor het opslaan van inhoud in het rechtergedeelte bekijken.
doc batch e-mail converteren naar pdf 8

3. klikken Ok.

Nu zijn de e-mails geconverteerd naar PDF-bestanden.
doc batch e-mail converteren naar pdf 10


Beste Office-productiviteitstools

Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven

🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...

???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP)  /  Plan het verzenden van e-mails  /  Automatische CC/BCC volgens regels bij het verzenden van e-mail  /  Automatisch doorsturen (geavanceerde regels)   /  Begroeting automatisch toevoegen   /  Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...

📨 email management: Gemakkelijk e-mails herinneren  /  Blokkeer zwendel-e-mails van onderwerpen en anderen  /  Verwijder dubbele e-mails  /  Uitgebreid Zoeken  /  Consolideer mappen ...

📁 Bijlagen ProBatch opslaan  /  Batch losmaken  /  Batchcompressie  /  Automatisch opslaan   /  Automatisch loskoppelen  /  Automatisch comprimeren ...

???? Interface-magie: 😊Meer mooie en coole emoji's   /  Verhoog uw Outlook-productiviteit met weergaven met tabbladen  /  Minimaliseer Outlook in plaats van te sluiten ...

???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen  /   Antiphishing-e-mails  /  🕘Toon de tijdzone van de afzender ...

👩🏼‍🤝‍👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails  /  Splits een contactgroep in individuele groepen  /  Verwijder verjaardagsherinneringen ...

Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations