Caractères accentués dans mail VB6 CDO SMTP

Messages postés
511
Date d'inscription
mercredi 4 août 2010
Statut
Membre
Dernière intervention
19 juillet 2019
-
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é
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
Afficher la suite