Bonjour à tous, je souhaite pouvoir récupérer le texte contenu dans un contrôle activex richtextebox (Me.Message dans l'exemple), pour l'envoyer ensuite par mail (automation avec outlook et redemption)
Mon pb : lorsque je récupère le contenu du contrôle, j'ai tout le code de formatage du texte accroché ("\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}....), et les caractères propres à notre belle langue (â, ê, ç...) ne sont pas reconnus. Donc actuellement je fais une manip pas très propre pour retrouver le texte original :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
str_body = Replace(Me.Message, "{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}", "")
str_body = Replace(str_body, "{\*\generator Riched20 5.50.30.2002;}\viewkind4\uc1\pard\f0\fs17\lang1036", "")
str_body = Replace(str_body, "\par }", "")
str_body = Replace(str_body, "\'e0", "à")
str_body = Replace(str_body, "\'e9", "é")
str_body = Replace(str_body, "\'e8", "è")
str_body = Replace(str_body, "\'e7", "ç")
str_body = Replace(str_body, "\'f4", "ô")
str_body = Replace(str_body, "\'e2", "â")
str_body = Replace(str_body, "\'ea", "ê")
c'est basique et il subsiste des problèmes de mise en page.
Donc y a t il un moyen d'exporter proprement le texte d'un richtextbox ?
merci!
Pierre