email au format RTF

Bonjour,

j'ai reussi à programmer un envoi de mail avec pièce jointe en utilisant Indy 10
Le corps du mail est du texte simple que l'utilisateur rentre dans un composant Tmémo.
Tous fonctionne bien mais j'aimerais maintenant pouvoir envoyer des mails au format RTF. Le corps du message sera saisie dans un Trichedit.

Quelle est la meilleur méthode pour passer au RTF. Il faut obligatoirement passer par une conversion HTML ou bien il ya un autre moyen ?

merci

Salut

Pour obtenir le texte au format RTF, tu doit passer par un stream intermédiaire :

Code:

---

1 2 3 4 5 6 7

var St : TStringStream; begin St:=TStringStream.Create(''); RichEdit1.Lines.SaveToStream(St); Showmessage(St.DataString); St.Free; end;

---

Laisse la propriété PlainText de ton richedit a false. Tu obtiendra un truc du genre :

Code:

---

1 2 3 4

{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fnil Tahoma;}} \viewkind4\uc1\pard\f0\fs16 RichEdit1 \par \par }

---

Bonne chance ;)