Mandar EMail con componentes Indy

[roman]

Me parece que el problema podría estar en el hecho de que no todos los clietes SMTP te permitirán mandar correos sin autenticarte (AuthenticationType = atNone) y tienes que hacerlo con nombre de usuario y contraseña.

// Saludos

[Mick]

La forma mas sencilla de mandar ese mail (si el servidor de correo no necesita authentificacion smtp es):

procedure TvZonaClientes.cmdEnviarClick(Sender: TObject);
begin
  TIdSmtp.QuickSend(   '192.168.0.2', 
                       txtAsunto.Text, 
                       vModuloDatos.DataSetClientesEMAIL.AsString,  
                       '[email protected]', 
                       memoMensaje.Lines.Text
                    );
end;

Otra cosa, muchos servidores de correo podrian descartar el
mensaje por el hecho de venir de una direccion de correo
no valida en tu caso en el "From" no estas indicando un email valido.

Saludos

[verm83]

Buenas de nuevo. En principio gracias por la velocidad en responder.
Desesperado, he optado por lo que he comentado Mick, he escrito el siguiente código:

    // Activo el servidor
    if not serverSMTP.Active then
        serverSMTP.Active:=True;
    // Conecto el cliente y envío el mensaje
    indySMTP.Connect;
    indySMTP.QuickSend('192.168.0.2',
                       txtAsunto.Text,
                       '[email protected]',
                       '[email protected]',
                       memoMensaje.Lines.Text);

Ahora por lo menos hace el ademán, que antes ni eso, pero me devuelve el siguiente error: Excepción de la clase EIdTCPServerError, con el mensaje "No OnReceiveRaw defined"

Hay algo que estoy haciendo mal y creo que es fallo mio de concepto. Uso como host 192.168.0.2 por ser la IP de mi PC, para que lo mande a través del servidor de la propia aplicación, el cual tan sólo tengo activado, es decir, insertado el control y activado desde código. ¿Tengo que configurarle algo al servidor? ¿Dónde meto la pata? Creo que es la teoría la que no tengo bien agarrada, y fallo por culpa de eso.

[Mick]

Da la impresion de que estas complicando el tema mas de lo necesario.
El QuickSend es un metodo de clase de modo que no tienes que
crear ni soltar en el form ningun componente.
Literalemente debes indicar:

TIdSMTP.QuickSend( ... )

SIN CREAR NINGUN COMPONENTE, te sobra el componente
indySMTP y el serverSMTP, se indica directamente "TidSMTP" (el nombre de la clase, nada mas).

Como mucho debes indicar "uses idSMTP" en el .pas donde quieras usar el metodo quicksend.

Saludos

[verm83]

Lo acabo de probar, lo que me comentas, pero me devuelve el fallo "Connection Closed Gracefully", que ya me pasó días atrás. En lo referente al servidor web, lo tenía puesto porque no quería depender de ningún server SMTP externo, ni de ninguna cuenta de correo; no quiero que mi aplicación haga de "frontend", sino que fuese capaz de enviar correos por sí sóla, sin depender de nada.

[Mick]

Lo que te da es una excepcion, lo que no significa que sea un error,
Indy informa de muchas cosas utilizando el mecanismo de excepciones,
normalmente esa excepcion indica que la conexion se ha cerrado correctamente de modo que el mail debería haberse enviado sin problemas.
Utiliza un bloque try except para interceptar y comprobar las excepciones o si no quieres que te salte esa excepcion, actualizate a una version mas moderna de Indy (creo que en las ultimas versiones, habian eliminado la posibilidad de que se produjese esa excepcion).

[verm83]

Al final lo he conseguido solucionar siguiendo el ejemplo del SMTP Relay que viene con Indy. Es mucho más complejo, pero funciona. Lo que hace es enviar correos, partiendo de un email de como sender y una IP de un servidor DNS. La única pega que le he visto es que le cuesta siempre varios intentos, devolviendo la excepción "Connection Closed Gracefully" en los casos de envío negativo, pero funcionar funciona. Muchas gracias a todos por la ayuda.