Como puedo pegar una imagen en un mail?

Nayla · #1 08-11-2007

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 · #2 08-11-2007

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] · #3 08-11-2007

Echale un vistazo a este documento.

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

Saludos

Nayla · #4 08-11-2007

Gracias gluglu

pero me he mirado el documento que me enlazabas y sigo sin ver el error

Los mails que recibo me salen con estas opciones de cabecera:

This is a multi-part message in MIME format

--=_NextPart_2relrfksadvnqindyw3nerasdf

Content-Type: text/plain

Content-Transfer-Encoding: 7bit

--=_NextPart_2relrfksadvnqindyw3nerasdf

Content-Type: image/jpeg;

name="logo_endesa.jpg"

Content-Transfer-Encoding: base64

Content-Disposition: inline;

filename="logo_endesa.jpg"

content-id: logo_endesa.jpg

--=_NextPart_2relrfksadvnqindyw3nerasdf--

Parece como si estuviera "pasando" de esta parte del codigo que le pongo:

Código Delphi [-]  vIdText := TidText.Create(idMessage.MessageParts, slBody);
  vIdText.ContentType := 'text/html';

O no se, hay alguna cosa que se me escapa y que no entiendo lo que esta pasando.

[gluglu] · #5 08-11-2007

Cuando yo mando un mensaje con imágenes dentro del texto HTML, mi cabecera del mensaje es la siguiente :

Cita:

This is a multi-part message in MIME format
--caML6cRopV0jyVq6oi0rFDqp=_13MyJWkT
Content-Type: text/html ; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<html><body>
<img src=3D"cid:0001">

....
....

--caML6cRopV0jyVq6oi0rFDqp=_13MyJWkT
Content-Type: image/jpeg;
name="AT0001.JPG"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="AT0001.JPG"
Content-ID: 0001

A mi al menos me funciona perfectamente de esta manera. Y mira que en su momento hice muchísimas pruebas. Compara mi cabecera con la que tu expones y a ver si te ayuda en algo. Está claro que la forma de usarlo es diferente.

Espero que te sirva de ayuda.

Nayla · #6 08-11-2007

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] · #7 08-11-2007

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.

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Modo Híbrido Cambiar a Modo Hilado

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