(SQL Server) Find a Label ID by Name

Lookup the ID of a GMail label by the label name.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

    DECLARE @url nvarchar(4000)
    SELECT @url = 'https://www.googleapis.com/gmail/v1/users/{$userId}/labels'

    -- Get the list of GMail labels as JSON.
    DECLARE @sb int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.StringBuilder', @sb OUT

    EXEC sp_OAMethod @http, 'QuickGetSb', @success OUT, @url, @sb
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @sb
        RETURN
      END

    DECLARE @json int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.JsonObject', @json OUT

    EXEC sp_OAMethod @json, 'LoadSb', @success OUT, @sb
    EXEC sp_OASetProperty @json, 'EmitCompact', 0
    EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
    PRINT @sTmp0

    EXEC sp_OAGetProperty @http, 'LastStatus', @iTmp0 OUT
    IF @iTmp0 <> 200
      BEGIN

        PRINT 'Failed.'
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @sb
        EXEC @hr = sp_OADestroy @json
        RETURN
      END

    -- The JSON returned looks like this:
    -- {
    --   "labels": [
    --     {
    --       "id": "Label_5",
    --       "name": "QA",
    --       "messageListVisibility": "show",
    --       "labelListVisibility": "labelShow",
    --       "type": "user"
    --     },
    --     {
    --       "id": "Label_21",
    --       "name": "[Gmail]/testFolder",
    --       "type": "user"
    --     },
    --     {
    --       "id": "CATEGORY_PERSONAL",
    --       "name": "CATEGORY_PERSONAL",
    --       "type": "system"
    --     },
    -- 	...

    -- The name of the label is generally known because it's what we visually see.
    -- The id is what we need to get.  Assuming the name is unique,
    -- find the JSON record having name=<desired name>
    -- For example...
    DECLARE @jRecord int
    EXEC sp_OAMethod @json, 'FindRecord', @jRecord OUT, 'labels', 'name', 'QA', 0
    EXEC sp_OAGetProperty @json, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 1
      BEGIN

        EXEC sp_OAMethod @jRecord, 'StringOf', @sTmp0 OUT, 'id'
        PRINT 'The id of QA is: ' + @sTmp0
        EXEC @hr = sp_OADestroy @jRecord

      END

    EXEC sp_OAMethod @json, 'FindRecord', @jRecord OUT, 'labels', 'name', '[Gmail]/testFolder', 0
    EXEC sp_OAGetProperty @json, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 1
      BEGIN

        EXEC sp_OAMethod @jRecord, 'StringOf', @sTmp0 OUT, 'id'
        PRINT 'The id of [Gmail]/testFolder is: ' + @sTmp0
        EXEC @hr = sp_OADestroy @jRecord

      END

    EXEC sp_OAMethod @json, 'FindRecord', @jRecord OUT, 'labels', 'name', 'questions', 0
    EXEC sp_OAGetProperty @json, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 1
      BEGIN

        EXEC sp_OAMethod @jRecord, 'StringOf', @sTmp0 OUT, 'id'
        PRINT 'The id of questions is: ' + @sTmp0
        EXEC @hr = sp_OADestroy @jRecord

      END

    -- Output:

    -- The id of QA is: Label_5
    -- The id of [Gmail]/testFolder is: Label_21
    -- The id of questions is: Label_43

    EXEC @hr = sp_OADestroy @http
    EXEC @hr = sp_OADestroy @sb
    EXEC @hr = sp_OADestroy @json


END
GO