Perl Requires Chilkat v11.0.0+
Perl
MS Graph Calendar Create Event
See more Microsoft Calendar Examples
Creates a new event in a specified calendar.For more details, see https://docs.microsoft.com/en-us/graph/api/calendar-post-events?view=graph-rest-1.0
Chilkat Perl Downloads
use chilkat();
$success = 0;
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
$http = chilkat::CkHttp->new();
# Use your previously obtained access token as shown here:
# Get Microsoft Graph OAuth2 Access Token with Calendars.ReadWrite scope.
$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/msGraphCalendar.json");
if ($success == 0) {
print $jsonToken->lastErrorText() . "\r\n";
exit;
}
$http->put_AuthToken($jsonToken->stringOf("access_token"));
# Create a JSON body for the HTTP POST
# Use this online tool to generate the code from sample JSON:
# Generate Code to Create JSON
# {
# "subject": "Let's go for lunch",
# "body": {
# "contentType": "HTML",
# "content": "Does mid month work for you?"
# },
# "start": {
# "dateTime": "2019-11-15T12:00:00",
# "timeZone": "Pacific Standard Time"
# },
# "end": {
# "dateTime": "2019-11-15T14:00:00",
# "timeZone": "Pacific Standard Time"
# },
# "location":{
# "displayName":"Harry's Bar"
# },
# "attendees": [
# {
# "emailAddress": {
# "address":"adelev@contoso.onmicrosoft.com",
# "name": "Adele Vance"
# },
# "type": "required"
# }
# ]
# }
$json = chilkat::CkJsonObject->new();
$json->UpdateString("subject","Let's go for lunch");
$json->UpdateString("body.contentType","HTML");
$json->UpdateString("body.content","Does mid month work for you?");
$json->UpdateString("start.dateTime","2019-11-15T12:00:00");
$json->UpdateString("start.timeZone","Pacific Standard Time");
$json->UpdateString("end.dateTime","2019-11-15T14:00:00");
$json->UpdateString("end.timeZone","Pacific Standard Time");
$json->UpdateString("location.displayName","Harry's Bar");
$json->UpdateString("attendees[0].emailAddress.address",'adelev@contoso.onmicrosoft.com');
$json->UpdateString("attendees[0].emailAddress.name","Adele Vance");
$json->UpdateString("attendees[0].type","required");
# POST the JSON to https://graph.microsoft.com/v1.0/me/calendars/{id}/events
# This is posting to a calendar in the default calendarGroup.
# Specify the calendar id
$http->SetUrlVar("id","AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEGAAAA5_vF7TKKdE6bGCRqXyl2PQAClEpRTgAAAA==");
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpJson("POST","https://graph.microsoft.com/v1.0/me/calendars/{$id}/events",$json,"application/json",$resp);
if ($success == 0) {
print $http->lastErrorText() . "\r\n";
exit;
}
$json->Load($resp->bodyStr());
$json->put_EmitCompact(0);
if ($resp->get_StatusCode() != 201) {
print $json->emit() . "\r\n";
print "Failed, response status code = " . $resp->get_StatusCode() . "\r\n";
exit;
}
print $json->emit() . "\r\n";
# A sample response:
# (See code for parsing this response below..)
# {
# "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('admin%40chilkat.io')/calendars('AQMkADAwATM0MDAAMS ... AClEpRTgAAAA%3D%3D')/events/$entity",
# "@odata.etag": "W/\"5+vF7TKKdE6bGCRqXyl2PQAClIgmmw==\"",
# "id": "AQMkADAwAT ... ApRZ7JkAAAA=",
# "createdDateTime": "2019-04-26T14:31:39.8791929Z",
# "lastModifiedDateTime": "2019-04-26T14:31:41.2753537Z",
# "changeKey": "5+vF7TKKdE6bGCRqXyl2PQAClIgmmw==",
# "categories": [
# ],
# "originalStartTimeZone": "Pacific Standard Time",
# "originalEndTimeZone": "Pacific Standard Time",
# "iCalUId": "040000008200E00074C5B7101A82E00800000000F05DF1C23CFCD40100000000000000001000000009911D155F71EF42A230FEBFE5F7486A",
# "reminderMinutesBeforeStart": 15,
# "isReminderOn": true,
# "hasAttachments": false,
# "subject": "Let's go for lunch",
# "bodyPreview": "Does mid month work for you?",
# "importance": "normal",
# "sensitivity": "normal",
# "isAllDay": false,
# "isCancelled": false,
# "isOrganizer": true,
# "responseRequested": true,
# "seriesMasterId": null,
# "showAs": "busy",
# "type": "singleInstance",
# "webLink": "https://outlook.live.com/owa/?itemid=AQMkADAwATM0MDAAMS1iNTcwL...pRZ7JkAAAA%3D&exvsurl=1&path=/calendar/item",
# "onlineMeetingUrl": null,
# "recurrence": null,
# "responseStatus": {
# "response": "organizer",
# "time": "0001-01-01T00:00:00Z"
# },
# "body": {
# "contentType": "html",
# "content": "<html>\r\n<head>\r\n<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">\r\n<meta content=\"text/html; charset=us-ascii\">\r\n</head>\r\n<body>\r\nDoes mid month work for you?\r\n</body>\r\n</html>\r\n"
# },
# "start": {
# "dateTime": "2019-11-15T12:00:00.0000000",
# "timeZone": "Pacific Standard Time"
# },
# "end": {
# "dateTime": "2019-11-15T14:00:00.0000000",
# "timeZone": "Pacific Standard Time"
# },
# "location": {
# "displayName": "Harry's Bar",
# "locationType": "default",
# "uniqueId": "Harry's Bar",
# "uniqueIdType": "private"
# },
# "locations": [
# {
# "displayName": "Harry's Bar",
# "locationType": "default",
# "uniqueId": "Harry's Bar",
# "uniqueIdType": "private"
# }
# ],
# "attendees": [
# {
# "type": "required",
# "status": {
# "response": "none",
# "time": "0001-01-01T00:00:00Z"
# },
# "emailAddress": {
# "name": "Adele Vance",
# "address": "adelev@contoso.onmicrosoft.com"
# }
# }
# ],
# "organizer": {
# "emailAddress": {
# "name": "Matt",
# "address": "outlook_3A33FCEB9B74CC15@outlook.com"
# }
# }
# }
#
#
# Use this online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON
$odataContext = $json->stringOf('\'@odata.context\'');
$odataEtag = $json->stringOf('\'@odata.etag\'');
$id = $json->stringOf("id");
$createdDateTime = $json->stringOf("createdDateTime");
$lastModifiedDateTime = $json->stringOf("lastModifiedDateTime");
$changeKey = $json->stringOf("changeKey");
$originalStartTimeZone = $json->stringOf("originalStartTimeZone");
$originalEndTimeZone = $json->stringOf("originalEndTimeZone");
$iCalUId = $json->stringOf("iCalUId");
$reminderMinutesBeforeStart = $json->IntOf("reminderMinutesBeforeStart");
$isReminderOn = $json->BoolOf("isReminderOn");
$hasAttachments = $json->BoolOf("hasAttachments");
$subject = $json->stringOf("subject");
$bodyPreview = $json->stringOf("bodyPreview");
$importance = $json->stringOf("importance");
$sensitivity = $json->stringOf("sensitivity");
$isAllDay = $json->BoolOf("isAllDay");
$isCancelled = $json->BoolOf("isCancelled");
$isOrganizer = $json->BoolOf("isOrganizer");
$responseRequested = $json->BoolOf("responseRequested");
$seriesMasterId = $json->stringOf("seriesMasterId");
$showAs = $json->stringOf("showAs");
$type = $json->stringOf("type");
$webLink = $json->stringOf("webLink");
$onlineMeetingUrl = $json->stringOf("onlineMeetingUrl");
$recurrence = $json->stringOf("recurrence");
$responseStatusResponse = $json->stringOf("responseStatus.response");
$responseStatusTime = $json->stringOf("responseStatus.time");
$bodyContentType = $json->stringOf("body.contentType");
$bodyContent = $json->stringOf("body.content");
$startDateTime = $json->stringOf("start.dateTime");
$startTimeZone = $json->stringOf("start.timeZone");
$endDateTime = $json->stringOf("end.dateTime");
$endTimeZone = $json->stringOf("end.timeZone");
$locationDisplayName = $json->stringOf("location.displayName");
$locationLocationType = $json->stringOf("location.locationType");
$locationUniqueId = $json->stringOf("location.uniqueId");
$locationUniqueIdType = $json->stringOf("location.uniqueIdType");
$organizerEmailAddressName = $json->stringOf("organizer.emailAddress.name");
$organizerEmailAddressAddress = $json->stringOf("organizer.emailAddress.address");
$i = 0;
$count_i = $json->SizeOfArray("categories");
while ($i < $count_i) {
$json->put_I($i);
# ...
$i = $i + 1;
}
$i = 0;
$count_i = $json->SizeOfArray("locations");
while ($i < $count_i) {
$json->put_I($i);
$displayName = $json->stringOf("locations[i].displayName");
$locationType = $json->stringOf("locations[i].locationType");
$uniqueId = $json->stringOf("locations[i].uniqueId");
$uniqueIdType = $json->stringOf("locations[i].uniqueIdType");
$i = $i + 1;
}
$i = 0;
$count_i = $json->SizeOfArray("attendees");
while ($i < $count_i) {
$json->put_I($i);
$type = $json->stringOf("attendees[i].type");
$statusResponse = $json->stringOf("attendees[i].status.response");
$statusTime = $json->stringOf("attendees[i].status.time");
$emailAddressName = $json->stringOf("attendees[i].emailAddress.name");
$emailAddressAddress = $json->stringOf("attendees[i].emailAddress.address");
$i = $i + 1;
}
print "Success." . "\r\n";