Question

即使在任何好的垃圾邮件/病毒过滤器之后，也会收到经常不受欢迎的邮件。

作为辅助墙，我们建议用户检查可疑邮件属性（＆＃39;互联网标题＆＃39;）以验证真实来源。对于非技术人员来说，这个动作并不容易。

我编写了一个简单的应用程序来将消息拖入其中并分析查找IP地址和来源的标题：显然，如果消息来自您的母亲，您知道她不在中国......

我们如何才能获得互联网标题＆＃39;从消息？那里有隐藏的财产吗？

Private Sub MainForm_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop
    Dim myOlApp As New Outlook.Application
    Dim myExp As Outlook.Explorer = myOlApp.ActiveExplorer
    Dim myMailItem As Outlook.MailItem = DirectCast(myExp.Selection.Item(1), Outlook.MailItem)
    Dim x = myMailItem.Body
    myExp = Nothing
    myMailItem = Nothing
    myOlApp = Nothing
End Sub

这样可以很好地获取正文和其他数据，例如To，From等，但是没有任何属性可以公开＆＃39; Internet Headers＆＃39;。

Answer 1

您需要阅读PR_TRANSPORT_MESSAGE_HEADERS MAPI属性：

Dim headers As String = myMailItem.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001F")

Outlook拖放：如何获取互联网标题＆＃39;来自消息

1 个答案: