☰

无需打开邮件即可查看电子邮件标题

tag-icon • tag-icon microsoft-outlook
无需打开邮件即可查看电子邮件标题

我想从文件夹中的消息列表中查看电子邮件标题，而无需先打开消息。

这可能吗？

答案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 浏览器显示为邮件或文本文件。

相关内容