Encodage de caractères dans un mail au format HTML

**loulag07** · 19/04/2011, 09h23

Bonjour,

Passé d'un système Windows 2000 à Windows 2003, j'ai changé de librairie pour l'envoi de message (CDONT à CDO).

Depuis l'encodage de caractère, dans mes mails de type HTML, tel que le signe "€" ne marche pas. Les utilisateurs reçoivent dans leur mail "?"

J'ai mis dans le <HEAD> :

Code :

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

<HEAD><META http-equiv='Content-Type' 'Content-Type: text/html; charset=UTF-8'></HEAD>

j'ai essayé les options :

Code :

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

1
2
3
4
.MimeFormatted = True
.GetStream.Charset = cdoISO_8859_15
.BodyPart.Charset = cdoISO_8859_15
.BodyPart.ContentTransferEncoding = "base64"

ça ne change rien.

Mon script :

Code :

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

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
' Send by connecting to port 25 of the SMTP server.
Dim iMsg 
Dim iConf 
Dim Flds 
Dim strHTML
 
Const cdoSendUsingPort = 2
 
' TODO: Change these values to appropriate values for your environment
Const MySMTPServer = "monserveur" ' Name or IP address of SMTP server
Const MyToAddress = "mail@server.com" ' SMTP address to send message to
Const MyFromAddress = "monserveur@server.com" ' SMTP address to send message from
''''''''''''''''''''''''''''''
 
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
 
Set Flds = iConf.Fields
' Set the CDOSYS configuration fields to use port 25 on the SMTP server.
 
With Flds
   .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
'Done: Enter name or IP address of remote SMTP server.
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = MySMTPServer 
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'ToDo: Enter login/password
   .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
   .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
   .Update
End With
' Build HTML for message body.
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD><META http-equiv='Content-Type' 'Content-Type: text/html; charset=UTF-8'></HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>&euro;.</br>€"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"
 
' Apply the settings to the message.
With iMsg
   Set .Configuration = iConf
   .To = MyToAddress
   .From = MyFromAddress
   .Subject = "This is a test CDOSYS message (Sent via Port 25)"
.HTMLBody = strHTML
   .Send
End With
' Clean up variables.
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
 
MsgBox "Mail Sent!"

Merci de votre aide.

**ced600** · 22/04/2011, 12h09

Peut être que ton body est encodée en encodage Windows (1252) qui lui n'est pas UTF8.
J'avais eu un problème d'encodage une fois pour un fichier transférer en ftp sur un serveur linux et généré à la base sur un serveur windows.
Le fichier était encodé en 1252 et j'ai dû le convertir en UTF8 pour que cela fonctionne.
Je ne sais pas si cel peut t'aider.

**loulag07** · 22/04/2011, 15h41

Tour d'abord, merci pour ta réponse.

Par contre je ne vois pas de quoi tu parles quand tu dis

en encodage Windows (1252) qui lui n'est pas UTF8

Où est ce que tu peux voir cela et comment peux tu le modifier ?

Merci !

**ced600** · 26/04/2011, 12h22

Où est ce que tu peux voir cela et comment peux tu le modifier ?

De la même façon que tu peux déterminer et modifier l'encodage d'un fichier UTF8.
Moi perso j'utilise notepad++ ou je me fais un programme c# qui test pour moi.

Lorsque tu crée un fichier sous windows, si tu ne précises pas d'encodage précis lors de sa sauvegarde, son encodage par défaut devrait être 1252. Cet encodage ne respecte pas le standard UTF8 et donc souvent cela pose un problème lorsque tu essayes de lire ce même fichier sur un autre OS que Windows (surtout sur les caractères accentués et spéciaux).
Mais si à la base tu force l'enregistrement du fichier en encodage UTF8, tu n'as plus ce problème.

Bien sûr je te parle de fichier, mais je pense que l'on peut appliquer le même raisonnement pour le body de ton mail.
Je pense que CDONT devait appliqué un encodage spécial au body du mail mais de façon différentes de tes tentatives.

Je n'ai pas de réponse à ton problème, j'essayais juste de te mettre sur la voix de cette encodage Windows qui est particulié.

Peut être qu'en mettant charset=1252 (ou en ne le mettant pas du tout) dans ta balise Head cela marcherais mieux.

Encodage de caractères dans un mail au format HTML

VBScript

Discussions similaires

Partager

Partager