Wie speichere ich E-Mails als PDF-Datei in Outlook?
Wenn Sie mit Microsoft Outlook 2010 und 2007 arbeiten, werden Sie feststellen, dass Outlook nicht integriert ist, um die E-Mail in das PDF-Format zu ändern. Sie müssen die E-Mail durch einige verwandte Add-Ins oder mit VBA-Code in eine PDF-Datei konvertieren. Mit dem folgenden Artikel können Sie E-Mails einfach als PDF-Datei in Outlook speichern.
Speichern Sie E-Mails als PDF-Datei in Outlook mit VBA-Code
Speichern Sie mehrere E-Mails in großen Mengen als PDF-Datei oder in anderen Dateiformaten mit Bulk Save
Speichern Sie E-Mails als PDF-Datei in Outlook mit VBA-Code
1. Wählen Sie zunächst die E-Mail aus, die Sie als PDF speichern möchten.
2. Drücken Sie Alt + F11 um das zu starten Microsoft Visual Basic für Applikationen Fenster.
3 Klicken Insert > ModulKopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
Der VBA-Code zum Speichern von E-Mails als PDF-Datei:
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
Note: Dieser VBA-Code wurde in Outlook 2007 und 2010 erfolgreich getestet
4 Klicken um den Code auszuführen.
5. Es wird eine geben Datei speichern Der Dialog wird angezeigt, während der Code ausgeführt wird. Wählen Sie einen Pfad zum Speichern der Datei aus, benennen Sie sie und klicken Sie schließlich auf Speichern .
6. Wenn der Code nicht mehr ausgeführt wird, wurde die E-Mail erfolgreich in eine PDF-Datei konvertiert.
Speichern Sie mehrere E-Mails in großen Mengen als PDF-Datei oder in anderen Dateiformaten mit Bulk Save
Mit der Kutools for Outlook installiert, können Sie seine verwenden Bulk Save Dienstprogramm zum schnellen Speichern oder Exportieren der ausgewählten E-Mails in PDF-Dateien / Excel-Dateien / CSV-Dateien oder andere Dateiformate.
Kutools for Outlook, Dazu gehören Leistungsstarke Funktionen und Tools für Microsoft Outlook 2019, 2016, 2013, 2010 und Office 365. |
||
1. Wählen Sie in einem E-Mail-Ordner die Nachrichten aus, die Sie als PDF speichern möchten, und klicken Sie auf Kutools > Bulk Save.
2. In dem Bulk Save Wählen Sie im Dialogfeld einen Pfad zum Platzieren der neuen Dateien aus und überprüfen Sie ihn PDF format, und Sie können die angeben Save content wie du es brauchst.
3 Klicken Ok. Anschließend wurden die ausgewählten E-Mails einzeln als PDF-Dateien gespeichert.
Massen speichern E-Mails in mehreren Dateiformaten
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 Pro: Batch 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.