Tabelle in e-Mail einbauen

**s.h.a.r.k**

Was genau meinst du? Du bekommst doch den Body als StringList geliefert, d.h. an deiner bisherigen Methode musst du nichts ändern. Du musst in die StringList halt nur das HTML schrieben und du bist fertig.

**Ykcim**

Okay - vielleicht hilft mir diese Info schon weiter! Ich werde es ausprobieren und mich dann melde!

Vielen Dank

**Ykcim**

Hallo,

ich war dann wohl doch ein wenig zu optimistisch... Ich habe meiner StringList über die Textvariable einen kleinen HTML-Code übergeben. Aber daraus wurde dann keine HTML-Mail, sondern der Inhalt der Mail war mein HTML-Code...

Hier eine kleine Veranschaulichung

markieren

Delphi-Quellcode:

			Text:='<HTML>'+#13#10;

  Text:=Text+'<HEAD>'+#13#10;

  Text:=Text+'</HEAD>'+#13#10;

  Text:=Text+'<body><h1>Hello</h1>'+#13#10;

  Text:=Text+'</BODY>'+#13#10;

  Text:=Text+'</HTML>';

  st := TStringList.Create;

  st.Text := Text;

  SendEmail(empfaenger, '', betreff, st);

  st.Free;

Ich wäre sehr dankbar, wenn mir jemand einen Tip geben könnte - damit ich begreife, was ich tun muss und wie ich was zu ändern habe.

Vielen Dank
Ykcim

**s.h.a.r.k**

Setz den ContentType deiner idMessage noch 'text/html'.

**Ykcim**

Ja ja, so ist das mit geklauten Codes - wusste erst nicht genau, wo ich das in meiner Umgebung unterzubringen hatte. Aber ich habe es nachvollziehen können und jetzt klappt es. Jedenfalls habe ich jetzt den richtigen Output aus meinem HTML-Code...

Ich mache mich jetzt mal ran und versuche das Ganze mit meiner Tabelle umzusetzen.

Vielen Dank für den hilfreichen Tip zur späten Stunde!

Ykcim

ungetestet (hab kein delphi auf dem Netbook)
stringgrid to table

zusammenfalten · markieren

Delphi-Quellcode:

			....

sl.add('<table>'>;

for i:=0 to SG.RowCount - 1  do

begin

  sl.add('<tr>');

  for p:= 0 to SG.ColCount - 1 do

  begin

   sl.add('<td>');

   sl.add(SG.Cells[p,i]);

   sl.add('</td>');

  end;

  sl.add('</tr>');

end;

sl.add('</table>');

...

Selbstverständlich kann das ganze noch durch css formatiert werden

(sl = Stringlist
SG = Stringgrid)

**Ykcim**

Hallo Zusammen,

das Problem ist nun gelöst - dank Eurer Hilfe.

Also kurze Beschreibung, wie ich vorgegangen bin.
1. Ich habe mir meine Vorlage unter Word erstellt und dann als "gefilterte HTML" Datei abgespeichert.
2. Habe den QuellCode mit dem Texteditor geöffnet und die Vabrialen Einträge durch "Variablen" (Markante eindeutige Wörter) ersetzt
3. Habe mit nachfolgender Zeile den Text in eine TStringList eingelesen

markieren

Delphi-Quellcode:

			// Programmpfad ermitteln

  Pfad:=ExtractFilePath(ParamStr(0));

  Pfad:=Pfad+'\Temp\KommentarMailVorlage.txt';

.

.

.

st.LoadFromFile(pfad);

4. Dann die einzelnen Variablen mit nachstehender Zeile ersetzt (Text vorher den Variabel-Inhalt zugewiesen)
st.Text:=StringReplace(st.Text, 'AUFTRAGSNR', Text,[rfReplaceAll, rfIgnoreCase]);

5. Dann habe ich mir mit nachstehendem Code meine HTML-Tabelle zusammengebaut

zusammenfalten · markieren

Delphi-Quellcode:

			for i:=1 to Kommentare.RowCount - 1 do

    begin

      Text:=Text+'<tr>'+#13#10;

      for j:= 0 to Kommentare.ColCount - 1 do

        begin

          Text:=Text+'<td><p class=MsoPlainText>'+#13#10;

          Text:=Text+Kommentare.Cells[j,i]+#13#10;

          Text:=Text+'</td>'+#13#10;

         end;

      Text:=Text+'</tr>'+#13#10;

    end;

  Text:=Text+'</table>'+#13#10;

6. Und als letztes diesen zusammengebauten Code an die Stelle der Variable TABELLE in meiner Stringlist ersetzt
st.Text:=StringReplace(st.Text, 'TABELLE', Text,[rfReplaceAll, rfIgnoreCase]);

Ich habe aus Euren Antworten diesen Mix als den am besten funktionierenden angesehen.

Vielen Dank für Eure Hilfe - das wäre sonst nie was geworden.

Gruß

Ykcim

Tabelle in e-Mail einbauen

AW: Tabelle in e-Mail einbauen

AW: Tabelle in e-Mail einbauen

AW: Tabelle in e-Mail einbauen

AW: Tabelle in e-Mail einbauen

AW: Tabelle in e-Mail einbauen

AW: Tabelle in e-Mail einbauen

AW: Tabelle in e-Mail einbauen

Forumregeln

s.h.a.r.k Registriert seit: 26. Mai 2004 3.159 Beiträge	#1 AW: Tabelle in e-Mail einbauen 18. Jul 2011, 15:50 Was genau meinst du? Du bekommst doch den Body als StringList geliefert, d.h. an deiner bisherigen Methode musst du nichts ändern. Du musst in die StringList halt nur das HTML schrieben und du bist fertig. »Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
	Zitat

Ykcim Registriert seit: 29. Dez 2006 Ort: NRW 856 Beiträge Delphi 12 Athens	#2 AW: Tabelle in e-Mail einbauen 18. Jul 2011, 15:52 Okay - vielleicht hilft mir diese Info schon weiter! Ich werde es ausprobieren und mich dann melde! Vielen Dank Patrick
	Zitat

s.h.a.r.k Registriert seit: 26. Mai 2004 3.159 Beiträge	#4 AW: Tabelle in e-Mail einbauen 18. Jul 2011, 22:03 Setz den ContentType deiner idMessage noch 'text/html'. »Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
	Zitat