Como puedo pegar una imagen en un mail?

Nayla · #1 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] · #2 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 · #3 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] · #4 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 · #5 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] · #6 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.

Nayla · #7 09-11-2007

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.

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