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