Mit WPRichtext Mail senden

[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