Foros Club Delphi - Enviar mails con imágenes

He probado el código que he encontrado en http://www.dragonsoftru.com/articles....html#part_3_4 :

Código:

var

  lMessage: TIdMessage;

  lTextPart: TIdText;

  lImagePart: TIdAttachment;

begin

  // ... some code here to initialize your SMTP server.

  // It could be done somewhere as well

  lMessage := TIdMessage.Create(Self);

  lMessage.From.Address := 'myemail@mydomain.com';

  lMessage.Subject := 'My test email';

  lMessage.Recipients.Add.Address := 'someoneemail@somedomain.com';

  lMessage.Body.Clear;

  lTextPart := TIdText.Create(lMessage.MessageParts);

  lTextPart.Body.Text := 'This is a plain text message';

  lTextPart.ContentType := 'text/plain';

  lTextPart := TIdText.Create(lMessage.MessageParts);

  lTextPart.Body.Text := '<html><body><b>This is a HTML message with picture</b><img src="htmlbodyIMG0000.JPG" ></body></html>';

  lTextPart.ContentType := 'text/html';

  lImagePart := TIdAttachment.Create(lMessage.MessageParts, 'htmlbodyIMG0000.JPG');

  lImagePart.ContentType := 'image/jpg';

  lImagePart.Headers.Add('Content-ID: <htmlbodyIMG0000.JPG>');

  // ... A code to send a message

end;

Pero aunque tengo el archivo como adjunto en el outlook me aparece el tipico cuadradito con una X de que no se encuentra la imagen (he quitado el bloqueo de imagenes...). ¿Alguien sabe a que puede deberse?

Gracias