Delphi-PRAXiS - Tabelle in e-Mail einbauen

Seite 1 von 2

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)

- - Tabelle in e-Mail einbauen (https://www.delphipraxis.net/161739-tabelle-e-mail-einbauen.html)

Tabelle in e-Mail einbauen

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 :oops:) 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  :='Max@mustermann.de';

 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