Mit WPRichtext Mail senden

[HPB]

Guten Tag Delphianer,
ich möchte die WPTools hier das WPRichText als MailBody verwenden.

Im Mailbody können auch Grafiken vorhanden sein.
Auch im Anhang können Grafiken und sonstiges vorhanden sein.
Das Ganze möchte ich mit den Indy-Komponenten realisieren.

Wenn ich die E-Mail ohne Grafiken erzeuge, also WPRichText als TStrings
übergebe, klappt alles. Die E-Mail kommt richtig an.

Nun möchte ich aber auch Grafiken im Body mit senden und hier hakt es dann.
Wie kann ich die Grafiken übergeben? Mit TStrings können keine Grafiken übergeben werden.

Weiß jemand wie das mit WPRichText geht.
Hat dies schon mal jemand gelöst?
Ein klein Wenig Quellcode wäre nett.

Mit Gruß HPB

[Bambini]

Die Bilder werden als Attachment beigefügt und html nimmt mit <img src="cid:..."> darauf Bezug.
Beispiel gibt es hier:
http://www.indyproject.org/sockets/b...8_17_a.en.aspx

[dataspider]

Hallo

ich habe ein Beispiel angehangen...
Man muss die Bilder aus dem RTF gegen die Content-ID' s ersetzen.
Das macht man im OnPrepareImageforSaving des WPRichtext.

Damit solltest du das hinbekommen.

Frank

[HPB]

Guten Tag dataspider,
vielen Dank für das Beispielprogramm.
Bedauerlicherweise kann ich es mit meinem XE2 nicht kompilieren.
Der Fehler ist folgender:
REST.Types, gibt es wohl auch in XE2 nicht.

Für welche Delphiversion ist dieses Programm?
Was kann ich tun um Dein Beispielprogramm zum laufen zu bringen?
Mit Gruß HPB

[dataspider]

Nimm es einfach raus...

Frank

[EDIT]
Ich benutze XE6.
Rest.Types enthält Konstanten für MIME etc., durch das Einkürzen des Codes kann das aber raus.
In deinem Profil steht XE7. Es ist auch eine gute Idee, die benutzte Version zu erwähnen, wenn diese vom Profil abweicht.

[HPB]

Zitat von dataspider:

Nimm es einfach raus...

Frank

[EDIT]
Ich benutze XE6.
Rest.Types enthält Konstanten für MIME etc., durch das Einkürzen des Codes kann das aber raus.
In deinem Profil steht XE7. Es ist auch eine gute Idee, die benutzte Version zu erwähnen, wenn diese vom Profil abweicht.

Guten Tag dataspider,
entschuldige dass ich nicht erwähnt habe das dieses Projekt in XE2 umgesetzt werden muss.
Mein Fehler. Ich hätte darauf achten müssen.

Wenn ich die Unit rausnehme, dann bekomme ich den im Anhang beschriebenen Fehler.
Was kann ich stattdessen nehmen. Ich stehe damit völlig auf dem "Schlauch".
Gruß
HPB