Comportamiento extraño con tSmtp.

[tsales]

Antonio
Utilizando el ejemplo testsmtp, FWH27 y la configuración de mi servidor de correo, ciertas direcciones de correo no reciben los mensajes que envio, por ejemplo una cuenta en gmail. Lo curioso es que el envio se realiza, o por lo menos ::bDone así lo recibe.

¿Alguna idea?

Saludos
Toni Sales

[Antonio Linares]

Toni,

Envias algún documento adjunto ?

[tsales]

Toni,

Envias algún documento adjunto ?

He probado de las dos formas. Te adjunto el código:

function SendMail()

local oOutMail, cIP

oWnd:SetMsg( "Sending Internet email..." )
WSAStartup()
oOutMail := TSmtp():New( "smtp.midominio.com" )


oOutMail:bConnecting = {||oWnd:SetMsg( "Connecting ..." ) }
oOutMail:bConnected = {||oWnd:SetMsg( "Connected" ) }
oOutMail:bDone = { || msginfo("Mensaje enviado correctamente") }
oOutMail:SendMail( "a.sales@iaicom.com",; // From
{ "toni.sales@gmail.com" },; // To
"Dime si recibes este correo",; // Msg Text
"Prueba de envio correo Smtp" ) // Subject
return nil


Saludos
Toni SAles

[MarioG]

en mi prueba, de testsmtp.prg, enviando a mi propia cuenta, lo hace pero, de los adjuntos solo llega basura

It is working!!!

application/x-zip-compressed;
name="testsmtp.prg"
Content-Transfer-Encoding: base64
Content-Disposition: inline;
filename="TESTSMTP.PRG"

Ly8gVGVzdGluZyBGaXZlV2luIG5ldyBJbnRlcm5ldCBPdXRnb2luZyBtYWlsIChTTVRQIHByb3Rv
Y29sKSBDbGFzcw0KDQojaW5jbHVkZSAiRml2ZVdpbi5jaCINCg0Kc3RhdGljIG9XbmQNCg0KLy8t
...

application/x-zip-compressed;
name="testsmtp.zip"
Content-Transfer-Encoding: base64
Content-Disposition: inline;
filename="TESTSMTP.ZIP"

UEsDBBQAAgAIAOKT0i53UfJ1LwIAAMIFAAAMAAAAdGVzdHNtdHAucHJnvZRNj9owEIbvK+1/GNIL
SJQceqNCKh9hG3WTIOIW9VR5zQTcBhvFTind3f/ecQIUKMuprW/2zDzvfNj2fWBorFQLGMvvOJMK
...

Enviando a otras cuentas gmail y yahoo, por ej., no llegan

Alguna solución?
gracias