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
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