DataFlex
DataFlex
MS Teamwork: Create an Online Meeting
See more Microsoft Teams Examples
Demonstrates how to create a Microsoft Teamwork Online MeetingNote:If using Application access (i.e. client credentials) which is what this example is doing, then you'll need to "Configure application access to online meetings or virtual events" See https://learn.microsoft.com/en-us/graph/cloud-communication-online-meeting-application-access-policy#configure-application-access-policy
For example, here's our Powershell session to setup the policy.
Windows PowerShell
Copyright (C) Microsoft Corporation. All rights reserved.
Try the new cross-platform PowerShell
https://aka.ms/pscore6
PS C:\WINDOWS\system32> Install-Module -Name PowerShellGet -Force -AllowClobber
PS C:\WINDOWS\system32> Install-Module -Name MicrosoftTeams -Force -AllowClobber
PS C:\WINDOWS\system32> Connect-MicrosoftTeams
Account Environment Tenant TenantId
------- ----------- ------ --------
admin@chilkat365.com AzureCloud 112d7ed6-71bf-4eba-a866-738364321bfc 112d7ed6-71bf-4eba-a866-738364321bfc
PS C:\WINDOWS\system32> New-CsApplicationAccessPolicy -Identity Test-Teams-policy -AppIds "e1cd2318-298b-4916-bfd6-78cae9938835" -Description "Want App to be able to work with Teams for a User"
Identity : Tag:Test-Teams-policy
AppIds : {e1cd2318-298b-4916-bfd6-78cae9938835}
Description : Want App to be able to work with Teams for a User
PS C:\WINDOWS\system32> Grant-CsApplicationAccessPolicy -PolicyName Test-Teams-policy -Identity "4ee732c3-322e-4a6b-b729-2fd1eb5c6004"
PS C:\WINDOWS\system32>
Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoHttp
Variant vJson
OAuthCC Handle hoJsonOAuthCC
Variant vJson
Handle hoJson
Variant vResp
Handle hoResp
Handle hoJsonResp
Integer iStatusCode
String sTemp1
Move False To iSuccess
// This requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Get Create (RefClass(cComChilkatHttp)) To hoHttp
If (Not(IsComObjectCreated(hoHttp))) Begin
Send CreateComObject of hoHttp
End
// Provide the information needed for Chilkat to automatically fetch the OAuth2.0
// access token as needed.
// This is the new "Integrated OAuth2 Client Credentials" feature introduced in Chilkat v9.5.0.96.
Get Create (RefClass(cComChilkatJsonObject)) To hoJsonOAuthCC
If (Not(IsComObjectCreated(hoJsonOAuthCC))) Begin
Send CreateComObject of hoJsonOAuthCC
End
// --------------------------------------------------------------------------------------------------------
// You'll need to have registered an app in Azure beforehand.
//
// Note: Creating an online meeting requires the following Application permission: OnlineMeetings.ReadWrite.All
//
// See How to Create an Azure App Registration for OAuth 2.0 Client Credentials
// --------------------------------------------------------------------------------------------------------
// Use the values from your App Registration in Azure.
Get ComUpdateString Of hoJsonOAuthCC "client_id" "e1cd2318-xxxx-4916-bfd6-xxxxxxxxxxxx" To iSuccess
Get ComUpdateString Of hoJsonOAuthCC "client_secret" "K.d8Q~RoJxxxxvCj_u_xxxxxxxxxxxxxxxxxxxxx" To iSuccess
// You'll always use this scope for client credentials, because the allowed actions
// are determined by the App Permissions defined when you registered the app in Azure.
Get ComUpdateString Of hoJsonOAuthCC "scope" "https://graph.microsoft.com/.default" To iSuccess
// The token endpoint includes your tenant ID. Use your tenant ID (not the tenant ID shown here).
Get ComUpdateString Of hoJsonOAuthCC "token_endpoint" "https://login.microsoftonline.com/112d7ed6-71bf-4eba-a866-738364321bfc/oauth2/v2.0/token" To iSuccess
// Provide the OAuth2 information. Chilkat will use this information to automatically fetch the OAuth2 access token as needed,
Get ComEmit Of hoJsonOAuthCC To sTemp1
Set ComAuthToken Of hoHttp To sTemp1
// -------------------------------------------------------------------------------------------
// The following JSON is sent in the request body.
// {
// "startDateTime": "2023-12-12T14:30:34-07:00",
// "endDateTime": "2023-12-12T15:00:34-07:00",
// "subject": "User Token Meeting"
// }
Get Create (RefClass(cComChilkatJsonObject)) To hoJson
If (Not(IsComObjectCreated(hoJson))) Begin
Send CreateComObject of hoJson
End
Get ComUpdateString Of hoJson "startDateTime" "2023-12-12T14:30:34-07:00" To iSuccess
Get ComUpdateString Of hoJson "endDateTime" "2023-12-12T15:00:34-07:00" To iSuccess
Get ComUpdateString Of hoJson "subject" "User Token Meeting" To iSuccess
Send ComSetRequestHeader To hoHttp "Content-Type" "application/json"
// The user ID is 4ee732c3-322e-4a6b-b729-2fd1eb5c6004
// You will need to change the ID to your user's ID.
Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
If (Not(IsComObjectCreated(hoResp))) Begin
Send CreateComObject of hoResp
End
Get pvComObject of hoJson to vJson
Get pvComObject of hoResp to vResp
Get ComHttpJson Of hoHttp "POST" "https://graph.microsoft.com/v1.0/users/4ee732c3-322e-4a6b-b729-2fd1eb5c6004/onlineMeetings" vJson "application/json" vResp To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoHttp To sTemp1
Showln sTemp1
Procedure_Return
End
// ----------------------------------------------------------------------------------------
// IMPORTANT:
// If using Application access, you will get the following error unless you configure your application
// to manage online meetings on behalf of the user. (Note that the user ID is in the URL shown above.)
// See https://learn.microsoft.com/en-us/graph/cloud-communication-online-meeting-application-access-policy#allow-applications-to-access-online-meetings-on-behalf-of-a-user
//
// {
// "error": {
// "code": "General",
// "message": "No application access policy found for this app.",
// "innerError": {
// "request-id": "1c9bd09a-a089-4afd-add4-eec2334135c8",
// "date": "2023-11-17T16:26:53",
// "client-request-id": "1c9bd09a-a089-4afd-add4-eec2334135c8"
// }
// }
// }
// ----------------------------------------------------------------------------------------
Get Create (RefClass(cComChilkatJsonObject)) To hoJsonResp
If (Not(IsComObjectCreated(hoJsonResp))) Begin
Send CreateComObject of hoJsonResp
End
Get ComBodyStr Of hoResp To sTemp1
Get ComLoad Of hoJsonResp sTemp1 To iSuccess
Set ComEmitCompact Of hoJsonResp To False
Get ComEmit Of hoJsonResp To sTemp1
Showln sTemp1
Get ComStatusCode Of hoResp To iStatusCode
Showln "response status code = " iStatusCode
If (iStatusCode <> 201) Begin
Showln "Failed."
Procedure_Return
End
// Here is a sample response:
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON
// {
// "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('4ee732c3-322e-4a6b-b729-2fd1eb5c6004')/onlineMeetings/$entity",
// "id": "MSo0ZWU3MzJjMy0zMjJlLTRhNmItYjcyOS0yZmQxZWI1YzYwMDQqMCoqMTk6bWVldGluZ19ZemswWXpOaU9XTXRaV0l5TUMwME5EY3dMVGt4Tm1VdFlUSXpOMlF3WTJKbE9HWm1AdGhyZWFkLnYy",
// "creationDateTime": "2023-11-17T17:00:45.1935677Z",
// "startDateTime": "2023-12-12T21:30:34Z",
// "endDateTime": "2023-12-12T22:00:34Z",
// "joinUrl": "https://teams.microsoft.com/l/meetup-join/19%3ameeting_Yzk0YzNiOWMtZWIyMC00NDcwLTkxNmUtYTIzN2QwY2JlOGZm%40thread.v2/0?context=%7b%22Tid%22%3a%22112d7ed6-71bf-4eba-a866-738364321bfc%22%2c%22Oid%22%3a%224ee732c3-322e-4a6b-b729-2fd1eb5c6004%22%7d",
// "meetingCode": "238818764794",
// "isBroadcast": false,
// "autoAdmittedUsers": "everyoneInCompany",
// "outerMeetingAutoAdmittedUsers": null,
// "capabilities": [
// ],
// "externalId": null,
// "iCalUid": null,
// "meetingType": null,
// "meetingMigrationMode": null,
// "joinWebUrl": "https://teams.microsoft.com/l/meetup-join/19%3ameeting_Yzk0YzNiOWMtZWIyMC00NDcwLTkxNmUtYTIzN2QwY2JlOGZm%40thread.v2/0?context=%7b%22Tid%22%3a%22112d7ed6-71bf-4eba-a866-738364321bfc%22%2c%22Oid%22%3a%224ee732c3-322e-4a6b-b729-2fd1eb5c6004%22%7d",
// "subject": "User Token Meeting",
// "videoTeleconferenceId": null,
// "isEntryExitAnnounced": true,
// "allowedPresenters": "everyone",
// "allowAttendeeToEnableMic": true,
// "allowAttendeeToEnableCamera": true,
// "allowMeetingChat": "enabled",
// "shareMeetingChatHistoryDefault": "none",
// "allowTeamworkReactions": true,
// "anonymizeIdentityForRoles": [
// ],
// "recordAutomatically": false,
// "allowParticipantsToChangeName": false,
// "allowTranscription": true,
// "allowRecording": true,
// "broadcastSettings": null,
// "meetingInfo": null,
// "audioConferencing": null,
// "watermarkProtection": null,
// "chatRestrictions": null,
// "participants": {
// "organizer": {
// "upn": "admin@chilkat365.com",
// "role": "presenter",
// "identity": {
// "application": null,
// "device": null,
// "user": {
// "id": "4ee732c3-322e-4a6b-b729-2fd1eb5c6004",
// "displayName": null,
// "tenantId": "112d7ed6-71bf-4eba-a866-738364321bfc",
// "identityProvider": "AAD"
// }
// }
// },
// "attendees": [
// ]
// },
// "chatInfo": {
// "threadId": "19:meeting_Yzk0YzNiOWMtZWIyMC00NDcwLTkxNmUtYTIzN2QwY2JlOGZm@thread.v2",
// "messageId": "0",
// "replyChainMessageId": null
// },
// "joinInformation": {
// "content": "data:text/html,%3cdiv+style%3d%22width%3a .... %2fdiv%3e",
// "contentType": "html"
// },
// "joinMeetingIdSettings": {
// "isPasscodeRequired": false,
// "joinMeetingId": "238818764794",
// "passcode": null
// },
// "lobbyBypassSettings": {
// "scope": "organization",
// "isDialInBypassEnabled": false
// }
// }
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON
Showln "Success."
End_Procedure