Outlook：如何打印没有图像的电子邮件

作者：孙最后修改时间：2022-04-29

通常在 Outlook 中打印电子邮件，图像也会被打印。但有时，您只想打印没有图像的文本，但是，在 Outlook 中，没有可以支持这项工作的内置功能。本教程提供了一个 VBA 代码，该代码将立即通过 Word 打印无图像电子邮件。或者当您的计算机没有打印机时，VBA 代码会先将电子邮件导出为没有图像的 PDF，然后您可以在打印机可用后打印 PDF。

VBA打印没有图像的电子邮件

Office 选项卡 - 在 Microsoft Office 中启用选项卡式编辑和浏览，让工作变得轻而易举

阅读更多下载...

Kutools for Outlook - 通过 100 多个高级功能增强 Outlook，实现卓越效率

自动发送电子邮件自动CC / BCC, 自动转发按规则；发送自动回复（不在办公室）无需交换服务器...
获取类似提醒 BCC警告当您在密件抄送列表中回复所有内容时，以及缺少附件时提醒对于忘记的附件...
提高电子邮件效率回复（全部）并附上附件, 自动添加问候语或日期和时间到签名或主题中, 回复多封电子邮件...
简化电子邮件发送撤回电子邮件, 附件工具（压缩全部、自动保存全部...）、删除重复及快速报告...

使用这些高级功能增强您的 Outlook 2021 - 2010 或 Outlook 365。享受全面的 60 天免费试用并提升您的电子邮件体验！

阅读更多下载...

VBA打印没有图像的电子邮件

1. 选择您只想打印文本的电子邮件，然后按其他 + F11 启用键 Microsoft Visual Basic应用程序 窗口。

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

doc 删除重复的日历项目 1