Sample code for 30+ languages & platforms
Visual FoxPro

OneNote - Create Page

See more OneNote Examples

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

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro
Visual FoxPro 
LOCAL lnSuccess
LOCAL loHttp
LOCAL loReq
LOCAL loSbHtml
LOCAL lnBCrlf
LOCAL loDtNow
LOCAL lnNumReplaced
LOCAL loBdPdf
LOCAL loResp
LOCAL loSbResponseBody
LOCAL loJResp
LOCAL lnRespStatusCode
LOCAL lcOdata_context
LOCAL lcId
LOCAL lcSelf
LOCAL lcCreatedDateTime
LOCAL lcTitle
LOCAL lcCreatedByAppId
LOCAL lcContentUrl
LOCAL lcLastModifiedDateTime
LOCAL lcLinksOneNoteClientUrlHref
LOCAL lcLinksOneNoteWebUrlHref

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

* 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:
loReq = CreateObject('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"
loReq.Path = "/v1.0/me/onenote/sections/0-3A33FCEB9B74CC15!20350/pages"

* We'll be sending a POST.
loReq.HttpVerb = "POST"

* The Content-Type is multipart/form-data
* Chilkat will automatically generate a boundary string.
loReq.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.
* ------------------------------
loSbHtml = CreateObject('Chilkat.StringBuilder')
lnBCrlf = 1
loSbHtml.AppendLine("<!DOCTYPE html>",lnBCrlf)
loSbHtml.AppendLine("<html>",lnBCrlf)
loSbHtml.AppendLine("  <head>",lnBCrlf)
loSbHtml.AppendLine("    <title>A page with <i>rendered</i> images and an <b>attached</b> file</title>",lnBCrlf)
loSbHtml.AppendLine('    <meta name="created" content="TIMESTAMP_CURRENT" />',lnBCrlf)
loSbHtml.AppendLine("  </head>",lnBCrlf)
loSbHtml.AppendLine("  <body>",lnBCrlf)
loSbHtml.AppendLine("    <p>Here's an image from an online source:</p>",lnBCrlf)
loSbHtml.AppendLine('    <img src="https://www.chilkatsoft.com/images/starfish.jpg" alt="an image on the page" width="500" />',lnBCrlf)
loSbHtml.AppendLine("    <p>Here's an image uploaded as binary data:</p>",lnBCrlf)
loSbHtml.AppendLine('    <img src="name:imageBlock1" alt="an image on the page" width="300" />',lnBCrlf)
loSbHtml.AppendLine("    <p>Here's a file attachment:</p>",lnBCrlf)
loSbHtml.AppendLine('    <object data-attachment="FileName.pdf" data="name:fileBlock1" type="application/pdf" />',lnBCrlf)
loSbHtml.AppendLine("  </body>",lnBCrlf)
loSbHtml.AppendLine("</html>",lnBCrlf)

loDtNow = CreateObject('Chilkat.CkDateTime')
loDtNow.SetFromCurrentSystemTime()
lnNumReplaced = loSbHtml.Replace("TIMESTAMP_CURRENT",loDtNow.GetAsTimestamp(1))

loReq.AddStringForUpload2("Presentation","",loSbHtml.GetAsString(),"utf-8","text/html")

* ------------------------------
* Add the JPG image.
* ------------------------------
lnSuccess = loReq.AddFileForUpload2("imageBlock1","qa_data/jpg/penguins2.jpg","image/jpeg")
IF (lnSuccess = 0) THEN
    ? loReq.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loSbHtml
    RELEASE loDtNow
    CANCEL
ENDIF

* ------------------------------
* Add the PDF attachment.
* ------------------------------
loBdPdf = CreateObject('Chilkat.BinData')
lnSuccess = loBdPdf.LoadFile("qa_data/pdf/helloWorld.pdf")
IF (lnSuccess = 0) THEN
    ? "Failed to load PDF file."
    RELEASE loHttp
    RELEASE loReq
    RELEASE loSbHtml
    RELEASE loDtNow
    RELEASE loBdPdf
    CANCEL
ENDIF

lnSuccess = loReq.AddBdForUpload("fileBlock1","FileName.pdf",loBdPdf,"application/pdf")
IF (lnSuccess = 0) THEN
    ? loReq.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loSbHtml
    RELEASE loDtNow
    RELEASE loBdPdf
    CANCEL
ENDIF

* Adds the "Authorization: Bearer ACCESS_TOKEN" header.
loHttp.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).
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpSReq("graph.microsoft.com",443,1,loReq,loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loSbHtml
    RELEASE loDtNow
    RELEASE loBdPdf
    RELEASE loResp
    CANCEL
ENDIF

loSbResponseBody = CreateObject('Chilkat.StringBuilder')
loResp.GetBodySb(loSbResponseBody)
loJResp = CreateObject('Chilkat.JsonObject')
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = 0

? "Response status code: " + STR(loResp.StatusCode)
? "Response Body:"
? loJResp.Emit()

lnRespStatusCode = loResp.StatusCode
? "Response Status Code = " + STR(lnRespStatusCode)
IF (lnRespStatusCode >= 400) THEN
    ? "Response Header:"
    ? loResp.Header
    ? "Failed."
    RELEASE loHttp
    RELEASE loReq
    RELEASE loSbHtml
    RELEASE loDtNow
    RELEASE loBdPdf
    RELEASE loResp
    RELEASE loSbResponseBody
    RELEASE loJResp
    CANCEL
ENDIF

* 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

lcOdata_context = loJResp.StringOf('"@odata.context"')
lcId = loJResp.StringOf("id")
lcSelf = loJResp.StringOf("self")
lcCreatedDateTime = loJResp.StringOf("createdDateTime")
lcTitle = loJResp.StringOf("title")
lcCreatedByAppId = loJResp.StringOf("createdByAppId")
lcContentUrl = loJResp.StringOf("contentUrl")
lcLastModifiedDateTime = loJResp.StringOf("lastModifiedDateTime")
lcLinksOneNoteClientUrlHref = loJResp.StringOf("links.oneNoteClientUrl.href")
lcLinksOneNoteWebUrlHref = loJResp.StringOf("links.oneNoteWebUrl.href")

RELEASE loHttp
RELEASE loReq
RELEASE loSbHtml
RELEASE loDtNow
RELEASE loBdPdf
RELEASE loResp
RELEASE loSbResponseBody
RELEASE loJResp