Enviar Mail con Adjunto desde delphi 2010

[tulio]

Hola tanto tiempo

Necesito un ejemplo de como enviar un mail con un adjunto desde Delphi 2010, por favor si alguien me puede pasar un ejemplo
concreto, porque buscando en el historial del foro no encontre ninguno que me funcione.

Desde ya muchas Gracias

[lucho6007]

Hola Tulio, ¿qué componente estás usando? ¿que error te aparece? ¿que casilla de correo usas? ¿es un webmail? ¿tenés código para analizar qué está pasando?

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

Hay varios mensajes en el foro que hablan sobre el tema. Si ya has probado algo y no te funciona deberías comentar cual es el problema.

http://www.clubdelphi.com/foros/showthread.php?t=85331
http://www.clubdelphi.com/foros/showthread.php?t=82499
http://www.clubdelphi.com/foros/showthread.php?t=25630
http://www.clubdelphi.com/foros/showthread.php?t=86401

Si buscas encontrarás muchos más.

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