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

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