Retrieve message body in Outlook

[NinjaGeek]

I'm wondering if anyone can help with trying to retrieve the body of a message in Outlook. Currently I have this:

$oMail = ObjGet("","Outlook.Application")
If $oMail.ActiveExplorer.Selection.Count = 1 Then
    $text = $oMail.ActiveExplorer.Selection.Item(1).Body
    sleep(500)
    MsgBox(0,"",$text)
EndIf

which works, but it comes up with a security message before it allows access to the body of the email (supposedly because the body of emails tend to have contact information, this seems like a weak security idea in the first place). Anyone have any ideas of a workaround to get access to the body of the email without the security message? I'm trying to parse out order emails to be able to automatically input them in my system.

Thanks in advance for any help!

[water]

Did you have a look at the Outlook UDF? I think it provides the functions you need.