B4X

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. B4X

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("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"
'  }

Dim json As ChilkatJsonObject
json.Initialize
json.UpdateString(Chr(34) & "template@odata.bind" & Chr(34), "https://graph.microsoft.com/v1.0/teamsTemplates('standard')")
json.UpdateString("displayName", "My Sample Team")
json.UpdateString("description", "My Sample Team’s Description")

'  Adds the "Authorization: Bearer ACCESS_TOKEN" header.
http.AuthToken = "ACCESS_TOKEN"

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpJson("POST", "https://graph.microsoft.com/v1.0/teams", json, "application/json", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


'  A successful response is indicated by a 202 response status code and an empty response body.
Log("Response Status Code: " & resp.StatusCode)
Log("Response Body:")
Log(resp.BodyStr)

If resp.StatusCode >= 400 Then
    Log("Response Header:")
    Log(resp.Header)
    Log("Failed.")
End If