LPARAMETERS tcDestino, tcAssunto, tcHTML, tcArquivo, tcPicture >> >>LOCAL lcSchema, loConfig, loMsg, loError, lcErr >> >> lcSchema = "http://schemas.microsoft.com/cdo/configuration/" >> >> LOCAL loConfig as "CDO.Configuration" >> loConfig = CREATEOBJECT("CDO.Configuration") >> >> WITH loConfig.FIELDS >> >> .ITEM(lcSchema + "smtpserver") ="smtp.uol.com.br" && place your smtp here >> .ITEM(lcSchema + "smtpserverport") = "25" >> .ITEM(lcSchema + "sendusing") = 2 >> .ITEM(lcSchema + "smtpauthenticate") = .T. >> .ITEM(lcSchema + "smtpusessl") = .F. >> .ITEM(lcSchema + "sendusername") = "login" && login >> .ITEM(lcSchema + "sendpassword") = "password" && your password >> >> .UPDATE >> >> ENDWITH >> >> >> LOCAL loMsg as "CDO.Message" >> loMsg = CREATEOBJECT ("CDO.Message") >> >> WITH loMsg >> >> .Configuration = loConfig >> .FROM = "Foxbrasil <foxbrasil@superfox.com.br>" >> .TO = tcDestino >> .Subject = tcAssunto >> >> IF VARTYPE(tcArquivo) = "C" AND FILE(tcArquivo) >> loMsg.AddAttachment(tcArquivo) && Must be a valid file >> ENDIF >> >> #DEFINE CdoReferenceTypeName 1 >> loMsg.AddRelatedBodyPart(lcArquivo, "pic", CdoReferenceTypeName) >> >>* .TextBody = "Here pur text" >> >> >>* This is a test HTML showing how to use the emebedded image >> tcHTML = ="<html><img src='pic'></html>" >> >> >> .HTMLBody = tcHTML .Send() >> >> ENDWITH>>