I am currently sending emails from VFP via. Outlook. Because I am using XP I am getting the (in)famous error message "A program is trying to automatically send e-mail on your behalf. Do you want to allow this?..." To get around this I have downloaded and installed Redemption, but the sample code looks like VB, which I am not very familiar with.

Can anyone help me out and tell me what changes I need to make to the code below in order to get Redemption working properly?


* -----------------------------
lcHTMLString = my message formatted as html

lcHTMLString = lcHTMLString+ HTML body tag code
* can't show directly here as tags would be interperated as html!


oOutlook = CREATOBJECT('Outlook.application')
oItem = oOutlook.createitem(0) && create new mail message

WITH oItem
.recipients.add(emailaddress)
.subject = "MySubject"
.HTMLBody = lcHTMLString
.save()
.send()
ENDWITH
* -----------------------------


TIA,
Alan Harris-Reid