Quiero enviar correos electronicos desde una aplicacion de cavo2.8, el ejemplo que tiene cavo si me funciona, pero el codigo que tiene la ayuda no me funciona y no me marca ningun error.
function SendMail(cServerIP,;
cMailSubject,;
xDestUser,;
xCCUser,;
cBody,;
cFromAddress,;
xAttachFile,;
cFromName,;
xBCCUser,;
cCargo, ;
cPassword, ;
cUserName ) as LOGIC PASCAL
LOCAL oSmtp as Object
LOCAL lRet as LOGIC
LOCAL oEmail as CEmail
local uPaso as usual
oEmail:=CEmail{}
oEmail:FromAddress := cFromAddress
oEmail:FromName := cFromName
oEmail:Cargo := cCargo
oEmail:Subject := cMailSubject
oEmail:DestList := xDestUser[1]
oEmail:CCList := xCCUser[1]
oEmail:BCCList := xBCCUser[1]
oEmail:MailBody := cBody
oEmail:ReplyTo:="
[email protected]"
oEmail:SetMailTime()
uPaso:=oEmail:StreamOut()
uPaso:=oEmail:MailDate
IF !IsNil(xAttachFile)
oEmail:AttachmentFileList := xAttachFile
ENDIF
oSmtp := CSmtp{oEmail,cServerIP,80}
oSmtp:RemoteHost := cServerIP
oSmtp:Password :=cPassword
oSmtp:UserName :=cUserName
oSmtp:TimeOut := 5000
oSmtp:SecureSMTP:=false
oSmtp:CheckReply()
uPaso:=oSmtp:ReplyString
uPaso:=oSmtp:ReplyCode
uPaso:=oSmtp:Error //regrsa cero(0)
if oSmtp:connect(cServerIP,80) //Si conecta
lRet := oSmtp:SendMail() //no marca error pero regresa false y no envia
uPaso:=oSmtp:RecvRemote()
oSmtp:Disconnect()
endif
RETURN lRet
