Correo por código

[sanxpue]

Holas, mira yo uso, a mi me funciona muy bien..
uso el componente TNMSMTP que esta dentro de FastNet y lo ocupo de la siguiente manera

Procedure ....
.
.
Begin
  NMSMTP1.Connect;
  NMSMTP1.PostMessage.FromAddress := '[email protected]';
  NMSMTP1.PostMessage.FromName := 'Ing. Alejandro Santos Toriz';
  NMSMTP1.PostMessage.Subject := 'Re : ';

  NMSMTP1.PostMessage.ToAddress.Add('[email protected]');
  NMSMTP1.PostMessage.ToBlindCarbonCopy.Add('[email protected]');
  NMSMTP1.PostMessage.ToCarbonCopy.Add('');
  NMSMTP1.PostMessage.Body.Assign(Memo1.Lines);
  NMSMTP1.SendMail;
  NMSMTP1.Disconnect;
End;

Donde el mensaje que deseo mandar esta dentro de Memo1

Esperando que te sirve

Como siempre a sus ordenes y siempre con buena cara