如果要將 Outlook 電子郵件的一部分而不是整個電子郵件導出為 PDF 文件，你可以閱讀這篇文章。 在這裡，我們將指導您使用 VBA 代碼來實現它。
從我之前的文章——“如何將Outlook電子郵件另存為 PDF 文件“和”如何將多個 Outlook 電子郵件快速導出為單個 PDF 文件”，您可以學習將整個電子郵件導出為 PDF 文件。 然而，有時，您想要的是將電子郵件的一部分導出為 PDF 文件。 此時，您可以使用以下 VBA 代碼來實現它。 如果你完全不知道如何使用VBA，可以參考這篇文章——》如何在Outlook中運行VBA代碼同時。
將電子郵件的一部分導出為 PDF 文件
- 首先，啟動 Outlook 程式。
- 然後，通過“Alt + F11”快捷鍵訪問 Outlook VBA 編輯器。
- 接下來，在這個新窗口中，打開一個未使用的模塊。
- 隨後，將以下VBA代碼複製並粘貼到該模塊中。
Sub ExportSelectionAsPDF()
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.Document
Dim objDocSelection As Word.Selection
Dim objWordApp As Word.Application
Dim objTempDocument As Word.Document
Dim strPDF As String
'Get the currently opened email
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
If Not objMail Is Nothing Then
'Copy the current selection
Set objMailDocument = objMail.GetInspector.WordEditor
Set objDocSelection = objMailDocument.Application.Selection
objDocSelection.Copy
'Paste the selection into a new Word document
Set objWordApp = CreateObject("Word.Application")
Set objTempDocument = objWordApp.Documents.Add
objWordApp.Visible = True
objTempDocument.Activate
objWordApp.Selection.EndKey wdStory
objWordApp.Selection.PasteAndFormat wdPasteDefault
'Export the document as a PDF file
'Change the path as per your needs
strPDF = "E:\" & objMail.Subject & " (Selection).pdf"
objTempDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF
objTempDocument.Close False
objWordApp.Quit
End If
End Sub
- 之後，您應該將新宏添加到消息窗口的快速訪問工具欄。
- 最後，您可以嘗試一下：
- 首先，打開一封電子郵件。
- 然後，選擇要導出的內容。
- 接下來，單擊快速訪問工具欄中的宏按鈕。
- 宏將立即運行。
- 宏完成後，您可以前往預定義的本地文件夾，在那裡您將看到一個新的 PDF 文件。
- 打開它，你會看到它看起來像下面的截圖：
展望受損後的有效措施
儘管擁有眾多出色的功能，Outlook 仍然無法倖免於難。 實際上，由於各種因素，例如病毒，惡意軟件，軟件故障和硬件問題等，它很容易損壞。 在這種情況下，必須採取措施來挽救損壞的 Outlook 數據，包括啟動 掃描儀 要修復文件，請檢查最近的備份，並藉助功能強大且可靠的 PST 修復工具，例如 DataNumen Outlook Repair.
作者簡介：
Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 維修MDF 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM