AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Tabelle in e-Mail einbauen

Ein Thema von Ykcim · begonnen am 18. Jul 2011 · letzter Beitrag vom 21. Jul 2011
Antwort Antwort
Benutzerbild von s.h.a.r.k
s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge
 
#1

AW: Tabelle in e-Mail einbauen

  Alt 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)
  Mit Zitat antworten Zitat
Ykcim

Registriert seit: 29. Dez 2006
Ort: NRW
856 Beiträge
 
Delphi 12 Athens
 
#2

AW: Tabelle in e-Mail einbauen

  Alt 18. Jul 2011, 15:52
Okay - vielleicht hilft mir diese Info schon weiter! Ich werde es ausprobieren und mich dann melde!

Vielen Dank
Patrick
  Mit Zitat antworten Zitat
Ykcim

Registriert seit: 29. Dez 2006
Ort: NRW
856 Beiträge
 
Delphi 12 Athens
 
#3

AW: Tabelle in e-Mail einbauen

  Alt 18. Jul 2011, 21:56
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
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
Patrick
  Mit Zitat antworten Zitat
Benutzerbild von s.h.a.r.k
s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge
 
#4

AW: Tabelle in e-Mail einbauen

  Alt 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)
  Mit Zitat antworten Zitat
Ykcim

Registriert seit: 29. Dez 2006
Ort: NRW
856 Beiträge
 
Delphi 12 Athens
 
#5

AW: Tabelle in e-Mail einbauen

  Alt 18. Jul 2011, 22:38
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
Patrick
  Mit Zitat antworten Zitat
bernerbaer
(Gast)

n/a Beiträge
 
#6

AW: Tabelle in e-Mail einbauen

  Alt 18. Jul 2011, 22:55
ungetestet (hab kein delphi auf dem Netbook)
stringgrid to table
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)

Geändert von bernerbaer (18. Jul 2011 um 23:08 Uhr)
  Mit Zitat antworten Zitat
Ykcim

Registriert seit: 29. Dez 2006
Ort: NRW
856 Beiträge
 
Delphi 12 Athens
 
#7

AW: Tabelle in e-Mail einbauen

  Alt 19. Jul 2011, 16:05
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
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
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
Patrick

Geändert von Ykcim (19. Jul 2011 um 16:08 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz