>To use cdo2000
>
>
>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
>
>Many thanks
Specialist in Advertising, Marketing, especially Direct Marketing
I run courses in Business Management and Marketing
