如何批量將多封電子郵件轉換為 PDF 檔案？

在 Outlook 中，「另存新檔」功能僅支援將電子郵件儲存為 HTML、TXT、MHT、MSG 與範本格式檔案。若您希望將電子郵件轉換為 PDF 檔案（或一次轉換多封郵件為多個 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 > S 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。

提示：若程式碼無法執行，可前往「信任中心」，於「巨集設定」區段中勾選「啟用所有巨集」選項，立即解決問題！