Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(SQL Server) Create a New GMail LabelDemonstrates how to create a new GMail label.
CREATE PROCEDURE ChilkatSample AS BEGIN DECLARE @hr int DECLARE @iTmp0 int DECLARE @sTmp0 nvarchar(4000) -- This example requires the Chilkat API to have been previously unlocked. -- See Global Unlock Sample for sample code. DECLARE @success int DECLARE @http int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Http', @http OUT IF @hr <> 0 BEGIN PRINT 'Failed to create ActiveX component' RETURN END EXEC sp_OASetProperty @http, 'AuthToken', 'GMAIL-ACCESS-TOKEN' DECLARE @userId nvarchar(4000) SELECT @userId = 'me' EXEC sp_OAMethod @http, 'SetUrlVar', @success OUT, 'userId', @userId -- Create the JSON to be sent in the HTTP request body. -- The name of the new label is "questions". DECLARE @json int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.JsonObject', @json OUT EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'name', 'questions' EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'labelListVisibility', 'labelShow' EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'messageListVisibility', 'show' EXEC sp_OASetProperty @json, 'EmitCompact', 0 EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT PRINT @sTmp0 -- The JSON contains this: -- { -- "name": "questions", -- "labelListVisibility": "labelShow", -- "messageListVisibility": "show" -- } DECLARE @url nvarchar(4000) SELECT @url = 'https://www.googleapis.com/gmail/v1/users/{$userId}/labels' DECLARE @resp int EXEC sp_OAMethod @http, 'PostJson3', @resp OUT, @url, 'application/json', @json EXEC sp_OAGetProperty @http, 'LastMethodSuccess', @iTmp0 OUT IF @iTmp0 <> 1 BEGIN EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT PRINT @sTmp0 EXEC @hr = sp_OADestroy @http EXEC @hr = sp_OADestroy @json RETURN END EXEC sp_OAGetProperty @resp, 'StatusCode', @iTmp0 OUT PRINT 'status = ' + @iTmp0 -- A 200 response status indicate success. EXEC sp_OAGetProperty @resp, 'StatusCode', @iTmp0 OUT IF @iTmp0 <> 200 BEGIN EXEC sp_OAGetProperty @resp, 'BodyStr', @sTmp0 OUT PRINT @sTmp0 PRINT 'Failed.' EXEC @hr = sp_OADestroy @resp EXEC @hr = sp_OADestroy @http EXEC @hr = sp_OADestroy @json RETURN END -- A successful repsonse contains JSON that looks like this: -- { -- "id": "Label_43", -- "name": "questions", -- "messageListVisibility": "show", -- "labelListVisibility": "labelShow" -- } PRINT 'response body:' EXEC sp_OAGetProperty @resp, 'BodyStr', @sTmp0 OUT PRINT @sTmp0 EXEC @hr = sp_OADestroy @resp PRINT 'GMail label created!' EXEC @hr = sp_OADestroy @http EXEC @hr = sp_OADestroy @json END GO |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.