Foros Club Delphi - Enviar consulta sql x mail

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)

- - Enviar consulta sql x mail (https://www.clubdelphi.com/foros/showthread.php?t=24744)

Enviar consulta sql x mail

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

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.

Gracias, Dec.
Vere como lo hago.
Saludos.

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

Código:

  

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