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í:
Código:
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:
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:
Cita:
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:
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:
Cita:
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?