Page 1 of 1

TSMTP : Envio de correo con dominio diferente

Posted: Wed Sep 26, 2007 6:23 am
by 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

Posted: Wed Sep 26, 2007 6:26 am
by Antonio Linares
Vikthor,

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

Posted: Wed Sep 26, 2007 6:29 am
by 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

Posted: Wed Sep 26, 2007 6:32 am
by Vikthor
Revisando el archivo log. el servidor me contesta de la siguiente manera.

Code: Select all

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

Posted: Wed Sep 26, 2007 6:38 am
by Antonio Linares

Posted: Wed Sep 26, 2007 6:57 am
by Vikthor
Antonio Linares wrote: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 ?

Posted: Wed Sep 26, 2007 7:46 am
by Antonio Linares
Vikthor,

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

Posted: Wed Sep 26, 2007 2:15 pm
by 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.

Posted: Wed Sep 26, 2007 2:26 pm
by Vikthor
Carlos :

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

Posted: Wed Sep 26, 2007 6:03 pm
by 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

Posted: Wed Sep 26, 2007 6:19 pm
by 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

Posted: Thu Sep 27, 2007 3:54 pm
by Vikthor
Gracias Armando