VFP用CDO发送邮件

There reason CDO2.0 avoids the security patch of Outlook is, it does not require Outlook to work. (Thank you Jonscott8 for this clarification)
Note #1 : This requires SMTP services installed and running on the local computer.
Note: If a mail server is involved (ie: Exchange server ) consider using the suggestions in FAQ184-1769.

oMSG = CREATEOBJECT('cdo.message')
oMSG.To = '[e-mail]'
oMSG.From = 'me'
oMSG.Subject = 'Hello Email'
oMSG.TextBody = 'This is an easy way to create an email'
oMSG.Send()
release oMSG

*--带附件发送邮件
oMSG = createobject('CDO.Message')
oMSG.To = '[e-mail]'
oMSG.From = '[e-mail]'
oMSG.Subject = 'Hello Email'
oAtt=oMSG.AddAttachment('c:\myfile.txt')
oMSG.Send()
release oMSG

*--Here is a great way to embed your web page in your email:
CODEoMSG = createobject('CDO.Message')
oMSG.To = '[e-mail]'
oMSG.From = '[e-mail]'
oMSG.Subject = 'Hello Email'
oMSG.CreateMHTMLBody('http://www.slpcanada.com')
oMSG.Send()
release oMSG

*--发送HTML格式邮件
CODE
oMSG = createobject('CDO.Message')
oMSG.To = '[e-mail]'
oMSG.From = '[e-mail]'
oMSG.Subject = 'Hello Email'
oMSG.HTMLBody = [< b >< P >< FONT COLOR='#CC0000' >Hello In Color< /FONT >< /b >]
oMSG.Send()
release oMSG