Caractères accentués dans mail VB6 CDO SMTP
Bonjour,
J'envoie un mail en VB6 via CDO; je le reçois avec Outlook.
Dans le corps du mail les é sont remplacés par des i, les ê par des j, ...
Par contre les caractères accentués qui se trouvent dans le titre sont corrects.
Si je remplace dans Outlook le codage "alphabet occidental Windows" par "alphabet occidental ISO" les caractères accentués du corps du message deviennent corrects.
Je me demande si le problème vient de l'émetteur VB6 CDO ou du récepteur Outlook et surtout comment faire en sorte que tous les clients reçoivent un mail correct.
Voici le code utilisé, merci d'avance pour votre aide
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Set ObjSendMail = CreateObject("CDO.Message")
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "send.one.com"
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USERNAME"
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORD"
ObjSendMail.Configuration.Fields.Update
ObjSendMail.From = "FROM"
ObjSendMail.To = DESTINATION
ObjSendMail.Subject = "l'objet est reçu correctement"
ObjSendMail.TextBody = "Les accents du corps ne sont pas reçus correctement"
ObjSendMail.Send
Set ObjSendMail = Nothing |