Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Pegar Imagen En Correo (https://www.clubdelphi.com/foros/showthread.php?t=94587)

carlos gonzalez 17-04-2020 23:38:55

Pegar Imagen En Correo
 
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 18-04-2020 11:23:09

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 20-04-2020 20:34:08

Hola Carlos,

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


La franja horaria es GMT +2. Ahora son las 13:01:19.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi