(Excel) SugarCRM Logout

Demonstrates how to logout of a session.

Download Excel Class Modules Chilkat Excel Class Modules

Dim rest As Chilkat.Rest
Set rest = Chilkat.NewRest

success = rest.Connect("your.site.domain",443,True,True)
If (success <> True) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

success = rest.AddHeader("Cache-Control","no-cache")
success = rest.AddHeader("OAuth-Token","<access_token>")

Dim sbReq As Chilkat.StringBuilder
Set sbReq = Chilkat.NewStringBuilder

Dim sbJson As Chilkat.StringBuilder
Set sbJson = Chilkat.NewStringBuilder
success = rest.FullRequestSb("POST","/rest/v10/oauth2/logout",sbReq,sbJson)
If (success <> True) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

If (rest.ResponseStatusCode <> 200) Then
    Debug.Print "Received error response code: "; rest.ResponseStatusCode
    Debug.Print "Response body:"
    Debug.Print sbJson.GetAsString()
    Exit Sub
End If

Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject
success = json.LoadSb(sbJson)

' The following code parses the JSON response.
' A sample JSON response is shown below the sample code.

success = json.BoolOf("success")

' A sample JSON response body that is parsed by the above code:

' {
'   "success": true
' }

Debug.Print "Example Completed."