email con indy cual uso ; server o cliente

[cmena]

cual es la diferencia de idssmpt de indy cliente v/s indy server, cual debo usar para enviar email desde una aplicacion delphi 7 ?

[roman]

El cliente

// Saludos

[Sotrono]

Con los dos podes lograr enviar mails.
El encargado de enviar el mail es el servidor, pero el cliente es el que se conecta y le indica todos los datos para que lo envie.
No te conviene ponerte programar un servidor Smtp, utiliza un cliente y conectate a algun servidor gratuito que te permita enviar mails.
En este post dec da un ejemplo de como utilizar el IdSMTP.
Saludos..

[dec]

Hola,

Cabe añadir acaso que el ejemplo que refiere Sotrono puede simplificarse, gracias a un método "rápido" que para enviar correos cuenta el componente "TIdSmtp". Tal que así:

Código Delphi [-]
 var
   smtp: TIdSMTP;
 begin
   smtp := TIdSMTP.Create(Self);
   try
     smtp.QuickSend(
       'smtp.servidor.com',
       'Asunto del correo',
       'correo@destino.com',
       'correo@remitente.com',
       'Cuerpo del mensaje');
   finally
     smtp.Free;
   end;
 end;

[cmena]

ok lo efectue pero se me cae con un error se socket #10053
este es el codigo

Código Delphi [-]
 
   IdSMTP1.Port := 25;
   IdSMTP1.Host := 'kovacs.cl';{'smtp.kovacs.cl'}
   IdSMTP1.Username := '';
   IdSMTP1.Password := '';
   IdMessage1.Recipients.Add;
   IdMessage1.Recipients[0].Name := 'armijo';
   IdMessage1.Recipients[0].Address := 'cmena@kovacs.cl'; {destino}
   IdMessage1.From.Name := 'mena';
   IdMessage1.From.Address := 'cmena@kovacs.cl'; {remitetente}
   IdMessage1.Subject := 'prueba';
   IdMessage1.Body.Text := 'la raja';
 
   IdSMTP1.Connect(30000);
   try
     try
       IdSMTP1.Send(IdMessage1);
     except
       on E: Exception do
         ShowMessage('fallo');
     end;
   finally
     if IdSMTP1.Connected then
       IdSMTP1.Disconnect;
   end;
 
   IdMessage1.Free;
   IdSMTP1.Free;

Empezado por Sotrono

Con los dos podes lograr enviar mails.
El encargado de enviar el mail es el servidor, pero el cliente es el que se conecta y le indica todos los datos para que lo envie.
No te conviene ponerte programar un servidor Smtp, utiliza un cliente y conectate a algun servidor gratuito que te permita enviar mails.
En este post dec da un ejemplo de como utilizar el IdSMTP.
Saludos..

[dec]

Hola,

¿Te diste cuenta que edité tu mensaje? Lo hize para encerrar el código fuente de Delphi usando la etiqueta correspondiente: [ DELPHI ] ¿Verdad que se lee mejor así? Ya lo sabes para una próxima ocasión Ahora, tratando de ayudar, me llama la atención esta línea:

Código Delphi [-]
 IdSMTP1.Host := 'kovacs.cl';{'smtp.kovacs.cl'}

¿Obtienes el mismo error si en lugar de "kovacs.cl" utilizas "smtp.kovacs.cl"? Es posible que me equivoque, porque se me ocurre que los propios componentes Indy se encargan de añadir el "smtp." si este no se encuentra, pero, ¿probaste a hacerlo tú, por si las moscas, como suele decirse?

[VNyes]

Buenas, use el servidor smtp : 'kovacs.' y en el evento Onstatus del SMTP coloque: Memo.Lines.Insert(0,'Status: ' + AStatusText); lo q aparecio en ejecucion en el Memo fue :

Status: Resolving hostname kovacs.cl.
Status: Connecting to XXX.XXX.XXX.XXX (mi numero ip dinamico)
Status: Connected.

ERROR: 5.7.1 <correo@destino.com>... Relaying denied. IP name possibly
forged [XXX.XXX.XXX.XXX ]
Status: Disconnecting.

Status: Disconnected.

con lo q no se pudo enviar el Email ... Mi pregunta es : Cual fue el motivo q no pudo enviar el email si todo esta aparentemente bien?, soy nuevo en esto por lo q no ve bien cuales son las burradas q cometo ... cualquier ayuda de antemano gracias

[dec]

Hola,

Empezado por VNYes

Relaying denied. IP name possibly forged.

Creo que el problema estriba en que estás intentando enviar un correo electrónico a través de un Servidor SMTP desde el que no puedes hacerlo por estar fuera de su red. Por ejemplo. Yo me conecto a Internet a través de una determinada compañía telefónica (bueno, entre otras cosas) y puedo utilizar cuando estoy conectado a través de ellos su Servidor SMTP (o uno de ellos), pero, si marcho a tu casa y tratamos de usar dicho Servidor SMTP no podremos hacerlo: porque la compañía telefónica en cuestión no nos lo permite si estamos fuera de su red, esto es, conectados a otra. ¿Solución? Utiliza el Servidor SMTP que suelas emplear para enviar tu correo electrónico.

La información que ha dado pie a mi comentario la he obtenido de aquí mismo. En realidad en la página Web que enlazo se da todavía una descripción más breve del problema, pero, no dejes de echar un vistazo al resto de problemas que se comentan en ella.

[cmena]

hola ,

Código Delphi [-]
   {...}
   IdSMTP1.Port := 25;
   IdSMTP1.Host := 'kovacs.cl'; {'smtp.kovacs.cl'}
   IdSMTP1.Username := '';
   IdSMTP1.Password := '';
   IdMessage1.Recipients.Add;
   IdMessage1.Recipients[0].Name := 'armijo';
   IdMessage1.Recipients[0].Address := 'cmena@kovacs.cl'; {destino}
   IdMessage1.From.Name := 'mena';
   IdMessage1.From.Address := 'cmena@kovacs.cl'; {remitetente}
   IdMessage1.Subject := 'prueba';
   IdMessage1.Body.Text := 'la raja';
   IdSMTP1.Connect(30000);
   try
     try
       IdSMTP1.Send(IdMessage1);
     except
       on exception E: Exception do
         ShowMessage('fallo');
       end;
   finally
     if IdSMTP1.Connected then
       IdSMTP1.Disconnect;
     end;
     IdMessage1.Free;
     IdSMTP1.Free;
   end;

se me cae con un error se socket #10053, el servidor kovacs.cl lo tengo en la intraweb, lo tengo con otra direccion de red pero dentro de la misma intraweb, dentro de la Lan tengo un router que me conecta con el servidor de correo, no tendre que definir la direccion ip del router como puerta de enlace? MI TCP/IP ESTA YA CONFIGURADO Y EL ENVIO DE CORREO POR EL OUTLOOK FUNCIONA CORRECTAMENTE.

[cmena]

no hay caso, se cae, kovacs.cl es mi servidor oficial de correo por que no conecta tendre que conficurar algo mas en el componente idsmpt?

Código Delphi [-]
   {...}
   IdSMTP1.Port := 25;
   IdSMTP1.Host := 'kovacs.cl'; {'smtp.kovacs.cl'}
   IdSMTP1.Username := '';
   IdSMTP1.Password := '';
   IdMessage1.Recipients.Add;
   IdMessage1.Recipients[0].Name := 'armijo';
   IdMessage1.Recipients[0].Address := 'cmena@kovacs.cl'; {destino}
   IdMessage1.From.Name := 'mena';
   IdMessage1.From.Address := 'cmena@kovacs.cl'; {remitetente}
   IdMessage1.Subject := 'prueba';
   IdMessage1.Body.Text := 'la raja';
   IdSMTP1.Connect(30000);
   try
     try
       IdSMTP1.Send(IdMessage1);
     except
       on exception E: Exception do
         ShowMessage('fallo');
       end;
   finally
     if IdSMTP1.Connected then
       IdSMTP1.Disconnect;
     end;
     IdMessage1.Free;
     IdSMTP1.Free;
   end;

[Sotrono]

Hola, encerra el codigo con la etiqueta code porque asi es imposible de leer.