Hi

I am saving attachents from incomming email. This works OK.
The problem is that it also saved hidden attachemnts like logo's etc.
I have found a similiar problem on this newsgroup, but I don't quite
manage to make it work.
I have startet coding, and made the stuff below. The "realAttc" boolean
variable always return true, no
matter what email I examine.
I have inserted the following values, but is this correct:?
PR_ATTACHMENT_HIDDEN =
sItem.GetIDsFromNames("{00062008-0000-0000-C000-000000000046}",
&H7FFE000B) Or PT_BOOLEAN

For me it seems like it just tests the whole email item, and not every
single attachment.?
As you can see I am bit confused, so any code snippet, or hint would be
appriciated.


Set sItem = CreateObject("Redemption.SafeMailItem")
If sItem Is Nothing Then
AttachedFiles = 999
Else
sItem.Item = myEmailItem
PR_ATTACHMENT_HIDDEN =
sItem.GetIDsFromNames("{00062008-0000-0000-C000-000000000046}",
&H7FFE000B) Or PT_BOOLEAN
realAttc = sItem.Fields(PR_ATTACHMENT_HIDDEN)
End If

Kind regards
Karsten Markmann