Pegar Imagen En Correo

[carlos gonzalez]

Buenas Tardes Amigos del Foro.

Alguien de ustedes sabe como puedo pegar una imagen en el cuerpo del correo, no como archivo atachado, esto para darle mas presentación al correo, si alguien sabe y lo puede compartir se los voy agradecer bastante. La aplicación que estoy modificando esta echa en Delphi 7 y para el envió de los correos utilizo los componentes TidMessage y TidSMP, les anexo una parte del código que uso para el envió de correos.

Código Delphi [-]
               VLSbody_correo:='Se ha enviado el reporte De Entregas del mes de marzo';
               SMTPcorreos.Host:='179.19.10.200';
               SMTPcorreos.Port:=45;
               MSGcorreos.from.Name:='Sistema ERP';
               MSGcorreos.From.Address:='Reportes@maosis.mx';
               MSGcorreos.Subject:='Reporte De Entregas';
               TIdAttachment.Create(MSGcorreos.MessageParts, 'C:\Reporte_Entregas.XLS');
               MSGcorreos.Body.Clear;
               MSGcorreos.Body.Add(VLSbody_correo);
               MSGcorreos.Recipients.EMailAddresses:=VLScorreo_to;
               MSGcorreos.CCList.EMailAddresses:=VLScorreo_cc

Les agradezco la ayuda que me puedan brindar.

Su amigo Charless..

[[newtron]]

Carlos.


Yo te podría enviar un pequeño proyecto de pruebas, no muy pulido pero funciona. El problema es que está en Delphi 2007 y no lo vas a poder abrir con tu D7.


Saludos

[rumiante89]

Hola Carlos,

¿Has probado agregando codigo HTML? Subir la imagen a un servidor y usar la etiqueta IMG.