Como puedo pegar una imagen en un mail?

[Nayla]

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]]

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

[Nayla]

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]]

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;

[Nayla]

Pues no se lo que hago mal pero sigue sin funcionar

Pongo un poco del codigo a ver si alguien me puede iluminar

Código Delphi [-]
 
with IdMessage do begin
ContentType := 'multipart/mixed';
From.Address := 'midireccion';
From.Name := vRemitent
Subject := 'MiAsunto'
Recipients.EMailAddresses := vMail;
Body.Clear;
end;
vNomArxiu := 'nombreImagen.jpg';
slBody := TStringList.Create;
slBody.Assign(ConstruirCosMissatge(pIdClient, pDataPublic, Usuari)); 
 
vIdText := TidText.Create(idMessage.MessageParts, slBody);
vIdText.ContentType := 'text/html';
 
if FileExists(vPathTemp + vNomArxiu) then begin
vIdAttach := TIdAttachment.Create(idMessage.MessageParts, vPathTemp + vNomArxiu);
vIdAttach.ContentType := 'image/jpeg';
vIdAttach.ContentDisposition := 'inline';
vIdAttach.ExtraHeaders.Values['content-id'] := vNomArxiu;
vIdAttach.DisplayName := vNomArxiu;
end;
 
idMessage.Body.Assign(slBody);
 
with idSMTP do begin
Host := 'MiHost';
Port := 25;
HeloName := 'Loquesea';
AuthenticationType := atLogin;
Username := 'MiUsuario';
Password := 'MiPassword';
Connect();
Send(IdMessage);
end;

Gracias de antemano

[Nayla]

Perdon que no dije que lo que me pasa con el codigo anterior es que recibo un mail con dos attachment, uno de texto, y otro con la imagen.

No consigo que funcione bien todavia

[[gluglu]]

Echale un vistazo a este documento.

En él se explica perfectamente todos los tipos de mensajes, y como definirlos correctamente.

Saludos