PD: Tengo que enviar (solor enviar) correos de una direccion de hotmail, desde mi aplicacion.
Code: Select all
FUNCTION EnviarCorreo( cArchivoAdjunto)
cSMTPServer := "smtp.live.com"
cPopServer := "pop3.live.com"
cFrom := "mjaviergutierrez@hotmail.com"
cTo := "mjaviergutierrez@yahoo.com"
cSMTPPassWord := "*********"
// hb_SendMail( cServer, nPort, cFrom, xTo, xCC, xBCC, cBody, cSubject, aFiles, cUser, cPass, cPopServer, nPriority, lRead, bTrace, lPopAuth, lNoAuth, nTimeOut, cReplyTo, lTLS, cSMTPPass, cCharset, cEncoding )
MsgInfo( iif(hb_SendMail( cSMTPServer,;
25 ,;
cFrom,;
cTo,;
NIL /* CC */,;
NIL /* BCC */,;
"test: tecxto de prueba",;
"test: prueba",;
Nil /* attachment */,;
cFrom,;
cSMTPPassword,;
cPopServer,;
NIL /* nPriority */,;
NIL /* lRead */,;
.F. /* lTrace */,;
.T. /* lPopAuth */,;
.T. /* lNoAuth */,;
NIL /* nTimeOut */,;
NIL /* cReplyTo */,;
.F. /* lTLS */,;
cSMTPPassWord ), "Correo enviado satistactoriamente", "Correo NO enviado"), "Resultado" )