跳至主要内容

Kutools for Office — 一套工具，五种功能。事半功倍。

在Outlook中将邮件保存为PDF文件：分步指南

Author Siluvia Last modified

将重要邮件保存为PDF文件对于存档、共享或法律文件记录非常有用。Microsoft Outlook没有直接将邮件保存为PDF的选项，但您可以使用几种方法来实现这一目的。以下是如何在Outlook中将邮件保存为PDF文件的综合指南。

使用打印功能将邮件保存为PDF文件

使用VBA代码将选中的邮件保存为PDF文件

使用Kutools for Outlook将选中的邮件保存为PDF文件或其他文件格式

使用打印功能将邮件保存为PDF文件

如果您只想将一封邮件保存为PDF文件，打印功能可以帮助您完成。

1. 选择要保存为PDF文件的邮件。

2. 点击“文件”>“打印”。

3. 在打印机下拉菜单中，选择“Microsoft Print to PDF”，然后点击“打印”。

save an email as pdf file using print feature 1

4. 在“保存打印输出为”窗口中，选择目标文件夹，输入文件名，然后点击“保存”。

save an email as pdf file using print feature 2

使用VBA代码将选中的邮件保存为PDF文件

1. 首先，您应该选择要保存为PDF的邮件。

2. 按“Alt + F11”启动“Microsoft Visual Basic for Applications”窗口。

3. 点击“插入”>“模块”，然后复制并将以下VBA代码粘贴到模块窗口中。

save an email as pdf file using vba 1

将邮件保存为PDF文件的VBA代码

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

注意：此VBA代码已在Outlook 2007和2010中成功测试

4. 点击 save an email as pdf file using vba 2 运行代码。

5. 运行代码时会弹出一个“文件保存”对话框。选择保存文件的路径，命名文件，最后点击“保存”按钮。

save an email as pdf file using vba 3

6. 当代码运行完成后，邮件已成功转换为PDF文件。

使用Kutools for Outlook将选中的邮件保存为PDF文件或其他文件格式

安装“Kutools for Outlook”后，您可以使用其“将选中的多封邮件保存为PDF等多种格式的文件”工具快速将选中的邮件保存或导出为PDF文件/Excel文件/CSV文件或其他文件格式。

告别Outlook效率低下的问题！Kutools for Outlook让批量邮件处理更轻松——现在还提供免费的AI功能！立即下载Kutools for Outlook！！

1. 在邮件文件夹中，选择要保存为PDF的邮件，点击“Kutools”>“将选中的多封邮件保存为PDF等多种格式的文件”。

2. 在“保存邮件为其他文件”对话框中，选择放置新文件的路径，勾选“PDF 格式”，并根据需要指定“保存内容”。

save an email as pdf file using kutools for outlook 1

3. 点击“确定”。然后选中的邮件将分别保存为PDF文件。

save an email as pdf file using kutools for outlook 2

最佳 Office 办公效率工具

最新消息：Kutools for Outlook 推出免费版！

体验全新 Kutools for Outlook，超过100 种强大功能！立即点击下载！

🤖 Kutools AI ：采用先进的 AI 技术，轻松处理邮件，包括答复、总结、优化、扩展、翻译和撰写邮件。

📧 邮箱自动化：自动答复（支持 POP 和 IMAP） /计划发送邮件 /发送邮件时按规则自动抄送密送 / 自动转发（高级规则） / 自动添加问候语 / 自动将多收件人的邮件分割为单独邮件 ...

📨 邮件管理：撤回邮件 / 按主题及其他条件阻止欺诈邮件 / 删除重复邮件 / 高级搜索 / 整合文件夹 ...

📁 附件增强：批量保存 / 批量拆离 / 批量压缩 / 自动保存 / 自动拆离 / 自动压缩 ...

🌟 界面魔法：😊更多美观酷炫的表情 /重要邮件到达时提醒 / 最小化 Outlook 而非关闭 ...

👍 一键高效操作：带附件全部答复 / 防钓鱼邮件 / 🕘显示发件人时区 ...

👩🏼‍🤝‍👩🏻 联系人与日历：批量添加选中邮件中的联系人 / 分割联系人组为单独的组 / 移除生日提醒 ...

可根据您偏好选择 Kutools 使用语言——支持英语、西班牙语、德语、法语、中文及40 多种其他语言！

只需点击一下即可立即激活 Kutools for Outlook。无需等待，立即下载，提升工作效率！

kutools for outlook features1 kutools for outlook features2

🚀 一键下载——获取所有 Office 插件

强烈推荐：Kutools for Office（五合一）

一键下载五个安装包：Kutools for Excel、Outlook、Word、PowerPoint以及 Office Tab Pro。 立即点击下载！

  • ✅ 一键便利操作：一次下载全部五个安装包。
  • 🚀 随时满足 Office任务需求：需要哪个插件随时安装即可。
  • 🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint