Ciao a tutti,
qualche tempo fa (circa 2 anni fa) avevo creato un funzione che faceva una chiamata in post tramite HTTPSecureSocket .
Sestavo l’Header e mandavo in post come Content del codice Json , e ha sempre funzionato.
Oggi ho ripreso il codice e non funziona più, con Postman funziona la chiamata.
Di seguito il codice che ho usato, qualcuno può aiutarmi ?
Dim http as new HTTPSecureSocket
Dim url, accept, api, content, data As String
url = "https://api.sendinblue.com/v3/smtp/email"
accept = "application/json"
api = "Inserisco_la_chiave_API"
content = "application/json"
data = "{ " + Chr(34) + "sender" + Chr(34) + ":{ " + Chr(34) + "name" + Chr(34) + ":" + Chr(34) + "Sender TEST" + Chr(34) + ", " + Chr(34) + "email" + Chr(34) + ":" + Chr(34) + "TEST@mail.com" + Chr(34) + " }, " + Chr(34) + "to" + Chr(34) + ":[ { " + Chr(34) + "email" + Chr(34) + ":" + Chr(34) + "miamail@mail.com" + Chr(34) + ", " + Chr(34) + "name" + Chr(34) + ":" + Chr(34) + "John Doe" + Chr(34) + " } ], " + Chr(34) + "subject" + Chr(34) + ":" + Chr(34) + "Hello world" + Chr(34) + ", " + Chr(34) + "htmlContent" + Chr(34) + ":" + Chr(34) + "<html><head></head><body><p>Hello,</p>This is my first test email sent from Xojo.</p></body></html>" + Chr(34) + "}"
http.ConnectionType=SSLSocket.TLSv1
http.SetRequestHeader("accept",accept)
http.SetRequestHeader("api-key",api)
http.SetRequestHeader("content-type",content)
http.SetRequestContent(data, content)
CallResponse = http.post(url,1500)