Posted: 09 August 2008 at 3:53am | IP Logged

Here is how you can automate Outlook Express using CDO

oMail = NewObject("CDO.Message")
oMail.From = 'your@sendingemailaddresshere.com'
oMail.To = 'recipient@emailaddresshere.com'
oMail.Subject = "VFP and CDO OLE generated Message Subject"
oMail.TextBody = "This was generated and sent with nine short lines of code within Visual FoxPro 7."
omail.Configuration.Fields(" http://schemas.microsoft.com/cdo/configuration/sendusing").V alue = '2'
omail.Configuration.Fields(" http://schemas.microsoft.com/cdo/configuration/smtpserver"). Value = 'yoursmtpserverhere.com'
omail.Configuration.Fields(" http://schemas.microsoft.com/cdo/configuration/sendpassword" ).Value = 'youremailpasswordhere'
omail.Configuration.Fields.Update
oMail.Send