KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何在 Outlook 中打印不显示收件人的邮件？

作者Kelly修改日期

在 Outlook 中打印邮件时，邮件头常常显示大量收件人名单，既占空间又影响打印效果。为帮助您节省纸张并简化打印内容，本指南将教您如何通过 VBA 脚本，在 Outlook 中打印不显示收件人的邮件。

使用 VBA 打印不含收件人的邮件

使用 VBA 打印不含收件人的邮件

请按照以下步骤，利用 VBA 打印不含收件人的邮件：

1. 选中您想打印且不包含收件人的邮件，然后按下 Alt+F11，即可打开 Microsoft Visual Basic for Applications 窗口。

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 中，打印已发送邮件时通常不会显示“密送”字段。借助 Kutools for Outlook 的高级打印功能，您可以打印包含密送收件人的已发送邮件，自定义邮件头，甚至添加背景，让打印效果更显专业。

打印密送收件人

相关文章

最佳办公效率工具

体验全新 Kutools for Outlook，畅享 100+ 强大功能！立即点击下载，不容错过！

🤖KUTOOLS AI：采用先进 AI 技术，轻松处理邮件，涵盖回复、摘要、优化、扩展、翻译及撰写等功能。

📧 邮件自动化：自动答复（支持 POP 和 IMAP）/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发（高级规则）/自动添加称呼/自动将多收件人邮件拆分为单独信息……

📨 邮件管理：撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……

📁 附件增强：批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……

🌟 界面魔法：😊更多美观时尚表情/重要邮件到达时提醒您/最小化 Outlook 而不是直接关闭……

👍 一键精彩功能：带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……

👩🏼‍🤝‍👩🏻 联系人与日历：批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……

在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言！

一键解锁 Kutools for Outlook，告别等待，立即下载，让效率倍增！

kutools for outlook 功能1kutools for outlook 功能2

🚀 一键下载 — 即可获取全部 Office 加载项

强烈推荐：Kutools for Office（5 合 1）

一键下载五个安装包，即可同时获得 Kutools for Excel、Outlook、Word、PowerPoint 和 Office Tab Pro。立即点击下载！

  • ✅ 一键便捷：只需一次操作，即可下载全部五个安装包。
  • 🚀 轻松应对各类 Office 任务：随时按需安装所需插件，助您高效办公，不容错过！
  • 🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint