Enviar correo html con imagen incrustada

[[newtron]]

Hola.

Tengo un pequeño problema a ver si a alguien se le enciende la luz.

Estoy haciendo un pequeño proceso para enviar correos con formato html incrustando imágenes. El fichero html se crea desde word y lo que hago es crear un stringlist e incluirlo en el "body" del mensaje para incluir luego el archivo de la imagen.

El problema es que el que recibe el mensaje ve el recuadro donde debería de ir la imagen en blanco y al final se ve la imagen como archivo adjunto. Es como si no se enterara de que esa imagen en vez de ir como archivo adjunto va incrustada en una posición determinada del texto html.

El tema está en que word cuando insertas imagenes en un fichero html crea una carpeta con el nombre del archivo html seguido de "_archivos" donde ubica la imagen y creo que los tiros van por ahí pero no sé qué hacer para que me la enlace correctamente en el correo.

Pongo una parte del código que genera el correo.

Código Delphi [-]
  with TIdText.Create(email.MessageParts, nil) do begin
    Body.Assign(TextoHtml); // StringList con el fichero html
    ContentType := 'text/html';
  end;
  with TIdAttachmentFile.Create(email.MessageParts, sRuta+'image001.JPG') do begin
    ContentID   := '0001';
    ContentType := 'image/jpeg';
    FileName    := 'image001.jpg';
    ExtraHeaders.Values['content-id'] := 'image001.jpg';
  end;

Gracias y un saludo