Sub GetAccessToken()
Dim MyRequest As Object
Dim strJWT As String
Dim strURL As String
Dim strBody As String
Dim strEncode64Base As String
Dim strClientSecret As String
Dim strClientID As String
strURL = "https://platform.devtest.ringcentral.com/restapi/oauth/token"
strJWT = "ey....Shortened..cfA"
strClientSecret = "Jn....Shortened..rg"
strClientID = "Lj....Shortened..FA"
strEncode64Base = EncodeBase64(strClientID & ":" & strClientSecret)
Debug.Print strEncode64Base
strBody = "grant_type=urn:ietf:params:oauth:grant-type:jwt-bearer&" & "assertion=" & strJWT
Debug.Print "STRBODY: " & strBody
Set MyRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
MyRequest.Open "POST", strURL, False
MyRequest.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"
MyRequest.SetRequestHeader "Accept", "application/json"
MyRequest.SetRequestHeader "Authorization", "Basic " & strEncode64Base
MyRequest.Send strBody
Debug.Print MyRequest.ResponseText
Set MyRequest = Nothing
End Sub
Have I configured the account wrong?
is the Body wrong?
How should I format the body?
Thanks for any help you can provide.
Andy