[VBS] caractère accentuée

Version imprimable

bonjour je vais chercher dans un table mysql en vbs un message que j'envoie par mail. Dans la base les caractères sont bien présent mais il ne sont plus afficher dans mon mail. Le mail est bien au format HTML.

D'ou cela peut 'il venir ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim message
rst2.Open "SELECT * FROM mailing WHERE id_mailing=" & rst1("id_mailing"),cnx
With CreateObject("CDO.Message")
                     .From="mail...."
                     .To=rst1("mail")
                     .Subject="Résumé des nouvelles annonces"
                     .HTMLBody=message
                     .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
                     .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
                     .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
                     .Configuration.Fields.Update
                     .Send

Je mets juste une partie du code.

Merci bcp
Cordialement,
Corben

10/03/2006, 10h37
pc75

Bonjour,

C'est normal que tu créés rst2 et que tu utilises rst1("mail") ?
10/03/2006, 10h42
Corben

merci pr ta réponse

non l'envoie de mail fonctionne bien j'ai juste un problème de d'affichage dé caractère accentué et mm du caractère € dans le message envoyé.

Je n'ai pas mis tt le code juste ce qui est necessaire.

Mais sinon j'utilise bien 2 recordset . rst1 et rst2

Voila si il faut plus de code n'hesites pas
10/03/2006, 11h01
SfJ5Rpw8

cela ressemble à un probléme de codage de caractére... voir fonction

..StrConv.. :?:
10/03/2006, 11h39
Corben

strconv je pense que c'est pr transformer une chaine en minuscule majuscule ...

hors mon prb c'est les ( é ) accent aigus..

Cordialement,
Corben
12/03/2006, 14h06
jmfmarques
Change la police utilisée.

Choisis-la, par exemple, parmi celles acceptées par l'objet Printer (moins nombreuses que celles acceptées par l'objet Screen mais plus "universelles"...

Pour les connaître :

Une listbox List1 et :
Code:

1 2 3 4 5 Dim I for I = 0 To Printer.FontCount -1 List1.AddItem Printer.Fonts (I) Next I
si tu changes Printer par Screen (essaye) tu verras la différence de disponibilité ...