Enviar Mail con Adjunto desde delphi 2010

[tulio]

Gracias German, Lucho6007

Estoy necesitando algo sencillo para enviar un mail con un archivo adjunto a una lista de 100 personas, quiero hacer un while y tomando el mail de cada persona enviarle
el mail y el archivo, estoy usando delphi 2010.

Gracias

[Casimiro Notevi]

Te ha respondido Neftali [Germán.Estévez], con 5 enlaces a ejemplos, pero si no das información entonces es difícil ayudarte porque no es lo mismo enviar un email desde yahoo que desde gmail, por citar sólo un par de ejemplos.

[tulio]

Hola, ahi encontre una solucion sencilla

toma el mail de hotmail definido en outlook

Graciasss

Código Delphi [-]
procedure TF_lisingre.BitBtn5Click(Sender: TObject);
const
  olMailItem = 0;
var
  Outlook, MailItem: OLEVariant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;

  MailItem := Outlook.CreateItem(olMailItem);
  MailItem.Recipients.Add('destino@hotmail.com');
  MailItem.Subject := 'Holaaa';
  MailItem.Body := 'Cuerpo del Mensaje';
  MailItem.Attachments.Add('C:\archivo1.sql');
  MailItem.Attachments.Add('C:\archivo2.sql');
  MailItem.Send;
  //Outlook := Unassigned;
end;

[Neftali [Germán.Estévez]]

Empezado por tulio

...toma el mail de hotmail definido en outlook

Ojo que eso sólo funciona si tienes Outlook instalado y licenciado (y habrá que ver con qué versiones).
Eso no es lo que pedías en tu pregunta original.

Si usas otro programa de correo o cualquier versión web, no funcionará.