Problemas con TIdSMTP

[Angel.Matilla]

Buenas otra vez; aquí está de nuevo el pesado de turno.

Tengo, como ya sabéis, una aplicación hecha en BCB6 con una base de datos FB y estoy teniendo un problema al enviar correos desde la misma para lo que uso un TIdMessage, asociado a un TIdSMTP, (ver. 10.6.2.0) que tengo definido así:

Mensaje->AttachmentEncoding = 'UUE'
Mensaje->CharSet = 'iso-8859-1'
Mensaje->ContentType = 'text/plain'
Mensaje->Encoding = mePlainText
Mensaje->ConvertPreamble = True

El usuario me ha pedido incluir en los mensajes su logotipo como firma y en principio creía que no había mayor problema, que bastaba con incluirlo como adjunto y listo. Pero no he encontrado la manera de incluir ese logotipo en el mensaje de forma que se haga legible. Sin envío el mensaje sin el logotipo, con este código:

Mensaje->MessageParts->Add();
Mensaje->Subject     = <Asunto>;
Mensaje->Body->Text  = <Cuerpo del mensaje>;
Mensaje->Body->Text = fMenu->MenCor->Body->Text + <Firma>;

Se envía sin mayor problema; por ejemplo:

Esto es una prueba
Esto es una prueba
Esto es una prueba
Esto es una prueba
Esto es una prueba

-----

Atentamente,
Ángel

Pero si trato de "incrustar" una imagen (JPG) que haga de firma con este código:

TIdAttachmentFile *Firma  = new TIdAttachmentFile("Imagen.jpg");
Firma->ExtraHeaders->Values["Content-ID"] = "<imagen.jpg>";

Evidentemente, el logo ya lo tengo guardado en un fichero. Lo que obtengo es esto:

Esto es una prueba
Esto es una prueba
Esto es una prueba
Esto es una prueba

-----

Atentamente,
Ángel

begin 660 Imagen.jpg
M_]C_X``02D9)1@`!`0```0`!``#_VP!#``,"`@,"`@,#`P,$`P,$!0@%!00$
[...]
end

Yo sé que todo eso que hay entre el begin y el end es la imagen pero ¿cómo hago para que se vea en el mensaje?

[Casimiro Notevi]

Deberás cambiar 'text/plain' por html.
Echa un vistazo por los foros, se ha tratado varias veces antes.

[Angel.Matilla]

Estaba convencido de que lo había probado... y así es. Si pongo text/html esto es lo que recibo:

Esto es una prueba. Esto es una prueba. Esto es una prueba. Esto es una prueba. Esto es una prueba. ----- Atentamente, �ngel begin 660 Imagen.jpg M_]C_X``02D9)1@`!`0```0`!``#_VP!#``,"`@,"`@,#`P,$`P,$!0@%!00$ [...]end
Tal cual: sin retornos de carro ni nada.

[Casimiro Notevi]

Echa un vistazo a este hilo.
Y este también.
Y este otro.

[Angel.Matilla]

Gracias. Lo miraré.

[Angel.Matilla]

He estado mirando los enlaces que me has mandado, y otros que encontré en el foro como Enviar mails con imágenes, y entiendo la filosofía de lo que explican. Pero me ha surgido un problema: como sabéis uso BCB 6 y me está costando adaptar el código Delphi. Hay una línea especialmente que se pone de uñas, esta:

Código Delphi [-]
lTextPart := TIdText.Create(lMessage.MessageParts);

Si trato de adaptarla a Builder entiendo que debería ser algo así:

TIdText *Texto;
Texto = new TIdText(MenCor->MessageParts);

siendo MenCor un TidMessage, pero al compilar me da este error:

[C++ Error] Funciones.cpp(1310): E2285 Could not find a match for 'TIdText::TIdText(TIdMessageParts * const)'

En la ayuda del objeto me indica que la sintaxis sería:

Create(Collection: TIdMessageParts; ABody: TStrings);
Parameters
Collection: TIdMessageParts
Owner of the collection item.

ABody: TStrings = nil
Content of the message part.

He probado también esto:

TIdText *iTexto;
TIdMessageParts *iMensaje;
iMensaje = new TIdMessageParts(MenCor);
iTexto = new TIdText(iMensaje);

pero me da el mismo error. ¿Podéis echarme una mano aunque sea un peado?