Hola Murci:
"
Cita:
TIdAttachment.create(mail.MessageParts,abrir.filename);
|
"
Creo que te falta introducir algún parámetro mas:
Mira te pongo un ejemplo de como envió uno o varios archivos adjuntos (TIPO IMAGEN) en el cuerpo del mail... Repasa estos parámetros y seguro que encuentras la solución...
Código Delphi
[-]
if findFirst(FTempDir + '*.jpg',faAnyFile ,sr) = 0 THEN
REPEAT
OpenfileJPG := FTempDir + SR.Name;
slBody.Add('');
idAttach := TidAttachment.Create(p, OpenfileJPG);
idAttach.ContentType := 'image/jpeg';
idAttach.ContentDisposition := 'inline';
idAttach.ExtraHeaders.Values['content-id'] := Sr.Name;
idAttach.DisplayName := Sr.Name;
until FindNext(sr) <> 0;
FindClose(sr);