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

Vikthor,

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

Antonio Linares wrote: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

revisa esto:

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

Antonio Linares wrote:revisa esto:

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

Vikthor,

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

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.

Carlos :

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

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

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

Gracias Armando