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 : 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
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