Rutina tblatMail

[fglez]

Estimados Consultores:
Mi consulta es en relación con el uso de la funcion tBlatMail, con la
finalidad de ointroducirla en una aplicación para enviar un correo y un
archivo adjunto, que no he podido hacer funcionar porque tal vez me hace
algo falta, me podrián auxiliar ???.
En primer lugar baje la el archivo blat.dll y lo coloque en el directorio de
la aplicación.
A qui esta la rutina para conformar y enviar:
::oBatMai := tBlatMail():Create()
aDatPro[5] := "fglez@csyredes.com"// remitente
aDatPro[6] := "zalezf[email=@@yahhoo.com.mx]@@yahhoo.com.mx[/email]" // destinatario
IF MsgYesNo("Desea Eviar el Correo ?"+CRLF+;
"Para: "+ALLTRIM(aDatPro[6])+CRLF+;
"De: "+ALLTRIM(aDatPro[5]),"Aviso al Usuario")
WITH OBJECT ::oBatMai
:nPort := 9025
:cServer := "mail.csyredes.com" //Servidor de salida SMTP
:ntype := 0
:aReceipts := { aDatPro[6] }
:cAddress := aDatPro[5]
:cSubject := "Envio Vale: "+::aDatTot[4]
:cBody := "hola"//"Envio Vale: "+::aDatTot[4]+" Solicita:
"+aDatPro[2]
:aAttachments := { ::aDatTot[4] } //archivo adjunto
IF :Send()
MsgInfo("El Correo Ha Sido Enviado","Aviso al Operador")
ELSE
MsgInfo("El Correo No Se Envió..."+str(:nlastError),"Intente Más
Tarde")
// al ejecutarse el programa se dirige a este punto y marca el
error 2
ENDIF
END
Mi pregunta que hace falta para que funcione ???
Por su Atención Gracias.}
--
Ing. Francisco González Herrera
Comunicaciones Satelitales y Redes, S.A. de C.V.
56-78-16-66

[jlalin]

Francisco,
acabo de probar tu ejemplo cambiando tus datos por los mí­os y funciona
correctamente.
> Mi consulta es en relación con el uso de la funcion tBlatMail, con la
> finalidad de ointroducirla en una aplicación para enviar un correo y un
> archivo adjunto, que no he podido hacer funcionar porque tal vez me hace
> algo falta, me podrián auxiliar ???.
> :nPort := 9025
> Mi pregunta que hace falta para que funcione ???
Comprueba si el puerto es correcto y mira también si el servidor de correo
saliente necesita nombre de usuario y password.
Hay algo más que debes mirar: abre RegEdit y busca la cadena "blat", si la
localiza, borra la rama "blat" y vuelve a probar. En ocasiones me ha pasado
que no actualiza correctamente los datos de la conexión y no funciona
correctamente.
También puedes añadir a tu proyecto el fuente
c:xailer2sourceblatmail.prg y en el método Send(), modifica la lí­nea
::SendMail( cSend )
por:
::SendMail( cSend + " -log c:blat.txt" )
y recompila. Cuando ejecutes tu aplicación podrás ver en blat.txt la
conversación entre tu programa y el servidor de correo.
Saludos,
José Lalí­n