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:

zusammenfalten · markieren

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:

markieren

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

Tabelle in e-Mail einbauen

Tabelle in e-Mail einbauen

Forumregeln