Enviar consulta sql x mail

[lbidi]

Hola, amigos.

Tengo una consulta resultado de un query en un rxgrid.
Necesito enviar esta consulta x mail a varios destinatarios.
Como puedo hacer??
No me importa si lo paso en txt o xls.

Gracias.
Leo

[dec]

Hola,

Acaso pudieras guardar la consulta (de algún modo) en un archivo y enviarlo como adjunto en un correo rumbo a los destinatarios que fuera menester. Aquí tienes un ejemplo de cómo hacerlo con los componentes Indy en Delphi 7. Si lo del archivo adjunto no te place podrías enviar la consulta en el propio cuerpo del correo. La dificultad estriba en cómo pasar esa consulta al cuerpo del correo, sea este en formato HTML, sea en texto "plano"... ahí ya no te sabré ayudar, pero, intuyo que imposible no tiene que ser, y valga para tantas otras cosas que sí parecen imposibles.

[lbidi]

Gracias, Dec.
Vere como lo hago.
Saludos.

[jonmendi]

hola
yo tuve un problema parecido hace algún tiempo. Para guardar la consulta puedes usar esto:

  
procedure creartabladesdesql(directorio:string;query:TQuery);
var
  InitTable: TTable;
  InitBatch: TBatchMove;
begin
 InitTable := TTable.Create(Application);
 with InitTable do
 begin
  DatabaseName := directorio;
  TableName	:= 'tabladesql';
 end;
  InitBatch := TBatchMove.Create(Application);
  with InitBatch do
  begin
	Destination := InitTable;
	Source	  := Query;
	Mode		:= batCopy;
	Execute;
  end;
  InitTable.Free;
  InitBatch.Free;
end;

Funciona bien, pero si la tabla tiene algún indice, ten en cuenta que a la hora de adjuntar la tabla también deberás adjuntar los .loquesea.

Para enviar un mail hay varias soluciones por ahí. Si necesitas ayuda, pídela.

Un slaudo,
jon