Como puedo pegar una imagen en un mail?

Nayla · #1 07-11-2007

Buenas

Tengo que hacer una aplicacion donde se genera una serie de mails de forma automatica. Los mails se generan ya bien y se envian correctamente.

El problema que tengo es que el contenido es en formato html y tengo que añadir algunas imagenes dentro de este codigo html. Las imagenes las tengo que recoger de una BD (un campo BLOB de una tabla de ORACLE).

Existe alguna forma de recoger esta imagen (JPG o GIF) de la BD e incrustarla dentro del contenido del cuerpo del mail?

Muchas gracias por adelantado, espero haberme explicado bien en lo que quiero hacer.

fide · #2 07-11-2007

Mira, si no me equivoco, en el cuerpo del mensaje debes de poner por ejemplo...

<html>
<img src="NombreImagen.jpg" width="60" height="70">
<body>
Hola. Aqui va el cuerpo del mensaje...
</body>
</html>

Y para que esto surta efecto, me parece que basta con adjuntar al IMAIL la imagen que se debe de mostrar, es decir una imagen con el nombre y extension que tu allas puesto dentro de la etiqueta img...

Espero resulte. Saludos y suerte. Ha, me dices si te funciono...

Nayla · #3 08-11-2007

Hola fide,

pues he probado lo que me dices pero cuando añado el adjunto de la imagen deja de interpretarme el código html del mail. Me sale todo como si fuese texto plano.

Seguire investigando

[ArdiIIa] · #4 08-11-2007

Supongo que estás utilizando las INDY (IdSMTP) para el envío de los mensajes ??

Nayla · #5 08-11-2007

Si, estoy usando las INDY.

He leido por ahi que tengo que hacer el mensaje multipart, y hacer como dos partes, una con el texto html y otra con la imagen.

Estoy haciendo pruebas pero todavia no he conseguido resultados.

[ArdiIIa] · #6 08-11-2007

Ok.
Te pongo unas porciones de código que utilizo para enviar emails mediante un Thread en Backgorund.

La idea es extraer las imágenes de la BD a un directorio temporal y seguidamente procesarlas para incluirlas en el cuerpo del mensaje.

Como te digo, son partes de código que seguramente te sea de ayuda, el resultado final, dependerá de tu pericia.

Código Delphi [-]
constructor TSendMail.Create(TmpDir: String);
begin
  inherited Create(True);
  FTempDir := TmpDir;
  Priority := tpIdle;
  FreeOnTerminate := True;
  FTmpStream := TMemoryStream.Create;
  IdSMTP := TIdSMTP.Create(nil);
  IdMessage := TIdMessage.Create(NIL);
  p :=  IdMessage.MessageParts;
  slBody := TstringList.Create;

    slBody.Add('');
    slBody.Add('');
    slBody.Add('');
    slBody.Add('');

     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);
    slBody.Add('');
    slBody.Add('');
FormMain.ProgressBar.Position := 0;
FormMain.ProgressBar.Visible := True;
end;


procedure TSendMail.Execute;
Var cTemp : String;
begin
  try
    while GlobalFindAtom('SEND_MAIL_BACK')  <> 0 do
    BEGIN
    SLEEP(1000);
    END;

    GlobalAddAtom('SEND_MAIL_BACK');
    Cuentas := TAccountItems.Create;
    LoadOptions(Cuentas);
    cTemp := '@' + copy(Cuentas[Cuentas.Principal].ServerPop3,1 + Pos('.', Cuentas[Cuentas.Principal].ServerPop3),99);
    IdMessage.From.Address := Cuentas[Cuentas.Principal].Login + cTemp;
    IdMessage.From.Name := Cuentas[Cuentas.Principal].Name;
    IdMessage.Recipients.Add;
    IdMessage.ContentType := 'multipart/mixed';
    IdSMTP.Username  := Cuentas[Cuentas.Principal].Login;
    IdSMTP.Host      := Cuentas[Cuentas.Principal].ServerSMTP;
    IdSMTP.Password  := Cuentas[Cuentas.Principal].Password;
    idText1 := TidText.Create(p, slBody);
    idText1.ContentType := 'text/html';
    idText2 := TidText.Create(p);
    idText2.ContentType := 'text/plain';
    idText2.Body.Add('UTILICE EL MODO APAISADO DE IMPRESIÓN SI DESEA IMPRIMIR EL DOCUMENTO, ');
    IdMessage.Body.Assign(slBody);
    IdMessage.SaveToStream(FTmpStream,False);
    FormMain.ProgressBar.Max := FTmpStream.Size;
    FormMain.ProgressBar.Position := 0;
    FormMain.ProgressBar.Visible := True;
    IdSMTP.OnWork := IdSMTPWork;
    IdSMTP.OnStatus := IdSMTPStatus;
    IdSMTP.AuthenticationType := atNone;
    IdSMTP.Connect;
    if IdSMTP.AuthSchemesSupported.IndexOf('LOGIN')>-1 then
    begin
      IdSMTP.AuthenticationType := atLogin;
      IdSMTP.Authenticate;
    end;
    idSMTP.Send(idMessage);

    Synchronize(Sound);
    FStatus := 'MAIL ENVIADO CORRECTAMENTE';
    Synchronize(UpdateStatus);
     //Borrado de ficheros y directorio temporal
    if findFirst(FTempDir + '*.*',faAnyFile ,sr) = 0 THEN
     REPEAT
     DeleteFile(FTempDir + SR.Name);
     until FindNext(sr) <> 0;
     FindClose(sr);
     RemoveDir(FTempDir);

   finally
   FStatus := 'ERROR INDETERMINADO';
   Synchronize(UpdateStatus);
   CleanUP;
   end;
end;

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Como puedo guardar una imagen dentro de una tabla	jooooseph	Gráficos	3	13-10-2007 02:11:56
Pegar una imagen en un doc	gabyzava	Varios	3	17-08-2007 18:54:07
Copiar pegar y cortar una imagen!!!!	Juangu	Gráficos	4	09-06-2005 18:28:24
como puedo Agregar un Archivo en un mail	carlosmoralesm	Internet	4	05-05-2004 12:12:19
pegar imagen a word desde delphi	ciscu	Servers	3	14-01-2004 12:00:52