Page 1 of 1

Clase TSMTP y Gmail

Posted: Mon Jan 20, 2014 10:44 pm
by FiveWiDi
Hola a todos,

Alguién ha podido enviar mails con la clase TSMTP desde una cuenta Gmail?

Y desde una cuenta hotmail?

Si es así, que parámetros utiliza?

Gracias,

Re: Clase TSMTP y Gmail

Posted: Tue Feb 11, 2014 4:03 am
by guapilescity
MIRA LO VAJE DEL FORO Y FUNCIONA DE MARAVILLAS


FUNCION ENVIARCORREO()

oP:Menmsajedeusuario:="Control de caja eviado por "

oP:Subject:="Nueva instancia Para revisar "

oP:Organization:="CONTROL DE RECOLECTA"

oP:cText:="Estimado Administrador usted ha recibido una investigacion enviada por el PC "+alltrim(oP:cEquipo)+ ".. Muy importante este mensaje" +;
" se le insta a revisarla y enviarla lo mas antes posible "+;
" ----> Obervaciones "+alltrim(oP:Observa)+" Usuario que envio "+oP:Nombreusuario+;
"...........Muchas Gracias , Sistema Recolecta"

correoencargado()
RETURN




function correoencargado()



local oMsg := CreateObject( "CDO.Message" )
local oConf := CreateObject( "CDO.Configuration" )
local cSchema := "http://schemas.microsoft.com/cdo/configuration/"
Local cFolPed:=".\boleteria.dll"

TRY
oP:CORREO:= alltrim(GetPvProfString( "CONECCION1","CORREO", "0",cFolPed)) && AQUI CREO UN INI Y METO LAS DIRECION ELECTRONICA QU DESO ENIVAR

oConf:Fields[ cSchema + "sendusing" ] = 2
oConf:Fields[ cSchema + "smtpserver" ] = "smtp.gmail.com"
oConf:Fields[ cSchema + "smtpserverport" ] = 465
oConf:Fields[ cSchema + "smtpauthenticate" ] = 1
oConf:Fields[ cSchema + "sendusername" ] = "PON TU DIRECCIO DE CORREO ELECTRONICO"
oConf:Fields[ cSchema + "sendpassword" ] = "PON ELPASSWAORD"
oConf:Fields[ cSchema + "smtpusessl" ] = 1
oConf:Fields:Update()

oMsg:To = oP:CORREO
oMsg:From = "<Correo automatico de envio sistem de recolecta >"


oMsg:Subject = oP:Subject
oMsg:HTMLBody = oP:cText
oMsg:Sender = oP:Menmsajedeusuario
oMsg:Organization = oP:Organization
oMsg:ReplyTo = "busmatic@gmail.com"
oMsg:Configuration = oConf
oMsg:Send( )
CATCH oError
MsgStop( "No se pudo enviar el correo al supervisor ","Tome nota y avise al alcargado de soporte")
RETURN
END

return nil

Re: Clase TSMTP y Gmail

Posted: Tue Feb 11, 2014 3:51 pm
by AngelSalom
Revisa este hilo que abrí hace pocos días :

http://forums.fivetechsupport.com/viewt ... =6&t=28046