Visual FoxPro

Outlook Calendar List Events

See more Outlook Calendar Examples

Retrieve a list of events in a calendar. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loJsonToken
LOCAL lcCalendarId
LOCAL loResp
LOCAL loJson
LOCAL lcOriginalStartTimeZone
LOCAL lcOriginalEndTimeZone
LOCAL lcResponseStatusResponse
LOCAL lcResponseStatusTime
LOCAL lcICalUId
LOCAL lnReminderMinutesBeforeStart
LOCAL lnIsReminderOn
LOCAL i
LOCAL lnCount_i

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

* Use your previously obtained access token here: Get Outlook Calendar OAuth2 Access Token (Azure AD v2.0 Endpoint).

loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/outlookCalendar.json")
IF (lnSuccess = 0) THEN
    ? loJsonToken.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    CANCEL
ENDIF

loHttp.AuthToken = loJsonToken.StringOf("access_token")

* Specify the ID of the calendar to list.
lcCalendarId = "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEGAAAA5_vF7TKKdE6bGCRqXyl2PQAAAiCsAAAA"

loHttp.SetUrlVar("id",lcCalendarId)

* To list the events in the default calendar, use the following URL: https://graph.microsoft.com/v1.0/me/calendars/events

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpNoBody("GET","https://graph.microsoft.com/v1.0/me/calendars/{$id}/events",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loResp
    CANCEL
ENDIF

? "Response status code = " + STR(loResp.StatusCode)

* The HTTP request succeeded if the response status code = 200.
IF (loResp.StatusCode <> 200) THEN
    ? loResp.BodyStr
    ? "Failed"
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loResp
    CANCEL
ENDIF

loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(loResp.BodyStr)
loJson.EmitCompact = 0
? loJson.Emit()

* Here is a sample response:

* Use this online tool to generate parsing code from sample JSON: 
* Generate Parsing Code from JSON

* {
*   "value": [
*     {
*       "originalStartTimeZone": "originalStartTimeZone-value",
*       "originalEndTimeZone": "originalEndTimeZone-value",
*       "responseStatus": {
*         "response": "",
*         "time": "datetime-value"
*       },
*       "iCalUId": "iCalUId-value",
*       "reminderMinutesBeforeStart": 99,
*       "isReminderOn": true
*     }
*   ]
* }

i = 0
lnCount_i = loJson.SizeOfArray("value")
DO WHILE i < lnCount_i
    loJson.I = i
    lcOriginalStartTimeZone = loJson.StringOf("value[i].originalStartTimeZone")
    lcOriginalEndTimeZone = loJson.StringOf("value[i].originalEndTimeZone")
    lcResponseStatusResponse = loJson.StringOf("value[i].responseStatus.response")
    lcResponseStatusTime = loJson.StringOf("value[i].responseStatus.time")
    lcICalUId = loJson.StringOf("value[i].iCalUId")
    lnReminderMinutesBeforeStart = loJson.IntOf("value[i].reminderMinutesBeforeStart")
    lnIsReminderOn = loJson.BoolOf("value[i].isReminderOn")
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loJsonToken
RELEASE loResp
RELEASE loJson