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