Outlook：如何列印不含圖片的郵件

一般在 Outlook 中列印郵件時，圖片會一併列印出來。但有時您可能只想列印純文字內容，不包含任何圖片，而 Outlook 本身並未提供此功能。本教學提供一段 VBA 程式碼，可立即透過 Word 列印不含圖片的郵件；若您的電腦未連接印表機，該 VBA 程式碼會先將郵件匯出為不含圖片的 PDF 檔案，待印表機可用時再進行列印。

使用 VBA 列印不含圖片的郵件

---

使用 VBA 列印不含圖片的郵件

1. 選取一封您僅想列印文字內容的郵件，然後按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 按一下插入> 模組，建立新的空白模組，然後將下方程式碼複製並貼上至該模組中。

VBA：匯出不含圖片的郵件

Sub PrintWithoutImages()
'UpdatebyExtendoffice20220414
  Dim xMail As Outlook.MailItem
  Dim xFileName As String, xSubject As String
  Dim xWord As Word.Application
  Dim xWordDoc As Word.Document
  Dim xInlineShape As Word.InlineShape
  Dim InvalidArr
  On Error Resume Next
  If Application.ActiveWindow.Class = olInspector Then
    Set xMail = ActiveInspector.CurrentItem
  ElseIf Application.ActiveWindow.Class = olExplorer Then
    Set xMail = ActiveExplorer.Selection.Item(1)
  End If
  
  InvalidArr = Array("/", "\", "*", ":", Chr(34), "?", "<", ">", "|")
  xSubject = xMail.Subject
  For i = 0 To UBound(InvalidArr)
    xSubject = VBA.Replace(xSubject, InvalidArr(i), "")
  Next i
  
  xFileName = Environ("Temp") & "\" & xSubject & ".doc"
Debug.Print xFileName
  xMail.SaveAs xFileName, olDoc
  Set xWord = CreateObject("Word.Application")
  xWord.Visible = False
  Set xWordDoc = xWord.Documents.Open(xFileName)
  For Each xInlineShape In xWordDoc.InlineShapes
      xInlineShape.Delete
  Next
  xWordDoc.PrintOut
  xWordDoc.Close
  xWord.Quit
  Kill xFileName
End Sub

3. 按一下工具 > 參考設定，開啟參考設定– 專案 1 對話方塊，勾選 Microsoft Word 16.0 物件庫 核取方塊，再按一下確定。

 

4-1. 將游標置於程式碼內，按下 F5 鍵或點擊執行按鈕即可執行程式碼，隨即透過 Word 立即列印不含圖片的郵件。若您的電腦未連接印表機，請依照步驟 4 操作。

4-2. 當您的電腦未連接印表機時，在按下 F5 鍵或按一下執行按鈕以執行程式碼後，系統將彈出對話方塊，讓您選擇儲存 PDF 檔案的資料夾並為其命名。請按一下儲存。

 

現在郵件已匯出為不含圖片的 PDF。開啟 PDF 檔案後，請按一下滑鼠右鍵並選取列印以列印郵件。

提示：如果您想將所選郵件批次儲存為 PDF（或 Word、CSV、Excel、TXT、HTML 檔案），並完整保留圖片、標頭、內文、副本收件人等內容，只需使用批次儲存功能，3 個步驟輕鬆完成！Kutools for Outlook

1. 選取郵件。

2. 按一下 Kutools＞ 批次儲存。

3. 選擇儲存位置，勾選您需要的檔案類型，然後點擊「確定」。