security message when trying to display body of Mail-message!

[pmevertsen]

Hi,

I am trying to display the body of a mail message (HTML Body), but i'
getting the security message from outlook. I tried to use the body of
SafeMailItem, but the body is Empty (Why??). I tried to use the body o
a SafeMailItem.item, but i'm getting the security message from outloo
again.

The code looks like this:

Private Sub Command1_Click()
Dim oApp As Object
Dim SafeItem As Redemption.SafeMailItem
Dim myForward As MailItem

If oApp Is Nothing Then
On Error Resume Next
Set oApp = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then _
Set oApp = CreateObject("Outlook.Application")
End If

Set objExplorer = oApp.ActiveExplorer
If objExplorer.Selection.Count > 0 Then
Set SafeItem = New SafeMailItem
Set myForward = objExplorer.Selection.Item(1).Forward
myForward.To = Text1.Text

MsgBox myForward.Body '!Is NOT Empty

SafeItem.Item = myForward
With SafeItem
varOriginalBody = .Body 'Is Empty!!!!
.Body = "ADDASSPAM" & vbCr & varOriginalBody
.Send
End With

End If
End Sub

Can anybody help me?

Pasca