Hallo FrankJ28
ich hab ja in meinem Nachtrag erwähnt, dass ich ContentType := 'text/plain' standardmässig verwende. Aber vermutlich liegt das Problem gar nicht beim Senden sondern beim Empfangen. Und jetzt muss ich doch noch ausholen, um was es geht. Ich möchte auf möglichst einfache Weise so etwas wie eine Art 'tabulierte' Darstellung ausgeben und habe das wie folgt versucht:
Delphi-Quellcode:
StringListe.Add('
Produkt : ' + PageControl1.ActivePage.Caption);
StringListe.Add('
Lizenz: ' + LizLIZENZ.AsString);
StringListe.Add('
Version: ' + IntToStr(LizPVersion.Value));
StringListe.Add('
Anzahl Lizenzen: ' + IntToStr(LizAnzLiz1.Value));
StringListe.Add('
Ihr Schluessel: ' + IntToStr(LizPruef.Value));
StringListe.Add('
');
StringListe.Add('
Lizenzierungsschluessel : ' + LizLizKey.AsString);
..
MailMessage.Body := Stringliste;
MailMessage.Recipients.EMailAddresses := LizMail.AsString;
MailMessage.From.Address := AdrMail;
MailMessage.Subject := '
Ihre Lizenzdaten';
try
try
SMTP.Connect;
SMTP.Send(MailMessage);
ShowMessage('
Mail wurde versandt');
except on E:
Exception do
ShowMessage('
Mail kann nicht versandt werden');
end;
finally
if SMTP.Connected
then SMTP.Disconnect;
end;
Stringliste.Free;
Wenn man das im Editiermodus oder im Delphi-Quelltext sieht, sind alle ' + schön untereinander, also 'tabuliert'.
Das funktioniert aber nur, wenn für die Anzeige kein TrueType-Font verwendet wird. Und Tabulatoren setzen geht ja auch nicht. Also muss ich wohl meine Frage etwas umformulieren: Wie kann auf einfache Weise in einer Mail Textspalten erzeugen?