INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

COM and Automation

How to send e-mail Automating CDO by mgagnon
Posted: 10 Apr 02 (Edited 19 Jan 05)

*/*CDOSYS.dll comes with Windows 2000 and XP

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.

CODE

oMSG = CREATEOBJECT('cdo.message')
oMSG.To = 'me@nowhere.com'
oMSG.From = 'me'
oMSG.Subject = 'Hello Email'
oMSG.TextBody = 'This is an easy way to create an email'
oMSG.Send()

*/*Here are some other features of the CDO.Message:

CODE

oMSG = createobject('CDO.Message')
oMSG.To = 'me@nowhere.com'
oMSG.From = 'me@nowhere.com'
oMSG.Subject = 'Hello Email'
oAtt=oMSG.AddAttachment('c:\myfile.txt')
oMSG.Send()

*/*Here is a great way to embed your web page in your email:

CODE

oMSG = createobject('CDO.Message')
oMSG.To = 'me@nowhere.com'
oMSG.From = 'me@nowhere.com'
oMSG.Subject = 'Hello Email'
oMSG.CreateMHTMLBody('http://www.slpcanada.com')
oMSG.Send()

*/*Here is another way to send HTML in your email:

CODE

oMSG = createobject('CDO.Message')
oMSG.To = 'me@nowhere.com'
oMSG.From = 'me@nowhere.com'
oMSG.Subject = 'Hello Email'
oMSG.HTMLBody = [< b >< P >< FONT COLOR='#CC0000' >Hello In Color< /FONT >< /b >]
oMSG.Send()

*/* How to create an MHTML document using CDO.

CODE

Local lcFileName,lcStr
Declare Integer ShellExecute In "Shell32.dll" ;
    INTEGER HWnd, ;
    STRING lpVerb, ;
    STRING lpFile, ;
    STRING lpParameters, ;
    STRING lpDirectory, ;
    LONG nShowCmd
lcFileName = Sys(2015)+'.mht'
oMSG = Createobject("CDO.Message")
oMSG.CreateMHTMLBody("http://www.microsoft.com")
lcStr = oMSG.getstream
lcStr.SaveToFile(lcFileName,1)
ShellExecute(0,"Open",lcFileName,"","",0)

Mike Gagnon

Back to Microsoft: Visual FoxPro FAQ Index
Back to Microsoft: Visual FoxPro Forum

My Archive

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close