Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How do I use Redemption?
Message
From
30/10/2002 15:17:16
Cindy Winegarden
Duke University Medical Center
Durham, North Carolina, United States
 
 
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:
00717079
Views:
18
>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...

Alan,

I have also been working with Redemption. Here's code that worked for me.:
oOutlook = GETOBJECT(, "Outlook.Application")
oMailItem = oOutlook.CreateItem(0)
oSafeMailItem = CREATEOBJECT("Redemption.SafeMailItem")
oSafeMailItem.Item = oMailItem
oSafeMailItem.Subject = "This is the subject"
oSafeMailItem.Recipients.Add("cindy.winegarden@mvps.org")
lResolved = oSafeMailItem.Recipients.ResolveAll()
lSent = oSafeMailItem.Send()
Previous
Reply
Map
View

Click here to load this message in the networking platform