Visual FoxPro

Microsoft Teams - Create Team (minimal request)

See more Microsoft Teams Examples

The following is an example of a minimal request to create a Team. By omitting other properties, the client is implicitly taking defaults from the pre-defined template represented by template. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loJson
LOCAL loResp

lnSuccess = 0

*  This example assumes the Chilkat API to have been previously unlocked.
*  See Global Unlock Sample for sample code.

loHttp = CreateObject('Chilkat.Http')

*  To create a Microsoft Team, we want to send an HTTP request like the following:

*  POST https://graph.microsoft.com/v1.0/teams
*  Content-Type: application/json
*  
*  {
*    "template@odata.bind": "https://graph.microsoft.com/v1.0/teamsTemplates('standard')",
*    "displayName": "My Sample Team",
*    "description": "My Sample Team’s Description"
*  }

loJson = CreateObject('Chilkat.JsonObject')
loJson.UpdateString('"template@odata.bind"',"https://graph.microsoft.com/v1.0/teamsTemplates('standard')")
loJson.UpdateString("displayName","My Sample Team")
loJson.UpdateString("description","My Sample Team’s Description")

*  Adds the "Authorization: Bearer ACCESS_TOKEN" header.
loHttp.AuthToken = "ACCESS_TOKEN"

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpJson("POST","https://graph.microsoft.com/v1.0/teams",loJson,"application/json",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJson
    RELEASE loResp
    CANCEL
ENDIF

*  A successful response is indicated by a 202 response status code and an empty response body.
? "Response Status Code: " + STR(loResp.StatusCode)
? "Response Body:"
? loResp.BodyStr

IF (loResp.StatusCode >= 400) THEN
    ? "Response Header:"
    ? loResp.Header
    ? "Failed."
ENDIF

RELEASE loHttp
RELEASE loJson
RELEASE loResp