Delphi-PRAXiS - Delphi Txt-Datei automatisch als E-Mail versenden

Seite 4 von 4

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Netzwerke (https://www.delphipraxis.net/14-netzwerke/)

- - Delphi Txt-Datei automatisch als E-Mail versenden (https://www.delphipraxis.net/131905-txt-datei-automatisch-als-e-mail-versenden.html)

Re: Txt-Datei automatisch als E-Mail versenden

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.

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

Re: Txt-Datei automatisch als E-Mail versenden

so in etwa?

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>

Re: Txt-Datei automatisch als E-Mail versenden

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

Seite 4 von 4

« Erste