Accents avec cdosys

[sleeg]

Bonjour,

Quelqu'un sait si c'est possible de régler le problème des accents en utilisant ce bon vieux cdosys pour l'envoi de mail ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
<%
Dim ObjSendMail
Dim iConf
Dim Flds
 
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
 
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
 
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update
 
Set ObjSendMail.Configuration = iConf
ObjSendMail.To = "mail@mail.com"
ObjSendMail.Subject = "this is subject"
ObjSendMail.From = "mail@mail.com"
 
ObjSendMail.HTMLBody = "test message"
ObjSendMail.Send
 
Set ObjSendMail = Nothing
%>

[roro06]

Bonjour

Essaie avec ObjSendMail.BodyPart.Charset="utf-8" ou "iso-8859-1" selon

[sleeg]

Bonjour,

Cela ne marche pas. Les accents sont toujours foireux... (je continue mes recherches mais encore rien trouvé)