☰

Outlook 2013：如何在阅读窗格中显示邮件标题？

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2013
Outlook 2013：如何在阅读窗格中显示邮件标题？

使用 Outlook 2013，我希望能够查看我在阅读窗格中预览的消息的所有标头字段（RFC5322，而不是 Outlook 所称的标头）。

是否有设置、选项或第三方插件可以做到这一点，或者是否有至少可以提供右键菜单的东西？

编辑：我不需要整个原始消息，只需要标题。

答案1

如何查看阅读窗格中预览的邮件的所有标题字段？

以下步骤将为您进行设置。

警告

  • PST 文件大小将会增加，因为 Outlook 除了存储邮件内容外，还会存储邮件源
  • 这意味着未来的电子邮件将占用大约两倍的空间。

在 Outlook 中提供完整的邮件源

要设置 Outlook，以便您可以查看电子邮件的完整来源：

  • 按 Windows-R
  • 输入“regedit”。
  • 按 Enter。
  • 对于 Outlook 2016：
    • 转到 HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Options\Mail。

  • 对于 Outlook 2013：

    • 转到 HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Outlook\Options\Mail。

  • 对于 Outlook 2010：

    • 转到 HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Outlook\Options\Mail。
  • 对于 Outlook 2007：
    • 转到 HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Options\Mail。
  • 对于 Outlook 2003
    • 转到 HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Options\Mail。
  • 从菜单中选择编辑 | 新建 | DWord。
    • 选择具有 32 位 Office 的 DWORD（32 位）值。
    • 对 64 位 Office 使用 DWORD（64 位）值（不太可能）。
  • 输入“SaveAllMIMENotJustHeaders”。
  • 按 Enter。
  • 双击新创建的 SaveAllMIMENotJustHeaders 值。
  • 输入“1”。
  • 单击“确定”。
  • 关闭注册表编辑器。
  • 如果 Outlook 已运行，请重新启动它。

查看 Outlook 中邮件的完整来源

现在，您可以检索新检索到的 POP 消息的来源（编辑 SaveAllMIMENotJustHeaders 值不会恢复 Outlook 中已有电子邮件的完整消息源）：

  • 在自己的窗口中打开所需的消息。
  • 双击该电子邮件。
  • 单击文件。
  • 确保信息类别已打开。
  • 现在单击“属性”。
  • 在 Internet 标题下查找电子邮件的来源：。
  • 单击“关闭”。

来源如何在 Outlook 中查看完整的邮件源

答案2

以下宏在新邮件消息窗口中显示标题（由于大小限制，不能使用 msgbox）：

Sub ViewInternetHeader()
    Dim olItem As Outlook.MailItem, olMsg As Outlook.MailItem
    Dim strheader As String

    For Each olItem In Application.ActiveExplorer.Selection
        strheader = GetInetHeaders(olItem)

        Set olMsg = Application.CreateItem(olMailItem)
        With olMsg 
            .BodyFormat = olFormatPlain
            .Body = strheader
            .Display
        End With
    Next
    Set olMsg = Nothing
End Sub

Function GetInetHeaders(olkMsg As Outlook.MailItem) As String
    ' Purpose: Returns the internet headers of a message.'
    ' Written: 4/28/2009'
    ' Author:  BlueDevilFan'
    ' //techniclee.wordpress.com/
    ' Outlook: 2007'
    Const PR_TRANSPORT_MESSAGE_HEADERS = "http://schemas.microsoft.com/mapi/proptag/0x007D001E"
    Dim olkPA As Outlook.PropertyAccessor
    Set olkPA = olkMsg.PropertyAccessor
    GetInetHeaders = olkPA.GetProperty(PR_TRANSPORT_MESSAGE_HEADERS)
    Set olkPA = Nothing
End Function

来源：https://www.slipstick.com/developer/code-samples/outlooks-internet-headers/

相关内容