Accessing attachments which are blocked by outlook?

[MatrimCauthon]

Hello,

it seems perfoming actions like:
http://www.slovaktech.com/code_samples.htm#StripAttachments
doesn't effect attachments which were blocked by outlook for securit
reason.

Is there a way to access these attachment all the same?

Thank you in advance,

Matrim

 

[Ken Slovak - [MVP - Outlook]]

If you look at the Attachments collection of an email message with
only 1 attachment, which is a blocked attachment, you will see that in
the Outlook object model the Attachments.Count = 0. CDO 1.21 will show
the same.

You would need to use Extended MAPI or Redemption
(www.dimsatr.com/redemption) to access the blocked attachments. In
Redemption code:

Dim safMail As Redemption.SafeMailItem
Dim oMail As Outlook.MailItem

'the open message has a blocked attachment

Set oMail = Application.ActiveInspector.CurrentItem
Debug.Print oMail.Attachments.Count 'shows 0

Set safMail = CreateObject("Redemption.SafeMailItem")
safMail.Item = oMail
Debug.Print safMail.Attachments.Count 'shows 1

 

[MatrimCauthon]

Thank you,

this looks like as it could solve my problem =