Como puedo pegar una imagen en un mail?

[Nayla]

Ya si yo lo que digo es que a pesar de que le estoy intentando forzar a que el content-type del idtext sea "text/html" me sigue saliendo "text/plain" y no sé por qué

[[gluglu]]

He revisado mi código :

Código Delphi [-]
IdMessage1.ContentType := 'multipart/related; type="text/html"';
 
...
 
// Just HTML Text, No Attachments, No Embedded Images
MessageType := 1;
IdMessage1.ContentType := 'multipart/alternative';
...
// HTML Text + Attachments, No Embedded Images
MessageType := 2;
IdMessage1.ContentType := 'multipart/mixed';
...
// HTML Text + Attachments + Embedded Images
MessageType := 3;
IdMessage1.ContentType := 'multipart/mixed';
with TIdText.Create(IdMessage1.MessageParts, nil) do begin
  ContentType := 'multipart/related; type="multipart/alternative"';
end;
with TIdText.Create(IdMessage1.MessageParts, nil) do begin
  ContentType := 'multipart/alternative';
  ParentPart := 0;
end;
...
// HTML Text + Embedded Images, No Attachments
MessageType := 4;
IdMessage1.ContentType := 'multipart/related; type="text/html"';

// MessageType
// 1 = Only Text HTML
// 2 = Text + File Attachments
// 3 = Text + File Attachments + Embedded Images
// 4 = Text + Embedded Images
 
with TIdText.Create(IdMessage1.MessageParts, nil) do begin
  Body.Assign(html);
  ContentType := 'text/html';
  if MessageType = 3 then ParentPart := 1;
  CharSet     := 'iso-8859-1';
end;
 
with TIdAttachmentFile.Create(IdMessage1.MessageParts, 'C:\AT0001.JPG') do begin
  ContentID   := '0001';
  ContentType := 'image/jpeg';
  FileName    := 'AT0001.JPG';
  if MessageType = 3 then ParentPart := 0;
end;

with TIdAttachmentFile.Create(IdMessage1.MessageParts, 'C:\AT0002.JPG') do begin
  ContentID   := '0002';
  ContentType := 'image/jpeg';
  FileName    := 'AT0002.JPG';
  if MessageType = 3 then ParentPart := 0;
end;

A ver si con estas líneas de código ya te funciona.

[Nayla]

Buenas de nuevo

pues, haciendo mas pruebas he visto que me pasa una cosa un poco rara

el mail que envio lo envio por cada usuario que tiene asignado determinado cliente. El caso es que he visto, que el primer usuario recibe mal el mail. Pero el segundo usuario, lo recibe perfecto. Los dos pasan por la misma funcion de EnviarMail asi que no entiendo porque con la segunda pasada del bucle funciona bien y con la primera funciona mal. El mail que tendrian que recibir es el mismo.