Send email with CDO 2000
It's simple and convenient to send unattended email with CDO 2000 as long as there's a SMTP server available.
Note 1 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 = "firstname.lastname@example.org" .cTo = "email@example.com, firstname.lastname@example.org" .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 IF loMail.Send() > 0 FOR i=1 TO loMail.GetErrorCount() ? i, loMail.Geterror(i) ENDFOR * Clear errors loMail.ClearErrors() ELSE ? "Email sent." ENDIF