CA-Visual Objects - Email desde cavo

   
Vista:

Email desde cavo

Publicado por Jose Castillo (4 intervenciones) el 08/05/2009 12:38:31
Quiero enviar correos desde una funicion de cavo, ya vi el ejemplo que tiene cavo 2.8 y me funciona muy bien, lo que no funciona es el codigo de ejemplo que trae la ayuda, no me marca error pero no envia nada

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:="jose@tin-mx.com"
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

if oSmtp:connect(cServerIP,80) //Si se conecta
lRet := oSmtp:SendMail() //regresa false
uPaso:=oSmtp:RecvRemote()
oSmtp:Disconnect()
endif

RETURN lRet
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder