Txt-Datei automatisch als E-Mail versenden

**Jens Hartmann**

Morgen zusammen,

ich hab mal noch eine Frage zu Style. Ich habe zwei Überschriften im Kopf des HTML Dokument. Diese entstehen aus dem Firmenschriftzug von uns. Allerdings wird normalerweise die beiden Zeilen näher aneinander geschrieben. Wie kann ich so was hinbekommen. Nachdem ich das ganze mit Google gesucht habe, bin ich auf folgende Lösung gekommen, die allerdings wie man im Anhang sieht nicht funktioniert.

zusammenfalten · markieren

Delphi-Quellcode:

			      slHTML.Add('<head>');

      slHTML.Add('<Style type="text/css"> .zahl {line-height: 1.5;}>'); //Zeilenhöhe

      slHTML.Add('<#CSS>');

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

      slHTML.Add('<title>Protokolldatei</title>');

      slHTML.Add('</head>');

      slHTML.Text := AnsiReplaceText(slHTML.Text,'<#CSS>',slCSS.text);

      slHTML.Add('<body>');

      slHTML.Add('

<span style="font-family: century gothic,">');

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

      slHTML.Add('<p class="zahl">'); //Zeilenhöhe für Bereich aktiv schalten

      slHTML.Add('<h1 style="color:#000080; align='+

        '"right">Musterfirma</h1>');

      slHTML.Add('<h2 style="color:#000000; align='+

        '"right">Systemtechnik GmbH</h2>');

      slHTML.Add('</p>'); //Zeilenhöhe wieder normal Bereich ausschalten

      slHTML.Add('<h1 style="color:#FFFFFF; background-color:#000080;">Objekt: '

                 +Kunde+'</h1>');

Danke schon mal für Eure Hilfe und

Gruß Jens

**Sir Rufo**

so in etwa?

markieren

Code:

			<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">

<html>

<head>

<title>Test</title>

<style type="text/css">

.Firmenname1 { color:#000080; font-size:200%; font-style:bold }

.Firmenname2 { color:#000000; font-size:120% }

</style>

</head>

<body>

<div>

<span class="Firmenname1">Musterfirma</span>

<span class="Firmenname2">Systemtechnik GmbH</span></p>

</div>

</body>

</html>

**Jens Hartmann**

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

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

zusammenfalten · markieren

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

Txt-Datei automatisch als E-Mail versenden

Re: Txt-Datei automatisch als E-Mail versenden

Re: Txt-Datei automatisch als E-Mail versenden

Re: Txt-Datei automatisch als E-Mail versenden

Forumregeln