Help on getting email .body using redemption

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Ian Baker - 29 Jun 2004 08:40 GMT

Hi
I am using Redemption and still get the security prompt when trying to get
the body of an email message. The following code works to get the subject
but not the body:
Sub GetKinderEmails()
Dim SafeItem, oItem, SelEmail

Set SafeItem = CreateObject("Redemption.SafeMailItem")
Set oItem = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
Set SelEmail = oItem.Find("[Subject]=""Kindergarten Record""")

While TypeName(SelEmail) <> "Nothing"
Debug.Print SelEmail.Subject 'Works
Debug.Print SelEmail.Body 'Starts Security Dialogue
Debug.Print "-----------------------------"
Set SelEmail = oItem.FindNext
Wend

End Sub

Any help is appreciated

Signature

Regards
Ian
If a=ian, b=jackaroo, c=net and d=au then
the answer is a@b.c.d
-

Reply to this Message

Sue Mosher [MVP-Outlook] - 29 Jun 2004 13:24 GMT

You're not using your SafeItem at all. Try:

SafeItem.Item = SelEmail
MsgBox SafeItem.Body

Signature

Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

> Hi
> I am using Redemption and still get the security prompt when trying to get
[quoted text clipped - 17 lines]
>
> Any help is appreciated

Reply to this Message

Ian Baker - 29 Jun 2004 23:42 GMT

Thanks Sue - I'm not fully familiar with Redemption yet but what a good
product

Signature

Regards
Ian Baker
(If a=ian, b=jackaroo, c=net, d=au then me= a@b.c.d)
-

> You're not using your SafeItem at all. Try:
>
[quoted text clipped - 22 lines]
> >
> > Any help is appreciated

Reply to this Message