Txt-Datei automatisch als E-Mail versenden

[Jens Hartmann]

Sorry, das die antwort so lange auf sich warten lies.

Aber, trotzdem noch Danke, das war die Lösung...

Delphi-Quellcode:

      slHTML.Add('<style type="text/css">'+
        '.Firmenname1 { color:#000080; font-size:234%; font-style:bolder; font-family: century gothic; }'+
        '.Firmenname2 { color:#000000; font-size:173%; font-family: century gothic; }'+
        '.Objekt1 { text-shadow:#c0c0c0 3px 3px 5px; color:#FFFFFF;'+
        ' font-size:200%; font-style:bolder;'+
        ' font-family: century gothic; background-color:#000080; }'+
        '.Event { color:#FFFFFF;'+
        ' font-size:200%; font-style:bolder;'+
        ' font-family: century gothic; background-color:#FFCC00; }'+

      slHTML.Add('<img src= "http://www.myhomepage.de/images/01_home/comp_streifen_home.png" width= "900" height= "150" align= "rigth" alt= "Titel" >');
      slHTML.Add('<div>');
      slHTML.Add('

<span class="Firmenname1">Musterfirma</span>
'+
        '<span class="Firmenname2">Musterfirma</span></p>');
{$IFDEF DEMO}
      slHTML.Add('

<span class="Objekt1">Dokument wurde durch eine Demoversion'+
        ' von print + save erstellt!</span></p>');
{$ELSE}
      slHTML.Add('

<span class="Objekt1">Standort/Objekt: '+Kunde+'</span></p>');
{$ENDIF}
      slHTML.Add('

<span class="Event">Auslösendes Ereignis: '+AbsenceString+'</span></p>');
      slHTML.Add('</div>');
      slHTML.Add('<table border="0" style="border-collapse:separate;"'+
                 'width="100%" style="'+
                 'border-left:5px solid #000080;border-right:5px solid #000080;'+
                 'border-top:5px solid #000080;border-bottom:5px solid #000080;>');

      slHTML.Add('<tr>');
        '</style>');

Danke und Gruß

Jens