Re: TBlatMail

[zeasoftware]

Xevi:
Si no coinciden el puerto o la dirección del servidor no salen los correos,
yo me mate preguntando y haciendo eco en el foro, has que le haye la
cuadratura y empecé a probar con los datos que me daba el servidor de
correos, y listo!!! salieron
Saludos.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com

[Xevi]

Ramón,
Es la configuración de Gmail...
en el cual se utiliza el puerto para correo saliente 587, requiere
autenticación,... los datos del usuario y la contraseña., por lo que no se
que me falta...
WITH OBJECT TBlatMail():New()
:cServer := "smtp.gmail.com"
:lAuth := .T.
:nPort := 587
:cUser := "miusuario"
:cPassword := "mipass"
:cAddress := "xevicomas@gmail.com"
:cSubject := "Prova"
:cBody := "Missatge de Prova des de Xailer"
:AddReceipt( "mosca65@gmail.com" )
:Create()
MSGINFO( :Send() )
END
Si puedes colgar un pequeño trozo de como lo estás utilizando... igual veo
que estoy haciendo mal.
Gracias.
Un Saludo,
Xevi.
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=4b608e74@svctag-j7w3v3j....]4b608e74@svctag-j7w3v3j....[/email]
> Xevi:
> Si no coinciden el puerto o la dirección del servidor no salen los
> correos, yo me mate preguntando y haciendo eco en el foro, has que le haye
> la cuadratura y empecé a probar con los datos que me daba el servidor de
> correos, y listo!!! salieron
>
> Saludos.
> --
> Ramón Zea
> 01.993.231-62-29
> http://www.paginasprodigy.com/zeasoftware/
> zeasoftware@prodigy.net.mx
> zeasoftware@hotmail.com
> ramonzea@yahoo.com
> zeasoft.movil@hotmail.com

[ignacio]

Xevi,
Creo que gmail exige el enví­o a través de SSL y que yo sepa Blatmail no
admite el enví­o de correo a través de SSL, o al menos así­ lo creia. Quizás
sea ese tu problema.
Un saludo
--
Ignacio Ortiz de Zúñiga
[Equipo de Xailer/Xailer team]
http://www.xailer.com
http://www.xailer.info
"Xevi" <xevicomas@gmail.com> escribió en el mensaje de
noticias:4b609ebc$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ramón,
>
> Es la configuración de Gmail...
> en el cual se utiliza el puerto para correo saliente 587, requiere
> autenticación,... los datos del usuario y la contraseña., por lo que no se
> que me falta...
>
>
> WITH OBJECT TBlatMail():New()
> :cServer := "smtp.gmail.com"
> :lAuth := .T.
> :nPort := 587
> :cUser := "miusuario"
> :cPassword := "mipass"
> :cAddress := "xevicomas@gmail.com"
> :cSubject := "Prova"
> :cBody := "Missatge de Prova des de Xailer"
> :AddReceipt( "mosca65@gmail.com" )
> :Create()
>
> MSGINFO( :Send() )
> END
>
> Si puedes colgar un pequeño trozo de como lo estás utilizando... igual veo
> que estoy haciendo mal.
>
> Gracias.
>
> Un Saludo,
> Xevi.
>
>
> "Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje
> news:[email=4b608e74@svctag-j7w3v3j....]4b608e74@svctag-j7w3v3j....[/email]
>> Xevi:
>> Si no coinciden el puerto o la dirección del servidor no salen los
>> correos, yo me mate preguntando y haciendo eco en el foro, has que le
>> haye la cuadratura y empecé a probar con los datos que me daba el
>> servidor de correos, y listo!!! salieron
>>
>> Saludos.
>> --
>> Ramón Zea
>> 01.993.231-62-29
>> http://www.paginasprodigy.com/zeasoftware/
>> zeasoftware@prodigy.net.mx
>> zeasoftware@hotmail.com
>> ramonzea@yahoo.com
>> zeasoft.movil@hotmail.com
>
>

[zeasoftware]

Yo lo uso basado en datos a traves de un formuilario, pero en si son los
datos que uso:
WITH OBJECT ::oBlat := tBlatMail():New( Self )
:cServer := AppData:BLAT_Servidor //
:cAddress := AppData:BLAT_Correo
:nPort := Val(AppData:BLAT_Puerto)
:cUser := AppData:BLAT_Usuario
:cPassword := AppData:BLAT_Clave
:lAuth := AppData:BLAT_Autenticado
:Create()
If !( (nError := :nLastError) == 0 )
MsgStop( "No se encuentra instalado el programa de enví­o de
correos: " + ;
ntoC(:nLastError))
End
End With
WITH OBJECT ::oBlat
//:AddReceipt( ::oMail_to:Value )
If Len( ::oLBSendTo:aItems ) > 0
aEval( ::oLBSendTo:aItems, ;
{ |cItem| :AddReceipt( cItem ) } )
Else
//:lAskRecipients := .T.
Endif
If Len( ::oLBAttached:aItems ) > 0
aEval( ::oLBAttached:aItems, ;
{ |aItem| :AddAttachment( aItem ) } )
Else
//:lAskRecipients := .T.
Endif
:cSubject := ::oEditSubject:Value
:cBody := ::oMemoMsg:Value
If ( :Send() )
MsgInfo("Se ha enviado el correo con exito.")
Else
MsgStop("Se produjo un error en el enví­o: " + ntoC(:nLastError))
End
END
//Datos:
[BLAT]
Servidor=mail.mallasespecializadas.com <----*
Usuario=ventas@mallasespecializadas.com
Clave=XXXXXXXXX
Correo=ventas@mallasespecializadas.com
Puerto=26 <----*
Autenticado=.T. <----*
<----* Estos datos los consegui en la pagina del servidor de correos, claro,
entrando con la clave y usuario del cliente, y buff, empezaron a salir.
Venian ejemplos para distintos tipos de correos smtp....., pop....., etc.
Saludos.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com