如何在Outlook中没有收件人的情况下打印电子邮件？

例如，您要在Outlook中打印电子邮件。但是，电子邮件收件人太多了，因此在邮件标题中占用了大量空间。为了节省纸张，此方法将引入VBA脚本以在Outlook中没有收件人的情况下打印电子邮件。

在Outlook中与密件抄送收件人轻松打印已发送的电子邮件

如您所知，在Outlook中打印已发送的电子邮件时，“密件抄送”字段不会被打印出来。但是，梦幻般 进阶列印 Kutools for Outlook 的功能，您可以轻松打印发送的电子邮件，没有标题，没有用户名，包括背景，并带有密件抄送收件人。

享受 60 天的免费试用，没有任何限制 – 单击此处激活您的试用！

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

阅读更多下载...

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

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

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

阅读更多下载...

使用VBA打印没有收件人的电子邮件

请按照以下步骤将VBA应用于打印选定的电子邮件，而忽略Outlook中的收件人。

1.选择要打印的没有收件人的电子邮件，然后按其他 + F11 键以打开“ Microsoft Visual Basic应用程序”窗口。

2。点击插页 > 模块，然后将以下VBA代码粘贴到打开的“模块”窗口中。

VBA：打印没有收件人的电子邮件

Public Sub PrintWithoutRecipient()
Dim oItem As Outlook.MailItem
Dim i As Long

For i = 1 To Application.ActiveExplorer.Selection.Count
Set oItem = Application.ActiveExplorer.Selection.Item(i)
oItem.To = ""
oItem.CC = ""
oItem.PrintOut
oItem.Close olDiscard
Set oItem = Nothing
Next
End Sub

3。按 F5 键或单击运行按钮以运行此VBA。

现在，选定的电子邮件已打印出来，没有收件人。

请注意： 此VBA将使用您在Outlook中配置的默认打印机和打印设置来打印电子邮件。

在Outlook中按收件人姓名搜索电子邮件

计算Outlook中“收件人”，“抄送”和“密件抄送”字段中的收件人数

在Outlook中的已发送电子邮件中打印密件抄送收件人