![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PowerBuilder) Create a New GMail LabelDemonstrates how to create a new GMail label. Note: This example requires Chilkat v11.0.0 or greater.
integer li_rc integer li_Success oleobject loo_Http string ls_UserId oleobject loo_Json string ls_Url oleobject loo_Resp li_Success = 0 // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. loo_Http = create oleobject li_rc = loo_Http.ConnectToNewObject("Chilkat.Http") if li_rc < 0 then destroy loo_Http MessageBox("Error","Connecting to COM object failed") return end if loo_Http.AuthToken = "GMAIL-ACCESS-TOKEN" ls_UserId = "me" loo_Http.SetUrlVar("userId",ls_UserId) // Create the JSON to be sent in the HTTP request body. // The name of the new label is "questions". loo_Json = create oleobject li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject") loo_Json.UpdateString("name","questions") loo_Json.UpdateString("labelListVisibility","labelShow") loo_Json.UpdateString("messageListVisibility","show") loo_Json.EmitCompact = 0 Write-Debug loo_Json.Emit() // The JSON contains this: // { // "name": "questions", // "labelListVisibility": "labelShow", // "messageListVisibility": "show" // } ls_Url = "https://www.googleapis.com/gmail/v1/users/{$userId}/labels" loo_Resp = create oleobject li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse") li_Success = loo_Http.HttpJson("POST",ls_Url,loo_Json,"application/json",loo_Resp) if li_Success = 0 then Write-Debug loo_Http.LastErrorText destroy loo_Http destroy loo_Json destroy loo_Resp return end if Write-Debug "status = " + string(loo_Resp.StatusCode) // A 200 response status indicate success. if loo_Resp.StatusCode <> 200 then Write-Debug loo_Resp.BodyStr Write-Debug "Failed." destroy loo_Http destroy loo_Json destroy loo_Resp return end if // A successful repsonse contains JSON that looks like this: // { // "id": "Label_43", // "name": "questions", // "messageListVisibility": "show", // "labelListVisibility": "labelShow" // } Write-Debug "response body:" Write-Debug loo_Resp.BodyStr Write-Debug "GMail label created!" destroy loo_Http destroy loo_Json destroy loo_Resp |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.