Send email with CDO 2000

Tagged:

It's simple and convenient to send unattended email with CDO 2000 as long as there's a SMTP server available.

Uses CDO 2000 class for sending emails

This is sample code. Add error handling and adjust to your requirements as necessary.

&& Replace addresses with real ones before running the code
 
loMail = NEWOBJECT("Cdo2000", "Cdo2000.fxp")
 
WITH loMail
	.cServer = "smtp.somedomain.com"
 
	&& Uncomment following lines and fill your credentials 
	&&	if your SMTP server requires basic authentication
	&&.nAuthenticate = 1 	&& cdoBasic
	&&.cUserName = "myusername"
	&&.cPassword = "mypassword"
 
	.cFrom = "somemailbox@somedomain.com"
	.cTo = "somenody@otherdomain.com, somenodyelse@otherdomain.com"
 
	.cSubject = "CDO 2000 email"
 
	&& Uncomment next lines to send HTML body
	&&.cHtmlBody = "<html><body><b>This is an HTML body<br>" + ;
	&&		"It'll be displayed by most email clients</b></body></html>" 	
 
	.cTextBody = "This is a text body." + CHR(13) + CHR(10) + ;
			"It'll be displayed if HTML body is not present or by text only email clients"
 
	&& Attachments are optional
	&& .cAttachment = "myreport.pdf, myspreadsheet.xls"
ENDWITH
 
? IIF( loMail.Send() > 0, loMail.Geterror(1), "Email sent."	)