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. 点击工具 > 引用，在引用– Project 1 对话框中，勾选 Microsoft Word 16.0 对象库 复选框。点击确定。

 

4-1. 将光标置于代码内，按下 F5 键，或点击运行按钮即可运行代码，通过 Word 立即打印无图片的邮件。如果您的电脑未连接打印机，请继续执行步骤 4.

4-2. 如果电脑未连接打印机，在按下 F5 键或点击运行按钮运行代码后，将弹出对话框，您可以选择保存 Pdf 文件的文件夹并为 Pdf 文件命名。点击保存即可。

 

现在邮件已成功导出为无图片的 PDF 文件。打开 PDF 文件，右键点击并选择打印即可打印该邮件。

提示：如果您希望批量将选定邮件保存为包含图片、抄送、正文、头部信息和 HTML 文件的 PDF（或 Word、CSV、Excel、Txt）文件，可以使用 Kutools for Outlook 的批量保存功能，仅需三步即可轻松完成。

1. 选择邮件。

2. 点击 Kutools > 批量保存。

3. 选择保存位置并勾选所需的文件类型后，点击“确定”。