Email HTML sus fotos adjuntarlas

Descendents · #1 19-11-2003

Buenas

Envio emails con las indy contenttype:text/plain o text/html
es decir texto o html,y tengo el siguiente problema.

Al enviar html, me envia el archivo, pero no sus fotos adjuntas.
Es lógico, pero no se enviar sus fotos adjuntas con el propio archivo html.

Supongo que podria hacer un contenttype='multipart/mixed', y atachar los archivos manualmente.Es decir:
idAttach := TidAttachment.Create(idmessage1, 'c:\foto.jpg');
idAttach.ContentType := 'image/jpeg'.

Pero claro aqui me veo obligado a saber el nombre de todas las fotos.

Entonces tendria que saber alguna manera de sacar de un html todos los archivos que necesita, ya sean jpgs o gifs o lo que sea.

Espero me entiendan

Alguien sabe como puedo solucionarlo?

Un saludo

DarkByte · #2 19-11-2003

Yo se algo sobre HTML. pero soy algo cortito: ¿Hay para tu pregunta alguna explicación "para torpes"?.

¿Cuáles de estas cosas es la que quieres hacer?.
1) Enviar un correo html con una imagen sin saber la ruta de la img??
2) Buscar una imagen e incrustarla en el documento HTML???
3) Buscar en una página web todos los archivos de imágenes y mandarlos por correo???.

Sorry, pero o es la gripe, o me estoy haciendo viejo, no entiendo qué es lo que quiere

Descendents · #3 19-11-2003

Quiero enviar con las indy un email html.

Hasta aqui todo bien, pero las páginas html, tienen fotos adjuntas.Es decir, por ejemplo google, tiene su logo que es una foto.

Pues yo envio la página web atraves de un email html, y cuando llega, llega sin las fotos.

Quiero con las indy enviar la página entera, es decir la página y sus fotos adjuntas, pero todo dentro del archivo.

Por que sino me llegara como archivo adjunto y eso no lo quiero.

Un saludo

DarkByte · #4 19-11-2003

No se si habrás diseñado alguna vez alguna web..., pero a mi me da que eso de poner gráficos y html en un archivo no se puede.

Lo que si se puede es, enviar los gráficos de la web como ficheros adjuntos, y añadir al código html lo siguiente:
<img scr="nombreimagen.gif" width="200" height="50">

el 200 de width lo cambias por el ancho que quieres que tenga tu imagen en pantalla y el 50 del height por el alto.

Podrías hacer que tu programa, al darle a la opción "mensaje html" hiciese algo como:

Memo1.Lines.Add ('<html>');
Memo1.Lines.Add ('<body>');
If EditDireccionArchivo.Text <> '' Then
begin
**Código para poner archivos adjuntos en indy, pues yo las indy no las utilizo..., se pondría como dirección del atach el text del EditDireccionArchivo.Text**
Memo1.Lines.Add ('<img scr="'+**alguna rutina para sacar el nombre completo del archivo sin la ruta**+'" width="200"'); height="50">
Memo1.Lines.Add ('<html>');
Memo1.Lines.Add ('</body>');
Memo1.Lines.Add ('</html>');

Bueno... no me parece que me haya explicado muy bien...
lo que hay entre ** son los comentarios...

Descendents · #5 19-11-2003

Ya lo he conseguido lo pongo aqui lo que me ha ayudado por si alguien le sirve

Código Delphi [-]var
  idAttach: TidAttachment;
  idText1: TidText;
  idText2: TidText;
  p: TidMessageParts;
  slBody: TStringList;
begin
  idMessage1.Recipients.Add;
  idMessage1.Recipients[0].Address := 'girlswants_me@yahoo.com';
  p := idMessage1.MessageParts;
  slBody := TstringList.Create;
  try
    // you can actually load the body from a RichEdit with 
    // slBody.Text := RichEdit1.LinesText;
    slBody.Add('');
    slBody.Add('');
    slBody.Add('');
    slBody.Add('');
    slBody.Add('

Here is the image:


');
    slBody.Add('');
    slBody.Add('');
    slBody.Add('');
    idText1 := TidText.Create(p, slBody);
    idText1.ContentType := 'text/html';
    idText2 := TidText.Create(p);
    idText2.ContentType := 'text/plain';
    idText2.Body.Text := '';
    // This shows how to add an attachment
    idAttach := TidAttachment.Create(p, 'c:\sm101yellow.jpg');
    idAttach.ContentType := 'image/jpeg';
    idAttach.ContentDisposition := 'inline';
    idAttach.ExtraHeaders.Values['content-id'] := 'sm101yellow.jpg';
    idMessage1.Body.Assign(slBody);
    idAttach.DisplayName := 'sm101yellow.jpg';
    idMessage1.ContentType := 'multipart/mixed';
    idSMTP1.Connect;
    idSMTP1.Send(idMessage1);
  finally
    idSMTP1.Disconnect;
    slBody.Free;
    Showmessage('done');
  end;
end;

//Lo modifique para colocar las etiquetas Delphi

Un saludo
Gracias

Descendents · #6 20-11-2003

No se como no se me ocurrio antes.
Aparte de enviarlo de la manera anterior, que funciona correctamente, también se puede enviar de otra manera, que es poniendo en el html,las rutas de las imagenes rutas de internet.

Es decir http://www.google.com/images/hp0.gif

Con lo que solo envias el html y ya esta.

Y para descargar emails siempre hay conexión en principio.
Y una vez descargado esta en la cache.

Bueno lo digo por si alguien le sirve

Un saludo

DarkByte · #7 20-11-2003

Ahhhhh, sorry, creí que te referías a enviar un mail html con tus gráficos, no con los graficos de internet...

Siento no haberte sido de ayuda