Xailer & OZ Software

Hola,
¿Alguien ha conseguido enviar correos smtp con la librería TIP de xharbour?
El caso es que necesito enviar correos via SMTP y no he sabido hacerlo andar
con la función SendMail que viene de ejemplo en xHarbour. No quiero
utilizar MAPI ni tampoco quiero utilizar Blat o componentes similares.
En otras herramientas utilizaba una clase llamada tSmtp que iba fenomenal
para mis propósitos. ¿Habrá algo similar en Xailer? Me he estado mirando la
jerarquía de Tip y, la verdad, me pierdo... Debe ser superfuncional y
superguay pero me pierdo por el camino.
En fin... cualquier ayuda quedo muy agradecido.
Saludos,
José Luis Capel

Antonio,
Muchas gracias. Me quedo más tranquilo con tus consejos.
Saludos,
José Luis Capel
"Antonio Martí­nez" <alcisoft@arrakis.es> escribió en el mensaje news:[email=453cf8e0@news.xailer.com...]453cf8e0@news.xailer.com...[/email]
JL,
Este problema, como otros similares yo lo enfoco segun 2 supuestos:
1. Me corre prisa la solucion, no quiero reinventar la rueda, quiero algo que no falle....
SOLUCION: Me construyo un .exe con "otras herramientas" que utilizo y que haga el
envio del email y sansacabo; a ese .exe le hago un RUN con los parametros
pertinentes: rapido y efectivo.
2. No me corre prisa, quiero probar cosas......
SOLUCION: investigar y esperar que alguien me aporte alguna idea (lo que no quita que tenga
que investigar)
Saludos
--

JL,
Este problema, como otros similares yo lo enfoco segun 2 supuestos:
1. Me corre prisa la solucion, no quiero reinventar la rueda, quiero algo que no falle....
SOLUCION: Me construyo un .exe con "otras herramientas" que utilizo y que haga el
envio del email y sansacabo; a ese .exe le hago un RUN con los parametros
pertinentes: rapido y efectivo.
2. No me corre prisa, quiero probar cosas......
SOLUCION: investigar y esperar que alguien me aporte alguna idea (lo que no quita que tenga
que investigar)
Saludos
--

José Luis:
It's time to get FUNCKY....
jejejej, Funcky tiene eso resuelto, autenticacion incluida.
Saludos
Rene Flores
http://www.ciber-tec.com
Capel escribió:
> Hola,
>
> ¿Alguien ha conseguido enviar correos smtp con la librerí­a TIP de xharbour?
> El caso es que necesito enviar correos via SMTP y no he sabido hacerlo andar
> con la función SendMail que viene de ejemplo en xHarbour. No quiero
> utilizar MAPI ni tampoco quiero utilizar Blat o componentes similares.
>
> En otras herramientas utilizaba una clase llamada tSmtp que iba fenomenal
> para mis propósitos. ¿Habrá algo similar en Xailer? Me he estado mirando la
> jerarquí­a de Tip y, la verdad, me pierdo... Debe ser superfuncional y
> superguay pero me pierdo por el camino.
>
> En fin... cualquier ayuda quedo muy agradecido.
>
> Saludos,
> José Luis Capel
>
>

René,
Gracias por tu respuesta.
>
> It's time to get FUNCKY....
>
> jejejej, Funcky tiene eso resuelto, autenticacion incluida.
>
El caso es que quiero evitar, al 100x100, terceras herramientas...
Saludos,
José Luis Capel

Jose Luis.
Aqui dejo esta rutina de amablemente Luiz ha desarrollado.
Saludos
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=453c89bd@news.xailer.com...]453c89bd@news.xailer.com...[/email]
> Hola,
>
> ¿Alguien ha conseguido enviar correos smtp con la librería TIP de
> xharbour?
> El caso es que necesito enviar correos via SMTP y no he sabido hacerlo
> andar
> con la función SendMail que viene de ejemplo en xHarbour. No quiero
> utilizar MAPI ni tampoco quiero utilizar Blat o componentes similares.
>
> En otras herramientas utilizaba una clase llamada tSmtp que iba fenomenal
> para mis propósitos. ¿Habrá algo similar en Xailer? Me he estado mirando
> la
> jerarquía de Tip y, la verdad, me pierdo... Debe ser superfuncional y
> superguay pero me pierdo por el camino.
>
> En fin... cualquier ayuda quedo muy agradecido.
>
> Saludos,
> José Luis Capel
>
>


Attached files p_mail.prg (2.5 KB)Â

William,
Gracias!
>
> Aqui dejo esta rutina de amablemente Luiz ha desarrollado.
>
No puedo abrirlo. ¿Puedes mandarlo en zip?
Saludos,
José Luis Capel

Jose luis yo uso un componente com llamado jmail y me funciona de perlas,
aca un ejemplo de
uso con vfp y que hace un tiempo modifique para xharbour. (te aseguro que la
adaptacion es sencilla) el jmail lo puedes ubicar facilmente en intenet.
salu2
carlos vargas
*creacion de variables locales
LOCAL oSMTP
LOCAL cTexto
LOCAL nRecord
LOCAL cServerSMTP
*constante de fin de linea
#define CRLF Chr(13)+Chr(10)
#define TRUE .t.
#define FALSE .f.
*define nombre de servidor
cServerSMTP = "donboscocorp.com"
*verifica si tabla no esta limpia
IF EOF()
MESSAGEBOX("No existen registros de llamadas a enviar por email!",0+16)
RETURN
ENDIF
*confirma eliminacion de registro de llamada
IF MESSAGEBOX("Desea enviar reporte de llamada por
email?",4+32,"Seleccione") <> 6
RETURN
ENDIF
*guarda registro actual
nRecord = RECNO()
*crea objeto SMTP para envio de correo
oSMTP = CREATE('jmail.Message')
WITH oSMTP
*permite manejar errores
.Silent = TRUE
.Logging = TRUE
*email del que envia el mensaje
.From = "recepcion@donboscocorp.com"
.FromName = "Recepcion de Don Bosco Corp"
*destinatarios del mensaje
.AddRecipient( "cvargaz@donboscocorp.com", "Carlos Vargas" )
.AddRecipient( "recepcion@donboscocorp.com","Heidy Perez" )
.AddRecipient( "gcm@donboscocorp.com","Guillermo Castillo" )
*descripcion del mensaje
.Subject = "Registro de llamadas del " + dtoc(thisform.fecha.Value)
*procesa cada llamada
SCAN
*agrega un mensaje por cada registro
.AppendText ( "Hora...:" + tele->time + CRLF +;
"De.....:" + tele->from + CRLF +;
"Para...:" + tele->to + CRLF +;
"Mensaje:" + tele->message + CRLF +;
"Atendio:" + IIF(tele->in, "Si", "No" ) + CRLF +;
"---------------------------------------" + CRLF )
ENDSCAN
*nombre del servidor
.MailServerUserName = cServerSMTP
.MailServerPassword = ""
*verifica envio del mensaje
IF !.Send( cServerSMTP )
MESSAGEBOX( .log, 0+16, "Depuracion de error en envio" )
ELSE
MESSAGEBOX( "Lista de llamadas enviadas correctamente",0+48, "Envio
correcto" )
ENDIF
ENDWITH
*elimina objeto
oSMTP = NULL
*restura posicion del puntero de la tabla
GOTO ( nRecord )
*refresca formulario
thisform.Refresh