仅打印 Outlook 电子邮件的普通或 Internet 标头的 2 种简单方法

展望解决方案 2025 年 9 月 29 日
立即分享：

有时，您只需要打印 Outlook 电子邮件的普通邮件头或 Internet 邮件头。本文将为您介绍两种快速简便的方法。

从上一篇文章 - “打印没有标题和用户名的 Outlook 电子邮件的 2 个技巧”，您可以学习仅打印邮件正文的简单方法。 但是，有时，您可能只想打印电子邮件的普通或互联网标题，即电子邮件的发件人、收件人和其他信息。 那么，接下来，我们将教大家2种获取方式。

方法一：手动打印

打印互联网标题

  1. 首先，双击该电子邮件以在消息窗口中打开它。
  2. 然后，转到“文件”菜单。
  3. 在“信息”选项卡上，单击“属性”按钮。邮件属性
  4. 在“属性”窗口中，单击进入“Internet 标头”框。
  5. 接下来，按“Ctrl + A”选择全部，然后按“Ctrl + C”复制完整标题。复制 Internet 标头
  6. 稍后，创建一个电子邮件新邮件并按“Ctrl + V”将标题粘贴到正文中。粘贴 Internet 标头
  7. 最后，转到“文件”>“打印”以打印新邮件。

打印普通标题

  1. 首先，选择或打开源电子邮件。
  2. 然后，单击“转发”按钮。
  3. 在弹出的转发邮件中，选中并去掉原邮件的邮件正文，只留下邮件头，如下图。删除原始邮件正文以仅保留标题
  4. 最后，像往常一样打印当前的转发邮件。

方法二：用VBA打印

打印互联网标题

  1. 首先，打开或选择您想要查看的邮件。
  2. 然后，通过“Alt + F11”启动 Outlook VBA 编辑器。
  3. 接下来，将以下代码放入模块中。
Sub PrintFullHeaders()
    Dim objMail As Outlook.MailItem
    Dim objPropertyAccessor As Outlook.PropertyAccessor
    Dim strHeader As String
    Dim objTempMail As Outlook.MailItem
 
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    'Get full headers
    Set objPropertyAccessor = objMail.PropertyAccessor
    strHeader = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001E")
 
    'Print headers in temp mail
    Set objTempMail = Outlook.Application.CreateItem(olMailItem)
    objTempMail.HTMLBody = "<HTML><BODY>" & strHeader & "</BODY></HTML>"
    objTempMail.PrintOut
End Sub

VBA 代码 - 打印 Internet 标头

  1. 最后，单击工具栏中的“运行”图标。
  2. 立即打印出电子邮件的 Internet 标头。印刷互联网标题

打印普通标题

  1. 仍然在 VBA 编辑器中，将下面的代码复制到一个模块中。
Sub PrintShortHeaders()
    Dim objMail As Outlook.MailItem
    Dim objTempMail As Outlook.MailItem
 
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    Set objTempMail = objMail.Copy
    'Remove the body, leave headers only
    objTempMail.Body = ""
    objTempMail.PrintOut
End Sub

VBA 代码 - 打印普通标题

  1. 之后，运行这个宏。
  2. 立即，将打印电子邮件的正常标题。打印普通页眉

警惕未知邮件

邮件头可以泄露电子邮件的许多信息，包括 IP 地址。如果您想判断一封电子邮件是否可疑，就必须检查邮件头。说实话，不建议信任来自未知发件人的电子邮件，因为它们大多是垃圾邮件，甚至可能携带恶意宏。它们可以轻易攻击您的 Outlook 文件。如果 Outlook 文件已损坏，您必须尝试修复。 Outlook修复. 除非您求助于专业且强大的工具，否则这很棘手，例如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 SQL Server 腐败 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。