Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How do I use Redemption?
Message
From
28/10/2002 06:34:43
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivia
 
 
To
28/10/2002 06:23:45
Alan Harris-Reid
Baseline Data Services
Devon, United Kingdom
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00715963
Message ID:
00715964
Views:
18
Perhaps FAQ #8155 can help you.

>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
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform