Enviar correos y adjuntar archivos...

[LuisHatake]

hola dec buenas noches, espero me puedan ayudar. yo estoy intentando enviar un documento de excel. esto es un parte de mi codigo

DATA.From.Address := username;
DATA.Recipients.EMailAddresses := totarget;
DATA.subject := subject;
DATA.body.text := body;
DATA.ContentType := 'application/ms-excel';
DATA.LoadFromFile('C:\archivo.xlsx');



SMTP.IOHandler := SSL;
SMTP.Host := 'smtp.gmail.com';
SMTP.Port := 587;
SMTP.username := username;
SMTP.password := password;
SMTP.UseTLS := utUseExplicitTLS;

SMTP.Connect;
SMTP.Send(DATA);
SMTP.Disconnect;

tambien he intentado con lo que sugieres pero me da el siguiente error:
Constructing instance of 'TIdAttachment' containing abstract method 'TIdAttachment.OpenLoadStream'
espero me puedan ayudar de ante mano muchas gracias. Saludos cordiales!