Delphi-PRAXiS - Delphi ContentType Funktioniert nicht!

Seite 1 von 2

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

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi ContentType Funktioniert nicht! (https://www.delphipraxis.net/12879-contenttype-funktioniert-nicht.html)

ContentType Funktioniert nicht!

Hi!

Ich will meine E-Mails als HTML versenden,
darum gebe ich bei ContentType "html" an.

Aber die Mails kommen immernoch so an:

Code:

			<html>

<body>

...

(Ich sende die Mails mit TidSMTP)
Was soll ich jetzt tun?

Re: ContentType Funktioniert nicht!

Sorry, Dich hatte ich völlig vergessen. Ich werde Dir mal schnell ein Beispiel-Proggie zusammenhämmern ;-)

...:cat:...

Re: ContentType Funktioniert nicht!

wars nicht mal text/html? Jedenfalls bei php muss das so sein...

Re: ContentType Funktioniert nicht!

Funktioniert! :hello:

Aber mit Anhang nicht! :(

Re: ContentType Funktioniert nicht!

So, hier jetzt einfach mal der Code zum Erstellen einer neuen Email-Message mit einem Bild direkt im Text ;-)

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

  // als erstes muss!!! ein einfacher Text "text/plain" kommen!

  IdMessage1.Body.Text := 'Diese Message ist eine HTML Message. Sorry ;-)';

  with TIdText.Create(IdMessage1.MessageParts) do

  begin

    ContentType := 'text';

    Body.Text := 'Diese Message ist eine HTML Message. Sorry ;-)';

  end;

  // nun kommt die html message

  with TIdText.Create(IdMessage1.MessageParts) do

  begin

    ContentType := 'text/html';

    Body.Add('<html><head><title>Schön</title></head><body>');

    Body.Add('<h1>HTML Message mit Bild</h1>');

    // hier wird diese CONTENT-ID genutzt

    Body.Add('[img]cid:123456789@image.gif[/img]');

    Body.Add('</body></html>');

  end;

  with TIdAttachment.Create(IdMessage1.MessageParts, ExtractFilePath(

      Application.ExeName) + 'scratchy.gif') do

  begin

    // hier wird diese CONTENT-ID definiert!

    ExtraHeaders.Values['Content-ID'] := '123456789@image.gif';

  end;

  // ein paar standard Werte

  IdMessage1.Subject := 'Heute gehts endlich';

  IdMessage1.From.Address := 'user@domain.com';

  IdMessage1.Recipients.Add.Address := 'recipient@domain.de';

  // speichern (oder halt versenden)

  IdMessage1.SaveToFile('C:\Temp\Message.eml');

end;

...:cat:...

Re: ContentType Funktioniert nicht!

Dann kommt die Fehlermeldung (Beim Senden):
Ungültige Anzahl für Text. TidText muss größer als 1 sein!

Re: ContentType Funktioniert nicht!

Und wenn Du den ersten Abschnitt von

Delphi-Quellcode:

			// als erstes muss!!! ein einfacher Text "text/plain" kommen!

  with TIdText.Create(IdMessage1.MessageParts) do

  begin

    ContentType := 'text/plain';

    Body.Text := 'Diese Message ist eine HTML Message. Sorry ;-)';

  end;

nach

Delphi-Quellcode:

			  // als erstes muss!!! ein einfacher Text "text/plain" kommen!

  IdMessage1.Body.Text := 'Diese Message ist eine HTML Message. Sorry ;-)';

änderst?

...:cat:...

Re: ContentType Funktioniert nicht!

Funktioniert!
Aber das Mail wird nicht im HTML-Format angezeigt,
sondern als Text! :( :( :( :(

Re: ContentType Funktioniert nicht!

Dann nimm mal beides rein :|

Delphi-Quellcode:

			  // als erstes muss!!! ein einfacher Text "text/plain" kommen!

  IdMessage1.Body.Text := 'Diese Message ist eine HTML Message. Sorry ;-)';

  with TIdText.Create(IdMessage1.MessageParts) do

  begin

    ContentType := 'text';

    Body.Text := 'Diese Message ist eine HTML Message. Sorry ;-)';

  end;

...:cat:...

Re: ContentType Funktioniert nicht!

FEHLERMELDUNG!
:(
Woran könnte das Liegen?
Warum sendet es die E-Mail als Text?
?????

Seite 1 von 2