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