Envoi Message en UTF-8

Bonjour à tous,

Je viens vers vous pour de l'aide.

J'ai ce script qui a été créé par un ancien employé. Aujourd'hui j'ai besoin que ce script puisse prendre en compte l'encodage UTF-8 sur le message pour afficher les accents. Je ne suis pas trop fort en VBA, j'ai testé quelque truc pour trouver la solution seul mais rien à fonctionner correctement

Merci a tous pour votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Function EnvoiSMS_appel(strnumtel As String, strDateEnvoi As String) Dim API As String Dim Message As String Dim objXml As MSXML2.xmlhttp   Message "J'étais hier en classe d'électronique avec Jésica qui est au téléphone."   API = "***********"   Set objXml = CreateObject("MSXML2.XMLHTTP") With objXml .Open "GET", API, False .send End With   End Function

---

Bonjour,
La lecture de ce billet de Pierre Fauconnier Apprendre comment convertir une chaine en utf-8 avec VBA ?

Salut, essaie peut-être ceci:

Code:

---

Message = StrConv("J'étais hier en classe d'électronique avec Jésica qui est au téléphone.", vbFromUnicode)

---

Bonjour Franc,

Le code remonte que des ?????????????

Merci pour votre aide

cdt

Jérôme

C'est peut-être que l'API ne prend pas en charge l'UTF-8.

Hello,
Dans le lien de Philippe, il y a deux fonctions. La fonction Uni2Utf devrait fonctionner pour ton cas.
Ami calmant, J.P