如何在Outlook中將多封電子郵件批量轉換為pdf文件？

在Outlook中，“另存為”功能只能將電子郵件另存為HTML，TXT，MHT，MSG和模板格式文件，如果要將電子郵件轉換為PDF文件，該怎麼辦？在本文中，我將介紹一些解決此問題的技巧。

使用打印功能將一封電子郵件轉換為PDF文件

使用VBA將一封電子郵件轉換為PDF文件

使用另存為文件實用程序將批處理電子郵件轉換為單獨的PDF文件

使用打印功能將一封電子郵件轉換為PDF文件

在Outlook中，可以使用“打印”功能將一封電子郵件另存為PDF文件。

1.選擇要轉換為PDF的電子郵件，單擊 File > 列印，選擇 Microsoft Print to PDF 來自 Printer 下拉列表，然後單擊 Print.
doc批處理將電子郵件轉換為pdf 1

2。在裡面 Save Print Output As 對話框中，選擇一個路徑放置文件，並為其命名。
doc批處理將電子郵件轉換為pdf 2

3。點擊 Save，然後點擊 Cancel 停止打印。
doc批處理將電子郵件轉換為pdf 3

現在，所選消息已轉換為PDF文件。

備註：此方法僅在Outlook 2016中有效。

使用VBA將一封電子郵件轉換為PDF文件

如果您使用的是Outlook 2007或2010，則可以應用VBA代碼將一封電子郵件轉換為PDF文件。

1.選擇一封電子郵件，然後按 Alt + F11 啟用 Microsoft Visual Basic for Applications 窗口。

2。點擊 Insert > Module，然後將以下代碼粘貼到 Module 腳本。

VBA：將電子郵件轉換為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批處理將電子郵件轉換為pdf 4