Tabelle in e-Mail einbauen

[Ykcim]

Hallo Zusammen,

Ich programmiere mit TurboDelphi und MySQL...
Ich habe in meinem Programm eine Funktion eingebaut, damit bei bestimmten Ereignissen an einen variablen Empfängerkreis eine e-mail automatisch verschickt wird. Das klappt auch ganz gut.

Jetzt kommt die Schwierigkeit. Ich möchte den Inhalt von einem StringGrid in gleicher tabellarischer Form in diese e-Mail einfügen und ich weiß nicht wie das geht. Ich habe heute das erste Mal mit der Mail Funktion gespielt und habe dazu folgenden (zugegebener Maßen geklauten ) Code verwendet:

Delphi-Quellcode:

function SendEmail(Recipient:string;CCList:string;sSubject:string;Body:TStringList):boolean;
var
  nAlarmnr:integer; 
begin 
 idSMTP:=TidSMTP.Create;
 idMessage:=TidMessage.Create;
 idSMTP.Host   := 'xxx.xx.xx.xxx';
 idSMTP.Username := 'Max.Mustermann';
 idSMTP.Password := 'master';
 idSMTP.Port   := 25; 


 idMessage.From.text  :='[e-mail]';
 idMessage.Sender.text:=idMessage.From.text; 


 idMessage.Recipients.EMailAddresses:= Recipient; 
 idMessage.CCList.EMailAddresses := CCList; 
 idMessage.Subject:=sSubject; 


 idMessage.Body.Clear; 
 idMessage.Body := Body; 


 try 
   idSMTP.Connect; 
   idSMTP.Send(idMessage); 
   idSMTP.Disconnect;
   result:=True; 
   except on E : Exception do 
     begin 
       if idSMTP.connected then try idSMTP.disconnect; except end; 
       result := false; 
     end; 
 end; 
end;

Der Aufruf sieht so aus:

Delphi-Quellcode:

st := TStringList.Create;
  st.Text := Text;
  SendEmail(empfaenger, '', betreff, st);
  st.Free;

Weil der Text variabel ist, habe ich mir diesen ganz wild zusammengebaut. Allerdings benötige ich für eine Mail eine Tabelle.

Kann mir jemand einen Tip geben (außer, dass man keine Codes klauen soll) wie ich eine automatische Mail mit einem StringGrid in einer Tabelle erstelle?

Vielen Dank

Ykcim