Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How do I use Redemption?
Message
De
30/10/2002 15:17:16
Cindy Winegarden
Duke University Medical Center
Durham, Caroline du Nord, États-Unis
 
 
À
28/10/2002 06:23:45
Alan Harris-Reid
Baseline Data Services
Devon, Royaume Uni
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
00715963
Message ID:
00717079
Vues:
19
>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()
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform