Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Accessing Email Programs
Message
 
À
21/03/2003 11:15:32
Information générale
Forum:
Visual FoxPro
Catégorie:
Produits tierce partie
Divers
Thread ID:
00768617
Message ID:
00769316
Vues:
16
>I have an application that can read and write email using Outlook. I got the basic software from FoxPro Advisor. However, I also need to do it using Eudora, Netscape and Aol also.
************************************
I use something I think I got here:

*Here is the short version:
oMSG = createobject("CDO.Message")
oMSG.To = "emailtest@xyz.com"
oMSG.From = "emailtest@xyz.com"
oMSG.Subject = "Hello Email test 101"
oMSG.TextBody = "This is an easy way to create an email"
oMSG.Send()
return

* add attachments
oMSG = createobject("CDO.Message")
oMSG.To = "emailtest@xyz.com"
oMSG.From = "emailtest@xyz.com"
oMSG.Subject = "Hello Email test 201"
oMSG.AddAttachment(“file:///c:\Attach.txt”)
oMSG.AddAttachment(“file:///c:\Attach1.txt”)
oMSG.AddAttachment(“file:///c:\Attach2.txt”)
oMSG.Send()

*Here is a way to embed your web page in your email:
oMSG = createobject("CDO.Message")
oMSG.To = "emailtest@xyz.com"
oMSG.From = "emailtest@xyz.com"
oMSG.Subject = "Hello Email test 301"
oMSG.CreateMHTMLBody("http://www.stratfordsoftware.com")
oMSG.Send()

This works ok on all os I have tried as long as the user does have an email program set up. If they don't, you get an error and I have not been able to suppress it, even with the new TRY/CATCH stuff in VFP8.
Dr. Ken A. McGinnis
Healthcare software design
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform