在Outlook中將郵件保存為PDF文件：逐步指南

將重要郵件保存為PDF文件對於存檔、共享或法律文檔目的非常有益。 Microsoft Outlook沒有直接將郵件保存為PDF的選項，但您可以使用幾種方法來實現這一目標。 以下是關於如何在Outlook中將郵件保存為PDF文件的綜合指南。

使用列印功能將郵件保存為PDF文件

使用VBA代碼將選中的郵件保存為PDF文件

使用Kutools for Outlook將選中的郵件保存為PDF文件或其他文件格式

使用列印功能將郵件保存為PDF文件

如果您只想將一封郵件保存為PDF文件，列印功能可以幫助您。

1. 選擇您要保存為PDF文件的郵件。

2. 點擊「文件」>「列印」。

3. 在打印機下拉菜單中，選擇「Microsoft Print to PDF」，然後點擊「列印」。

4. 在「保存打印輸出為」窗口中，選擇目標文件夾，輸入檔案名稱，然後點擊「保存」。

使用VBA代碼將選中的郵件保存為PDF文件

1. 首先，您應該選擇要保存為PDF的郵件。

2. 按「Alt + F11」啟動「Microsoft Visual Basic for Applications」窗口。

3. 點擊「插入」>「模塊」，然後複製並將以下VBA代碼粘貼到模塊窗口中。

將郵件保存為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. 點擊 運行代碼。

5. 當代碼運行時，會彈出一個「文件保存」對話框。選擇保存文件的路徑，命名文件，最後點擊「保存」按鈕。

6. 當代碼完成運行後，郵件已成功轉換為PDF文件。

使用Kutools for Outlook將選中的郵件保存為PDF文件或其他文件格式

安裝「Kutools for Outlook」後，您可以使用其「保存多封Email為PDF等類型」工具快速保存或導出選中的郵件為PDF文件/Excel文件/CSV文件或其他文件格式。

1. 在郵件文件夾中，選擇要保存為PDF的消息，點擊「Kutools」>「保存多封Email為PDF等類型」。

2. 在「保存郵件為其他文件」對話框中，選擇放置新文件的路徑，勾選「PDF 格式」，並根據需要指定「保存內容」。

3. 點擊「確定」。然後選中的郵件已分別保存為PDF文件。

---

最佳辦公室生產力工具

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

體驗全新 Kutools for Outlook，超過100項精彩功能！立即下載！

🤖 Kutools AI ：採用先進的AI技術輕鬆處理郵件，包括答覆、摘要、優化、擴充、翻譯及撰寫郵件。

📧 郵件自動化：自動回覆（支援POP及IMAP） / 排程發送郵件 / 發送郵件時根據規則自動抄送密送 / 自動轉發（高級規則） / 自動添加問候語 / 自動分割多收件人郵件為個別郵件 ...

📨 郵件管理：撤回郵件 / 根據主題等方式阻止詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾 ...

📁 附件專業工具：批量保存 / 批量拆離 / 批量壓縮 / 自動保存 / 自動拆離 / 自動壓縮 ...

🌟 介面魔法：😊更多精美與酷炫表情符號 /重要郵件來臨時提醒 / 最小化 Outlook 而非關閉 ...

👍 一鍵便利：帶附件全部答復 / 防詐騙郵件 / 🕘顯示發件人時區 ...

👩🏼‍🤝‍👩🏻 聯絡人與日曆：從選中郵件批量添加聯絡人 / 分割聯絡人組為個別組 / 移除生日提醒 ...

以您偏好的語言使用 Kutools，支援英語、西班牙語、德語、法語、中文及超過40種其他語言！

只需點擊一次，即可立即解鎖 Kutools for Outlook。別等了，現在下載提升您的工作效率！

Kutools for Outlook 功能清單立即下載前往購買

🚀 一鍵下載 — 獲取全部 Office 插件

強力推薦：Kutools for Office（5合1）

一鍵下載五個安裝程式，包括 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

套件介紹 ⬇下載套件 💳 購買套件