Enviar datos de una grilla al cuerpo de un mail

[[newtron]]

Bueno... a bote pronto podrías hacer algo parecido a esto (sin probar, escrito directamente y declarando una variable sAux tipo string):

Código Delphi [-]
sAux:='mailto:'+(mail)+ '?subject=' + 'Informe sobre su situacion con '+(DM.IBQuery_materiaNOMBRE.Value) + '&body=' + 'Su situacion es la siguiente: '+'%0D%0A'+ 'Cantidad de Faltas: '+(Label_c_falta.Caption)+'%0D%0A' + ' Faltas Justificadas: '+(Label_f_jus.Caption) +'%0D%0A'+ ' Faltas Injustificadas: '+(Label_f_injus.Caption)+'%0D%0A' +  ' Cantidad Faltas Disponibles: '+(Label_c_f_disp.Caption)+'%0D%0A' + '  Porcentaje Permitido: '+(Label_p_permitido.Caption)+'%0D%0A' + '  Situcion con la Materia: '+(Label_s_materia.Caption)+'.' + '%0D%0A' +  '%0D%0A' +' Fecha ' + ' Cantidad de Horas ' + ' Tipo de Falta ' + ' Detalles '+ '%0D%0A');
DM.first;
while not DM.eof do begin
  sAux:=sAux+DateToStr(DM.ConsultaAistenciaFECHA.Value)  + ' ' + inttostr(DM.ConsultaAistenciaC_HORA.Value)+ ' '+  (DM.ConsultaAistenciaTIPO_FALTA.Value) + ' ' + (DM.ConsultaAistenciaDETALLE.Value+ '%0D%0A';
  DM.next;
end;

ShellExecute(GetDesktopWindow(), nil, pChar(sAux),  nil, nil, SW_SHOWNORMAL);

Saludos