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