Enviar contenido DBGrid por IdMessage

[BlueSteel]

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


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]

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


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