Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Enviar contenido DBGrid por IdMessage (https://www.clubdelphi.com/foros/showthread.php?t=78380)

BlueSteel 14-04-2012 00:37:39

Enviar contenido DBGrid por IdMessage
 
Hola Taringeros...

Hace tiempo realice un proceso para enviar un correo electronico desde mi sistema....

ahora quiero ocupar ese mismo procedimiento, pero necesito agregar en el cuerpo del mensaje el contenido de una sentencia SQL, la cual estoy mostrando por un JvDbGrid...

Existe alguna forma...

Por mientras estoy tratando de realizar el proceso, si alguien tiene una forma sencilla de realizar, favor indicar

se me olvidaba...

hasta el momento tengo esto

Código Delphi [-]
      Body.Clear;
          Body.Add('A Continuación se detalla un informe de Ingresos de Abonos segun sector del Evento');
          Body.Add(vEve.Text);
          From.Text := 'Control Estadio';
          Recipients.EMailAddresses := 'correo@prueba.cl';
          Subject := 'Informe de Ingresos de Abonos por Sector';
          Priority := TidMessagePriority(mpHighest);


Gracias


Salu2:D:p

BlueSteel 14-04-2012 01:11:48

Bueno,,,, al menos avance algo... pero me falta dar el formato....

Código Delphi [-]
   With IdMessage Do
     Begin
          Body.Clear;
          Body.Add('A Continuación se detalla un informe de Ingresos de Abonos segun sector del Evento');
          Body.Add(vEve.Text);

          Body.Add('UBICACION                  INGRESOS');
          Datos.AQ_IngresosXUbi.First;

          While Not Datos.AQ_IngresosXUbi.Eof Do
          Begin
               Body.Add(EspacioIzquierda(Datos.AQ_IngresosXUbi['Ubi_Detalle'],40)+'   '+IntToStr(Datos.AQ_IngresosXUbi['Ingresos']));
               Datos.AQ_IngresosXUbi.Next;
          End;
          Body.Add(' ');

          Body.Add(EspacioIzquierda('TOTAL DE INGRESOS',40)+'   '+CerosIzquierda(IntToStr(Datos.AQ_Select['Tot']),5));


          From.Text := 'prueba@correo.cl';
          Recipients.EMailAddresses := 'gerente@prueba.cl';
          Subject := 'Informe de Ingresos de Abonos por Sector';
          Priority := TidMessagePriority(mpHighest);
//          TidAttachment.Create(IdMessage.MessageParts,Concat('O:\',IntToStr(Ordenes.IBQ_Select['Ord_Numero']),'.pdf'));
     End;

Salu2


La franja horaria es GMT +2. Ahora son las 01:09:31.

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