Note: The other languages of the website are Google-translated. Back to English

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

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

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

Office选项卡-在Office中启用选项卡式编辑和浏览,并使工作更加容易...
Kutools for Outlook-为Microsoft Outlook带来100种强大的高级功能
  • 自动CC / BCC 根据规则发送电子邮件; 自动转发 按规则发送多封电子邮件; 自动回复 没有交换服务器,还有更多自动功能...
  • BCC警告 -如果您的邮件地址在密件抄送列表中,则当您尝试全部答复时显示消息; 缺少附件时提醒,还有更多提醒功能...
  • 回复(全部)带有所有附件 在邮件对话中; 一次回复许多电子邮件; 自动添加问候语 回复时自动将日期和时间添加到主题中...
  • 附件工具:自动分离,全部压缩,重命名,自动保存所有... 快速报告,计算所选邮件, 删除重复的邮件和联系人...
  • 超过100种高级功能将 解决您的大部分问题 在Outlook 2010-2019和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

3。 点击 鑫安工具 > 參考資料 启用 參考資料 – 项目 1 对话框,打勾 Microsoft Word 16.0对象库 复选框。 请点击 OK.

 doc 删除重复的日历项目 1

doc 删除重复的日历项目 1

4-1。 将光标保持在代码内,然后按 F5 键或单击 运行 按钮运行代码,那么没有图像的电子邮件将立即通过 Word 打印。 但如果您的计算机没有打印机,请按照步骤 4 操作。

4-2。 当您的计算机没有打印机时,按 F5 键或单击 运行 按钮运行代码,弹出一个对话框,选择一个文件夹来放置 PDF 文件,并命名 PDF 文件。 点击 优惠.

 doc 删除重复的日历项目 1

现在电子邮件已导出为没有图像的 PDF。 打开PDF文件,右键选择 打印 打印电子邮件。

doc 删除重复的日历项目 1

doc 删除重复的日历项目 1

小技巧:如果您想将选定的电子邮件批量保存为 PDF(或 Word、CSV、Excel、Txt、HTML 文件),其中包含图像、标题、正文、抄送、 批量保存 的特点 Kutools for Outlook 可以帮助你,只需要3个步骤。

1. 选择电子邮件。

2。 点击 库工具 > 批量保存.

doc 删除重复的日历项目 1

3. 选择一个位置并检查您想要的文件格式,单击确定。

doc 删除重复的日历项目 1

doc 删除重复的日历项目 1

立即获得 Kutools for Outlook 的 30 天免费试用.


Kutools for Outlook-为Outlook带来100个高级功能,并使工作更加轻松!

  • 自动CC / BCC 根据规则发送电子邮件; 自动转发 自定义多封电子邮件; 自动回复 没有交换服务器,还有更多自动功能...
  • BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒,还有更多提醒功能...
  • 在邮件对话中回复(全部)带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中...
  • 附件工具:管理所有邮件中的所有附件, 自动分离, 全部压缩,全部重命名,全部保存...快速报告, 计算选定的邮件...
  • 强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明,更快和更好。
拍摄kutools前景kutools选项卡1180x121
拍摄kutools前景kutools加标签1180x121
 
按评论排序
注释 (0)
还没有评分。 成为第一位评论!
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0  产品特性
建议地点