Power Builder - ayuda con codigo

   
Vista:

ayuda con codigo

Publicado por jaime (5 intervenciones) el 29/07/2008 22:05:24
Necesito ayuda, mi problema es que no se me logea los usuarios....realmente no se por que..

Les explico: tengo 2 DDLB los cuales tienen diversos E Mail (cualquiera), eligo el mail en cada uno de ellos, hay un cuadro de texto en el cual puedo anotar cualquier info y un boto el cual es el que generara el envio. El problema como lo dige anteriormente es que no se me logea me salta al ultimo IF donde me envia el LOGON FAILED...si alguna persona me pueda ayudar se lo agradeceria mucho...mcuhas gracias.

Este es el codigo que tengo.

mailSession mSes
mailReturnCode mRet
mailMessage mMsg

mSes = create mailSession

Choose Case com_1.Text (este es un drop down line box)
Case "gmail"
mRet=mSes.mailLogon ("gmail","clave")
Case "mail"
mRet=mSes.mailLogon( "mail","clave")
Case "mail"
mRet=mSes.mailLogon("mail","clave")
Case Else
MessageBox("Envio por E Mail", "No se encontro su casilla")
Return
end choose

if mRet <> mailReturnSuccess! then
MessageBox("Mail","Logon Fallido")
Return
end if

string alf
alf = com_2.text (este es un drop down line box)

mMsg.Subject ='Contratos'
mMsg.NoteText= sle_2.text
mMsg.Recipient[1].name=alf
//mMsg.Recipient[2].name=

mRet = mSes.mailSend(mMsg)
mSes.MailLogoff()
Destroy mSes
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