Discussion :

[Corben]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pc75]

Bonjour,

C'est normal que tu créés rst2 et que tu utilises rst1("mail") ?

[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

[SfJ5Rpw8]

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

..StrConv.. :

[Corben]

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

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

Cordialement,
Corben

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é ...