Direkt zum Inhalt

Wie kann ich mehrere E-Mails in Outlook stapelweise in PDF-Dateien konvertieren?

In Outlook kann die Funktion Speichern unter eine E-Mail nur als HTML-, TXT-, MHT-, MSG- und Vorlagenformatdatei speichern. Wie können Sie die E-Mail (s) in PDF-Datei (en) konvertieren? In diesem Artikel stelle ich einige Tricks zur Lösung dieses Problems vor.

Konvertieren Sie eine E-Mail mit der Druckfunktion in eine PDF-Datei

Konvertieren Sie eine E-Mail mit VBA in eine PDF-Datei

Konvertieren Sie Stapel-E-Mails mit dem Dienstprogramm Als Datei speichern in getrennte PDF-Dateiengute Idee3


Konvertieren Sie eine E-Mail mit der Druckfunktion in eine PDF-Datei

In Outlook können Sie die Druckfunktion verwenden, um eine E-Mail als PDF-Datei zu speichern.

1. Wählen Sie die E-Mail aus, die Sie in PDF konvertieren möchten, und klicken Sie auf File > DruckenWählen Microsoft Print to PDF von dem Printer Dropdown-Liste und klicken Sie auf Print.
doc Batch konvertieren E-Mail in PDF 1

2. In dem Save Print Output As Wählen Sie im Dialogfeld einen Pfad zum Platzieren der Datei aus und geben Sie ihr einen Namen.
doc Batch konvertieren E-Mail in PDF 2

3 Klicken SaveUnd klicken Sie auf Cancel um den Druckvorgang zu beenden.
doc Batch konvertieren E-Mail in PDF 3

Jetzt wurde die ausgewählte Nachricht in eine PDF-Datei konvertiert.

Note: Diese Methode funktioniert nur in Outlook 2016.


Konvertieren Sie eine E-Mail mit VBA in eine PDF-Datei

Wenn Sie mit Outlook 2007 oder 2010 arbeiten, können Sie einen VBA-Code anwenden, um eine E-Mail in eine PDF-Datei zu konvertieren.

1. Wählen Sie eine E-Mail aus und drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic for Applications Fenster.

2 Klicken Insert > Moduleund fügen Sie den folgenden Code in das ein Module Skripte.

VBA: E-Mail in PDF konvertieren

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 konvertieren E-Mail in PDF 4

3. Drücken Sie F5 Drücken Sie die Taste, um das Dialogfeld „Datei speichern“ zu aktivieren, wählen Sie einen Ordner aus, in dem die Datei abgelegt werden soll, und geben Sie ihr einen Namen.
doc Batch konvertieren E-Mail in PDF 5

4 Klicken Save.

Tipp: Wenn der Code nicht ausgeführt werden kann, können Sie versuchen, im Trust Center die Option „Alle Makros aktivieren“ im Abschnitt „Makroeinstellungen“ zu aktivieren.
doc Batch konvertieren E-Mail in PDF 6


Konvertieren Sie Stapel-E-Mails mit dem Dienstprogramm Als Datei speichern in getrennte PDF-Dateien

Mit den oben genannten Methoden können Sie jeweils nur eine Nachricht als PDF-Datei speichern. Wenn Sie mehrere E-Mails stapelweise in separate PDF-Dateien konvertieren möchten, können Sie es versuchen Kutools for Outlook Massenspeicherung Dienstprogramm.

Kutools for Outlook, Enthält  Leistungsstarke Funktionen und Tools für Microsoft Outlook 2016, 2013, 2010 und Office 365.

Kostenlose Installation Kutools für Outlook, und führen Sie dann die folgenden Schritte aus:

1. Wählen Sie die E-Mails aus, die Sie konvertieren möchten, und klicken Sie dann auf Kutools > Bulk Save.
doc Batch konvertieren E-Mail in PDF 7

2. In dem Save message as other files Wählen Sie im Dialogfeld einen Pfad zum Suchen der Datei aus und überprüfen Sie dies PDF Mit der Formatierungsoption können Sie die Optionen zum Speichern von Inhalten im rechten Abschnitt überprüfen.
doc Batch konvertieren E-Mail in PDF 8

3 Klicken Ok.

Jetzt wurden die E-Mails in PDF-Dateien umgewandelt.
doc Batch konvertieren E-Mail in PDF 10


Beste Office-Produktivitätstools

Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks

🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...

📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP)  /  Planen Sie das Senden von E-Mails  /  Automatisches CC/BCC nach Regeln beim E-Mail-Versand  /  Automatische Weiterleitung (erweiterte Regeln)   /  Begrüßung automatisch hinzufügen   /  Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails einfach abrufen  /  Blockieren Sie betrügerische E-Mails nach Betreff und anderen  /  Doppelte E-Mails löschen  /  Erweiterte Suche  /  Ordner konsolidieren ...

📁 Anhänge ProBatch speichern  /  Stapeltrennung  /  Stapelkomprimierung  /  Automatisches Speichern   /  Automatische Trennung  /  Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis   /  Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten  /  Ausblick minimieren statt schließen ...

👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten  /   Anti-Phishing-E-Mails  /  🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu  /  Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf  /  Geburtstagserinnerungen entfernen ...

Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.

 

 

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