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

VB.NET Web API Examples

Primary Categories

ABN AMRO
AWS Translate
Activix CRM
Adyen
Amazon DynamoDB
Amazon MWS
Amazon Rekognition
Aruba Fatturazione
Azure Maps
Azure Monitor
Azure OAuth2
Azure Storage Accounts
Bitfinex v2 REST
Bluzone
CallRail
CardConnect
Cerved
ClickBank
Clickatell
Cloudfare
Constant Contact
DocuSign
ETrade
Egypt ITIDA
Etsy
Facebook
Frame.io
GeoOp
GetHarvest
Global Payments
Google People
Google Search Console
Hungary NAV Invoicing
IBM Text to Speech
Ibanity
IntakeQ
Jira
Lightspeed
MYOB
Magento
MercadoLibre

Microsoft Calendar
Microsoft Group
Microsoft Tasks and Plans
Microsoft Teams
Okta OAuth/OIDC
OneLogin OIDC
OneNote
PayPal
Paynow.pl
Peoplevox
Populi
QuickBooks
Rabobank
Royal Mail OBA
SCiS Schools Catalogue
SII Chile
SMSAPI
SOAP finkok.com
SendGrid
Shippo
Shopify
Shopware
Shopware 6
SimpleTexting
Square
Stripe
SugarCRM
Trello
Twilio
Twitter
VoiceBase
Vonage
Walmart
Walmart v3
WhatsApp
WiX
WooCommerce
WordPress
Xero
Yousign
_Miscellaneous_
eBay
effectconnect
hacienda.go.cr

 

 

 

(VB.NET) OneNote - Create Page

Creates a new OneNote page with a rendered image and an attached PDF.

For more information, see https://docs.microsoft.com/en-us/graph/api/section-post-pages?view=graph-rest-1.0

Chilkat .NET Downloads

Chilkat .NET Assemblies

Chilkat for .NET Core

Chilkat for Mono

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

Dim http As New Chilkat.Http
Dim success As Boolean

' To create a OneNote page, we want to send an HTTP request like the following:

' POST https://graph.microsoft.com/v1.0/me/onenote/sections/{section_id}/pages
' Content-length: 312
' Content-type: multipart/form-data; boundary=MyPartBoundary198374
' 
' --MyPartBoundary198374
' Content-Disposition:form-data; name="Presentation"
' Content-Type:text/html
' 
' <!DOCTYPE html>
' <html>
'   <head>
'     <title>A page with <i>rendered</i> images and an <b>attached</b> file</title>
'     <meta name="created" content="2015-07-22T09:00:00-08:00" />
'   </head>
'   <body>
'     <p>Here's an image from an online source:</p>
'     <img src="https://..." alt="an image on the page" width="500" />
'     <p>Here's an image uploaded as binary data:</p>
'     <img src="name:imageBlock1" alt="an image on the page" width="300" />
'     <p>Here's a file attachment:</p>
'     <object data-attachment="FileName.pdf" data="name:fileBlock1" type="application/pdf" />
'   </body>
' </html>
' 
' --MyPartBoundary198374
' Content-Disposition:form-data; name="imageBlock1"
' Content-Type:image/jpeg
' 
' ... binary image data ...
' 
' --MyPartBoundary198374
' Content-Disposition:form-data; name="fileBlock1"
' Content-Type:application/pdf
' 
' ... binary file data ...
' 
' --MyPartBoundary198374--


' Build the request in a Chilkat HTTP request object:
Dim req As New Chilkat.HttpRequest

' Our URL is https://graph.microsoft.com/v1.0/me/onenote/sections/{section_id}/pages
' The path part of the URL is "/v1.0/me/onenote/sections/{section_id}/pages"
' In this example, our section ID is "0-3A33FCEB9B74CC15!20350"
req.Path = "/v1.0/me/onenote/sections/0-3A33FCEB9B74CC15!20350/pages"

' We'll be sending a POST.
req.HttpVerb = "POST"

' The Content-Type is multipart/form-data
' Chilkat will automatically generate a boundary string.
req.ContentType = "multipart/form-data"

' When Chilkat HTTP was written many years ago, multipart requests were primarily for uploads.
' Thus the names of methods that add a multipart section end with "ForUpload".
' The multipart request we wish to build has 3 sections: text/html, image/jpeg, and application/pdf.

' ------------------------------
' Add the text/html part.
' ------------------------------
Dim sbHtml As New Chilkat.StringBuilder
Dim bCrlf As Boolean = True
sbHtml.AppendLine("<!DOCTYPE html>",bCrlf)
sbHtml.AppendLine("<html>",bCrlf)
sbHtml.AppendLine("  <head>",bCrlf)
sbHtml.AppendLine("    <title>A page with <i>rendered</i> images and an <b>attached</b> file</title>",bCrlf)
sbHtml.AppendLine("    <meta name=""created"" content=""TIMESTAMP_CURRENT"" />",bCrlf)
sbHtml.AppendLine("  </head>",bCrlf)
sbHtml.AppendLine("  <body>",bCrlf)
sbHtml.AppendLine("    <p>Here's an image from an online source:</p>",bCrlf)
sbHtml.AppendLine("    <img src=""https://www.chilkatsoft.com/images/starfish.jpg"" alt=""an image on the page"" width=""500"" />",bCrlf)
sbHtml.AppendLine("    <p>Here's an image uploaded as binary data:</p>",bCrlf)
sbHtml.AppendLine("    <img src=""name:imageBlock1"" alt=""an image on the page"" width=""300"" />",bCrlf)
sbHtml.AppendLine("    <p>Here's a file attachment:</p>",bCrlf)
sbHtml.AppendLine("    <object data-attachment=""FileName.pdf"" data=""name:fileBlock1"" type=""application/pdf"" />",bCrlf)
sbHtml.AppendLine("  </body>",bCrlf)
sbHtml.AppendLine("</html>",bCrlf)

Dim dtNow As New Chilkat.CkDateTime
dtNow.SetFromCurrentSystemTime()
Dim numReplaced As Integer = sbHtml.Replace("TIMESTAMP_CURRENT",dtNow.GetAsTimestamp(True))

req.AddStringForUpload2("Presentation","",sbHtml.GetAsString(),"utf-8","text/html")

' ------------------------------
' Add the JPG image.
' ------------------------------
success = req.AddFileForUpload2("imageBlock1","qa_data/jpg/penguins2.jpg","image/jpeg")
If (success = False) Then
    Debug.WriteLine(req.LastErrorText)
    Exit Sub
End If


' ------------------------------
' Add the PDF attachment.
' ------------------------------
Dim bdPdf As New Chilkat.BinData
success = bdPdf.LoadFile("qa_data/pdf/helloWorld.pdf")
If (success = False) Then
    Debug.WriteLine("Failed to load PDF file.")
    Exit Sub
End If

success = req.AddBdForUpload("fileBlock1","FileName.pdf",bdPdf,"application/pdf")
If (success = False) Then
    Debug.WriteLine(req.LastErrorText)
    Exit Sub
End If


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

' POST to https://graph.microsoft.com/v1.0/me/onenote/sections/{section_id}/pages
' The path part of the URL is already specified in the req object.
' We only need to specify the domain and the fact that we're doing "https" (SSL/TLS).
Dim resp As Chilkat.HttpResponse = http.SynchronousRequest("graph.microsoft.com",443,True,req)
If (http.LastMethodSuccess = False) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


Dim sbResponseBody As New Chilkat.StringBuilder
resp.GetBodySb(sbResponseBody)
Dim jResp As New Chilkat.JsonObject
jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = False

Debug.WriteLine("Response status code: " & resp.StatusCode)
Debug.WriteLine("Response Body:")
Debug.WriteLine(jResp.Emit())

Dim respStatusCode As Integer = resp.StatusCode
Debug.WriteLine("Response Status Code = " & respStatusCode)
If (respStatusCode >= 400) Then
    Debug.WriteLine("Response Header:")
    Debug.WriteLine(resp.Header)
    Debug.WriteLine("Failed.")

    Exit Sub
End If



' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)

' {
'   "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('admin%40chilkat.io')/onenote/sections('0-3A33FCEB9B74CC15%2120350')/pages/$entity",
'   "id": "0-18ac61117a664f7e946bcceaeebd6f57!36-3A33FCEB9B74CC15!20350",
'   "self": "https://graph.microsoft.com/v1.0/users/admin@chilkat.io/onenote/pages/0-18ac61117a664f7e946bcceaeebd6f57!36-3A33FCEB9B74CC15!20350",
'   "createdDateTime": "2020-10-22T19:02:12Z",
'   "title": "A page with rendered images and an attached file",
'   "createdByAppId": "WLID-00000000441C9990",
'   "contentUrl": "https://graph.microsoft.com/v1.0/users/admin@chilkat.io/onenote/pages/0-18ac61117a664f7e946bcceaeebd6f57!36-3A33FCEB9B74CC15!20350/content",
'   "lastModifiedDateTime": "2020-10-23T00:02:13.3254289Z",
'   "links": {
'     "oneNoteClientUrl": {
'       "href": "onenote:https://d.docs.live.net/3a33fceb9b74cc15/Documents/Testing%20Notebook/Ddd.one#A%20page%20with%20rendered%20images%20and%20an%20attached%20file&section-id=9d78c221-486e-45f8-8355-1810e475f6c0&page-id=36cd1982-1ef1-4b11-b5a1-30b3dbc43d05&end"
'     },
'     "oneNoteWebUrl": {
'       "href": "https://onedrive.live.com/redir.aspx?cid=3a33fceb9b74cc15&page=edit&resid=3A33FCEB9B74CC15!20344&parId=3A33FCEB9B74CC15!187&wd=target%28Ddd.one%7C9d78c221-486e-45f8-8355-1810e475f6c0%2FA%20page%20with%20rendered%20images%20and%20an%20attached%20file%7C36cd1982-1ef1-4b11-b5a1-30b3dbc43d05%2F%29"
'     }
'   }
' }

' Sample code for parsing the JSON response...
' Use the following online tool to generate parsing code from sample JSON:
' Generate Parsing Code from JSON




Dim odata_context As String = jResp.StringOf("""@odata.context""")
Dim id As String = jResp.StringOf("id")
Dim self As String = jResp.StringOf("self")
Dim createdDateTime As String = jResp.StringOf("createdDateTime")
Dim title As String = jResp.StringOf("title")
Dim createdByAppId As String = jResp.StringOf("createdByAppId")
Dim contentUrl As String = jResp.StringOf("contentUrl")
Dim lastModifiedDateTime As String = jResp.StringOf("lastModifiedDateTime")
Dim linksOneNoteClientUrlHref As String = jResp.StringOf("links.oneNoteClientUrl.href")
Dim linksOneNoteWebUrlHref As String = jResp.StringOf("links.oneNoteWebUrl.href")

 

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