[[BlueSteel]]

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