LOCAL loMail as cdo2000 OF cdo2000.prg
loMail = NEWOBJECT("Cdo2000", "Cdo2000.prg")

loMail.cServer="smtp.someserver.com"
loMail.nServerPort=25
loMail.lUseSSL=.F.
loMail.nAuthenticate=1
loMail.cUserName="username"
loMail.cPassword="password"
loMail.cFrom="you@you.com"
loMail.cTo="him@him.com"
loMail.cCC=""
loMail.cSubject="email subject"
loMail.cTextBody="email body"

IF loMail.send()>0
	LOCAL lcErrorMsg,lnX
	lcErrorMsg=""
	FOR lnX=1 TO loMail.GetErrorCount()
		lcErrorMsg=lcErrorMsg+loMail.Geterror(lnX)+" "
	ENDFOR
	* Clear errors
	loMail.ClearErrors()
	
ENDIF