Outlookのドラッグアンドドロップ：メッセージから「インターネットヘッダー」を取得する方法

Question

よくある迷惑メール/ウイルスフィルタの後であっても、よく望ましくないメッセージが受信されます。

2次的な壁として、疑わしいメッセージのプロパティ（「インターネットヘッダー」）を確認して、実際の起源を確認することをお勧めします。技術者以外の人たちにとって、この行動は容易ではありません。

私はそれにメッセージをドラッグして、IPアドレスと元を特定のヘッダを解析するために、簡単なアプリケーションを書いた：メッセージはあなたのお母さんからのものであれば、明らかに、あなたは彼女が中国ではありません知っている...

方法メッセージから「インターネットヘッダー」を取得できますか？そこに隠された財産はありますか？

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 

[本文]や[差出人]などのデータを取得するには問題ありませんが、[インターネットヘッダー]は公開されません。

Answer 1

あなたはPR_TRANSPORT_MESSAGE_HEADERS MAPIプロパティを読み込む必要があります。

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