outlook VBAについて

質問

outlookのVBAで Application_NewMailEx で受信メールを拾って
メールヘッダーにある「X-MS-Has-Attach」の値で処理を実行したいのです。
myNamespace.GetItemFromIDでsubjectなどは見れましたが「X-MS-Has-Attach」の値を見るためにはどうしたらいいのでしょうか？

回答No.2

m3_maki

例として
Set objMail = myNamespace.GetItemFromID(EntryIDCollection)
タイトル= objMail.Subject

のようなコードで
その Subject を取得している、ということですね。

ついでにそこで

添付ファイル有 = (objMail.Attachments.Count > 0 )

のように取得するのはどうでしょうか？

回答No.1

kkkkkm

選択されているメールのヘッダーからX-MS-Has-Attachの値を取り出します。
X-MS-Has-AttachのあるメールがないのでX-MS-Has-Attachの記述のあたりは実際に実行して試してください。

URLのような記述がありますがそこにアクセスするわけではありません。

Sub Test()
Dim mHeader As String, mHArr As Variant, mHs As Variant

mHeader = ActiveExplorer.Selection.Item(1).PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001E")
mHArr = Split(mHeader, vbCrLf)
For Each mHs In mHArr
If InStr(mHs, "X-MS-Has-Attach:") = 1 Then
Debug.Print Trim(Replace(mHs, "X-MS-Has-Attach:", ""))
End If
Next
End Sub