I have been successfully using Redemption to bypass the Outlook Security Warnings for some time now, until I recently decided to capture the body of a mailitem and save it elsewhere.

Direct access of the mailitem.body property, draws the Outlook Security Warning so I turned to Redemption but am coming up empty.

The example below sets the Redemption safemailitem.body value then tries to read it back. I get nothing back. If I try to read it from the mailitem.body, I do get it back...along with the dreaded Warning Message.

Seems simple enough, so I obviously am overlooking something. Can anyone help me through this one?

Thanks in advance.

freedbill

Example:
Dim oMailItem As Outlook.MailItem
Dim oNameSpace As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder
Dim oSafeInspector As Object
Dim oSafeMailItem As Object



Set mvarOutlook = CreateObject("Outlook.Application")
Set oNameSpace = mvarOutlook.GetNamespace("MAPI")
oNameSpace.Logon "Standard"
Set oFolder = oNameSpace.GetDefaultFolder(olFolderOutbox)
Set oMailItem = oFolder.Items.Add
Set oSafeMailItem = CreateObject("redemption.safemailitem")
Set oSafeMailItem.Item = oMailItem
oSafeMailItem.To = "[email protected]"
oSafeMailItem.Subject = "Testing Redemption"
oSafeMailItem.Body = "Body of Redemption Test"
MsgBox oSafeMailItem.Body 'Returns nothing
MsgBox oMailItem.Body 'Returns the body but Causes Outlook Security Warning