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

[dataspider]

Sieht aus, als hättest du nicht WPTools 7.

Die Parameterliste vom PrepareImageforSavingEvent wurde geändert.
Entweder du änderst TWPRTFDataCollectionBase in TWPRTFDataCollection oder du erstellst die Methode mit dem OI neu und kopierst den Code hinein.

Frank

[HPB]

Zitat von dataspider:

Sieht aus, als hättest du nicht WPTools 7.

Die Parameterliste vom PrepareImageforSavingEvent wurde geändert.
Entweder du änderst TWPRTFDataCollectionBase in TWPRTFDataCollection oder du erstellst die Methode mit dem OI neu und kopierst den Code hinein.

Frank

Guten Tag dataspider,
WPTools 7 ist nun installiert und mit Deinem Beispiel können auch
wunderbar E-Mails versandt werden. Nochmals vielen Dank für das Beispiel.
Ein Problem besteht aber nun, das vorher nicht vorhanden war.
Alle Umlaute in der E-Mail werden durch irgendwelche Zeichen ersetzt.
Was machst Du damit die Umlaute korrekt gesendet werden?
Wenn Du hier nochmals helfen könntest?
Mit Gruß HPB

[dataspider]

Du musst IMHO nur das Charset von TIdMessage setzen:

Delphi-Quellcode:

AMessage := TIdMessage.Create(nil);
AMessage.CharSet := 'ISO-8859-15';

Frank

[hoika]

Hallo,
du kannst auch UTF8Encode probieren.


Heiko