![无需打开邮件即可查看电子邮件标题](https://linux22.com/image/1474896/%E6%97%A0%E9%9C%80%E6%89%93%E5%BC%80%E9%82%AE%E4%BB%B6%E5%8D%B3%E5%8F%AF%E6%9F%A5%E7%9C%8B%E7%94%B5%E5%AD%90%E9%82%AE%E4%BB%B6%E6%A0%87%E9%A2%98.png)
我想从文件夹中的消息列表中查看电子邮件标题,而无需先打开消息。
这可能吗?
答案1
我个人将按钮放在 Outlook 快速访问工具栏 (QAT) 上。为此,只需单击 Outlook 窗口左上角的下拉菜单并选择“更多命令...”。在“自定义快速访问工具栏”对话框中,在“发件人”列表中选择“所有命令”,然后将“消息选项...”按钮添加到右侧列表。单击“确定”,即可完成。
现在您可以在列表中选择所需的消息,然后单击 QAT 上的这个新按钮来显示“Internet 标题”。
答案2
定义一个按钮来调用下面的VBA宏来显示当前选定的邮件的标题:
Public Sub mailHeaderView()
Dim exp As Explorer
Dim sel As Selection
Dim please As String
Dim s As String
Dim mi As Outlook.mailItem
Dim TransportMessageHeadersSchema As String
' https://social.msdn.microsoft.com/Forums/vstudio/en-US/e9342b09-02ba-441f-a824-5186bd9835a9/mailitemread-event?forum=outlookdev
TransportMessageHeadersSchema = "http://schemas.microsoft.com/mapi/proptag/0x007D001E"
Set exp = Application.ActiveExplorer
If exp Is Nothing Then
MsgBox "No Explorer!"
Else
Set sel = exp.Selection
please = " Please select one Mail!"
If sel Is Nothing Then
MsgBox "No Selection!" & please
ElseIf sel.count > 1 Then
MsgBox "Multiple selection!" & please
ElseIf sel.count < 1 Then
MsgBox "No Selection!" & please
ElseIf sel.item(1).Class <> olMail Then
MsgBox "No Mail selected!" & please
Else
Set mi = sel.item(1)
If mi Is Nothing Then
MsgBox "No mail selected!"
Else
s = mi.PropertyAccessor.GetProperty(TransportMessageHeadersSchema)
MsgBox s, vbInformation, "Mail Header"
End If
End If
End If
End Sub
描述了类似的宏这里。无需打开MsgBox
,邮件头即可通过文本编辑器或 Web 浏览器显示为邮件或文本文件。