![Outlook 2013:如何在阅读窗格中显示邮件标题?](https://linux22.com/image/1547916/Outlook%202013%EF%BC%9A%E5%A6%82%E4%BD%95%E5%9C%A8%E9%98%85%E8%AF%BB%E7%AA%97%E6%A0%BC%E4%B8%AD%E6%98%BE%E7%A4%BA%E9%82%AE%E4%BB%B6%E6%A0%87%E9%A2%98%EF%BC%9F.png)
使用 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 标题下查找电子邮件的来源:。
- 单击“关闭”。
答案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/