Envio de archivos adjuntos con TIdSmtp

[[ArdiIIa]]

Hola Murci:

"

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);