TSMTP : Envio de correo con dominio diferente

[Vikthor]

Hola amigos :

Usando la clase TSmtp de Luis Krause , sucede que cuando hago el envio a una cuenta de correo con un dominio diferente a la cuenta del remitente, el correo no sale.

Por ejemplo si la cuenta del remitente es victor@listoelpollo.com y quiero enviar un email a vikthor@fivewin.com ... el envio es rechazado.

Saludos

[Antonio Linares]

Vikthor,

Has comprobado que la cuenta de correo del destinatario exista realmente ?

[Vikthor]

[quote="Antonio Linares"]Vikthor,

Has comprobado que la cuenta de correo del destinatario exista realmente ?[/quote

Si, las pruebas las estoy haciendo con 2 cuentas propias.
Una del dominio de la empresa donde trabajo y la otra es mi cuenta de hotmail

[Vikthor]

Revisando el archivo log. el servidor me contesta de la siguiente manera.

Code: Select all  Expand view

26/09/2007 00:40:51: Read      Socket handle:       256   WSA Error:         0   
26/09/2007 00:40:51: 550 5.7.1 Unable to relay for vykthor@hotmail.com


[Antonio Linares]

revisa esto:

http://www.chilkatsoft.com/faq/Smtp550.html

[Vikthor]

revisa esto:

http://www.chilkatsoft.com/faq/Smtp550.html

Ok, gracias , ya leí las causas, configuro el servidor exchange y listo.

Sin embargo, si se hace una distribucion a terceros de mi aplicacion , este es un pequeño poblema.

Alguna otra sugerencia que me permita hacer envios a cuentas de correo, sin pasar por este detalle ?

[Antonio Linares]

Vikthor,

Se me ocurre que te dirijas directamente al servidor de correo del receptor, sin pasar por tu servidor de correo

[Carlos Mora]

Victor,

los servidores de correo suelen autenticar el emisor, asegurándose que no envían correo para cuentas que no son del propio dominio, porque si no lo hacen los spammers los usan para hacer de las suyas.
En tu software asegúrate de poder configurar la cuenta y el servidor. En una de las aplicaciones que mantengo envío archivos adjuntos por mail, y siempre hay algun problema, incluyendo los programas antivirus que despliegan ventanas avisando que un programa está tratando de enviar correo y esas historias.
Ultimamente el método que me ha resultado más sencillo ha sido usar MAPI, que además de usar la configuración del usuario por defecto deja una copia de lo que se envía en 'Elementos Enviados'.

Un saludo,

Carlos.

[Vikthor]

Carlos :

Gracias por la respuesta, serías tan amable de publicar un sencillo ejemplo del uso de MAPI

[Armando]

Viktor:

En el maual de FW viene un capítulo y un ejemplo sobre MAPI, avisame si no lo encuentras para teclearlo y enviartelo.

Un Abrazo

[Armando]

Vikthor:

Viendo que el ejemplo no es muy grande me anime a teclearlo, aqui lo tienes, ojalá te sirva.

#Include "FiveWin.ch"
#Include "Mail.ch"

STATIC oWnd

FUNCTION Main()

LOCAL oBar

DEFINE WINDOW oWnd TITLE "Uso de los servicios MAIL"

DEFINE BUTTONBAR oBar 3D SIZE 33,33 OF oWnd

DEFINE BUTTON OF oBar ACTION MsgInfo(MAPILogOn());
MESSAGE "LogOn al sistema de correo" TOOLTIP "LogOn"

DEFINE BUTTON OF oBar;
ACTION (MAPILogOff(), MsgInfo("LogOff realizado") );
MESSAGE "LogOff del sistema de correo" TOOLTIP "LogOff"

DEFINE BUTTON OF oBar GROUP;
ACTION InteractiveMessage();
MESSAGE "Enviar mensaje interactivo" TOOLTIP "Interactive"

DEFINE BUTTON OF oBar GROUP;
ACTION DirectMessage();
MESSAGE "Enviar mensaje interactivo" TOOLTIP "Direct"

DEFINE BUTTON OF oBar GROUP ACTION oWnd:End() TOOLTIP "End"

SET MESSAGE OF oWnd TO "FiveWIn - Soporte MAIL" CENTERED
ACTIVE WINDOW oWnd ;
VALID MsgYesNo("¿ Desea salir ?")
RETURN(NIL)


FUNCTION InteractiveMessage()
LOCAL oMail

DEFINE MAIL oMail;
SUBJECT "Probando...";
TEXT "Potencia xBase real a su alcance";
FROM USER;
RECEIPT

ACTIVATE MAIL oMail
MsgInfo(oMail:nRetCode)
RETURN(NIL)


FUNCTION DirectMessage()
LOCAL oMail

DEFINE MAIL oMail;
SUBJECT "FiveWin Mail-Control total";
TEXT "Potencia xBase real a su alcance";
TO "LOLO", "Lolo Linares"
ACTIVATE MAIL oMail
MsgInfo(oMail:nRetCode)
RETURN(NIL)

Saludos

[Vikthor]

Gracias Armando