如何在 Outlook 中批量将多封邮件转换为 PDF 文件？

在 Outlook 中，“另存为”功能仅支持将邮件保存为 HTML、TXT、MHT、MSG 及模板格式文件。如果您希望将邮件转换为 PDF 格式，该如何操作呢？本文将为您分享几种实用的小技巧，助您轻松解决这一问题。

使用打印功能将单封邮件转换为 Pdf 文件

使用“另存为文件”功能将批量邮件分别转换为 Pdf 文件

通过 VBA 将单封邮件转换为 Pdf 文件

---

使用打印功能将单封邮件转换为 Pdf 文件

在 Outlook 中，您可以通过打印功能将单封邮件保存为 PDF 文件。

1. 选择您要转换为 PDF 的邮件，点击 File > 打印，在 Printer 下拉列表中选择 Microsoft Print to PDF，然后点击 Print。

2. 在 Save Print Output As 对话框中，选择文件保存路径并命名文件。

3. 单击 Save，然后点击 Cancel 即可停止打印。

现在，所选邮件已成功转换为 PDF 文件。

注意：此方法仅适用于 Outlook 2016.

---

---

使用“另存为文件”功能将批量邮件分别转换为 Pdf 文件

通过上述方法，您一次只能将一封邮件保存为 Pdf 文件。如果需要批量将多封邮件分别转换为 Pdf 文件，建议尝试 Kutools for Outlook 的 将选中项目以 PDF 等多种格式另存为文件实用工具。

免费下载安装 Kutools for Outlook，然后按如下步骤操作：

1. 选择要转换的邮件，然后点击 Kutools > Bulk Processing  > ave Selected Messages as Files in Various Formats like PDF ave Selected Messages as Files in Vavrious Formats like PDF。

2. 在 Save message as other files 对话框中，选择保存路径，并勾选 PDF 格式选项，您还可以在右侧设置内容保存方式。

3. 单击 Ok 按钮。

现在，这些邮件已成功转换为 PDF 文件。

  Save Selected Messages as File

---

通过 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

3. 按下 F5 键，即可调出文件保存对话框，选择文件夹设置保存路径并命名。

4. 单击 Save。

提示：如果代码无法运行，您可以尝试在信任中心的宏设置区域勾选“启用所有宏”选项。