Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicCkPythonChilkat2-PythonRubySQL ServerSwift 2Swift 3,4,5...TclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcelGo

Visual Basic 6.0 Web API Examples

Primary Categories

ABN AMRO
AWS Translate
Activix CRM
Adyen
Amazon MWS
Azure Maps
Azure Monitor
Azure OAuth2
Azure Storage Accounts
Bluzone
CardConnect
ClickBank
Clickatell
Cloudfare
DocuSign
ETrade
Etsy
Facebook
GeoOp
GetHarvest
Global Payments
Google Search Console
Hungary NAV Invoicing
Jira
MYOB
Magento
MercadoLibre

Microsoft Calendar
Microsoft Group
Microsoft Tasks and Plans
Okta OAuth/OIDC
OneLogin OIDC
PayPal
Peoplevox
Populi
QuickBooks
Rabobank
SOAP finkok.com
Shippo
Shopify
Stripe
SugarCRM
Trello
Twilio
Twitter
VoiceBase
Vonage
Walmart
Walmart v3
WhatsApp
WooCommerce
Xero
Yousign
_Miscellaneous_
eBay
effectconnect

 

 

 

(Visual Basic 6.0) MS Graph Calendar Create Event

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 ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

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

Dim http As New ChilkatHttp

' Use your previously obtained access token as shown here:
'    Get Microsoft Graph OAuth2 Access Token with Calendars.ReadWrite scope.

Dim jsonToken As New ChilkatJsonObject
Dim success As Long
success = jsonToken.LoadFile("qa_data/tokens/msGraphCalendar.json")
If (success = 0) Then
    Debug.Print jsonToken.LastErrorText
    Exit Sub
End If

http.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"
'     }
'   ]
' }

Dim json As New ChilkatJsonObject
success = json.UpdateString("subject","Let's go for lunch")
success = json.UpdateString("body.contentType","HTML")
success = json.UpdateString("body.content","Does mid month work for you?")
success = json.UpdateString("start.dateTime","2019-11-15T12:00:00")
success = json.UpdateString("start.timeZone","Pacific Standard Time")
success = json.UpdateString("end.dateTime","2019-11-15T14:00:00")
success = json.UpdateString("end.timeZone","Pacific Standard Time")
success = json.UpdateString("location.displayName","Harry's Bar")
success = json.UpdateString("attendees[0].emailAddress.address","adelev@contoso.onmicrosoft.com")
success = json.UpdateString("attendees[0].emailAddress.name","Adele Vance")
success = 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
success = http.SetUrlVar("id","AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEGAAAA5_vF7TKKdE6bGCRqXyl2PQAClEpRTgAAAA==")
Dim resp As ChilkatHttpResponse
Set resp = http.PostJson3("https://graph.microsoft.com/v1.0/me/calendars/{$id}/events","application/json",json)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

success = json.Load(resp.BodyStr)
json.EmitCompact = 0

If (resp.StatusCode <> 201) Then
    Debug.Print json.Emit()
    Debug.Print "Failed, response status code = " & resp.StatusCode

    Exit Sub
End If

Debug.Print json.Emit()

' 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

Dim displayName As String
Dim locationType As String
Dim uniqueId As String
Dim uniqueIdType As String
Dim statusResponse As String
Dim statusTime As String
Dim emailAddressName As String
Dim emailAddressAddress As String

Dim odataContext As String
odataContext = json.StringOf("""@odata.context""")
Dim odataEtag As String
odataEtag = json.StringOf("""@odata.etag""")
Dim id As String
id = json.StringOf("id")
Dim createdDateTime As String
createdDateTime = json.StringOf("createdDateTime")
Dim lastModifiedDateTime As String
lastModifiedDateTime = json.StringOf("lastModifiedDateTime")
Dim changeKey As String
changeKey = json.StringOf("changeKey")
Dim originalStartTimeZone As String
originalStartTimeZone = json.StringOf("originalStartTimeZone")
Dim originalEndTimeZone As String
originalEndTimeZone = json.StringOf("originalEndTimeZone")
Dim iCalUId As String
iCalUId = json.StringOf("iCalUId")
Dim reminderMinutesBeforeStart As String
reminderMinutesBeforeStart = json.IntOf("reminderMinutesBeforeStart")
Dim isReminderOn As String
isReminderOn = json.BoolOf("isReminderOn")
Dim hasAttachments As String
hasAttachments = json.BoolOf("hasAttachments")
Dim subject As String
subject = json.StringOf("subject")
Dim bodyPreview As String
bodyPreview = json.StringOf("bodyPreview")
Dim importance As String
importance = json.StringOf("importance")
Dim sensitivity As String
sensitivity = json.StringOf("sensitivity")
Dim isAllDay As String
isAllDay = json.BoolOf("isAllDay")
Dim isCancelled As String
isCancelled = json.BoolOf("isCancelled")
Dim isOrganizer As String
isOrganizer = json.BoolOf("isOrganizer")
Dim responseRequested As String
responseRequested = json.BoolOf("responseRequested")
Dim seriesMasterId As String
seriesMasterId = json.StringOf("seriesMasterId")
Dim showAs As String
showAs = json.StringOf("showAs")
Dim type As String
type = json.StringOf("type")
Dim webLink As String
webLink = json.StringOf("webLink")
Dim onlineMeetingUrl As String
onlineMeetingUrl = json.StringOf("onlineMeetingUrl")
Dim recurrence As String
recurrence = json.StringOf("recurrence")
Dim responseStatusResponse As String
responseStatusResponse = json.StringOf("responseStatus.response")
Dim responseStatusTime As String
responseStatusTime = json.StringOf("responseStatus.time")
Dim bodyContentType As String
bodyContentType = json.StringOf("body.contentType")
Dim bodyContent As String
bodyContent = json.StringOf("body.content")
Dim startDateTime As String
startDateTime = json.StringOf("start.dateTime")
Dim startTimeZone As String
startTimeZone = json.StringOf("start.timeZone")
Dim endDateTime As String
endDateTime = json.StringOf("end.dateTime")
Dim endTimeZone As String
endTimeZone = json.StringOf("end.timeZone")
Dim locationDisplayName As String
locationDisplayName = json.StringOf("location.displayName")
Dim locationLocationType As String
locationLocationType = json.StringOf("location.locationType")
Dim locationUniqueId As String
locationUniqueId = json.StringOf("location.uniqueId")
Dim locationUniqueIdType As String
locationUniqueIdType = json.StringOf("location.uniqueIdType")
Dim organizerEmailAddressName As String
organizerEmailAddressName = json.StringOf("organizer.emailAddress.name")
Dim organizerEmailAddressAddress As String
organizerEmailAddressAddress = json.StringOf("organizer.emailAddress.address")
Dim i As Long
i = 0
Dim count_i As Long
count_i = json.SizeOfArray("categories")
Do While i < count_i
    json.I = i
    ' ...
    i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("locations")
Do While i < count_i
    json.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
Loop
i = 0
count_i = json.SizeOfArray("attendees")
Do While i < count_i
    json.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
Loop

Debug.Print "Success."

 

© 2000-2020 Chilkat Software, Inc. All Rights Reserved.