(Excel) Trello Create New Board

Create a new board.

For more information, see https://developers.trello.com/reference#boardsid

Download Excel Class Modules Chilkat Excel Class Modules

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

' curl --request POST \
'   --url 'https://api.trello.com/1/boards?name=name&defaultLabels=true&defaultLists=true&keepFromSource=none&prefs_permissionLevel=private
'           &prefs_voting=disabled&prefs_comments=members&prefs_invitations=members&prefs_selfJoin=true&prefs_cardCovers=true&prefs_background=blue&prefs_cardAging=regular'

' First get our previously obtained access token.
Dim jsonToken As Chilkat.JsonObject
Set jsonToken = Chilkat.NewJsonObject

success = jsonToken.LoadFile("qa_data/tokens/trello.json")

Dim oauth1 As Chilkat.OAuth1
Set oauth1 = Chilkat.NewOAuth1
oauth1.ConsumerKey = "TRELLO_CONSUMER_KEY"
oauth1.ConsumerSecret = "TRELLO_CONSUMER_SECRET"
oauth1.Token = jsonToken.StringOf("oauth_token")
oauth1.TokenSecret = jsonToken.StringOf("oauth_token_secret")

Dim rest As Chilkat.Rest
Set rest = Chilkat.NewRest

' Connect using TLS.
' A single REST object, once connected, can be used for many Trello REST API calls.
' The auto-reconnect indicates that if the already-established HTTPS connection is closed,
' then it will be automatically re-established as needed.

bAutoReconnect = True
success = rest.Connect("api.trello.com",443,True,bAutoReconnect)
If (success <> True) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

success = rest.SetAuthOAuth1(oauth1,False)

success = rest.AddQueryParam("name","Football & Rugby")
success = rest.AddQueryParam("defaultLabels","true")
success = rest.AddQueryParam("defaultLists","true")
success = rest.AddQueryParam("keepFromSource","none")
success = rest.AddQueryParam("prefs_permissionLevel","private")
success = rest.AddQueryParam("prefs_voting","disabled")
success = rest.AddQueryParam("prefs_comments","members")
success = rest.AddQueryParam("prefs_invitations","members")
success = rest.AddQueryParam("prefs_selfJoin","true")
success = rest.AddQueryParam("prefs_cardCovers","true")
success = rest.AddQueryParam("prefs_background","blue")
success = rest.AddQueryParam("prefs_cardAging","regular")

success = rest.AddHeader("Accept","application/json")


responseBody = rest.FullRequestFormUrlEncoded("POST","/1/boards")
If (rest.LastMethodSuccess <> True) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

' We should expect a 200 response if successful.
If (rest.ResponseStatusCode <> 200) Then
    Debug.Print "Request Header: "
    Debug.Print rest.LastRequestHeader
    Debug.Print "----"
    Debug.Print "Response StatusCode = "; rest.ResponseStatusCode
    Debug.Print "Response StatusLine: "; rest.ResponseStatusText
    Debug.Print "Response Header:"
    Debug.Print rest.ResponseHeader
    Debug.Print responseBody
    Exit Sub
End If

Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject
success = json.Load(responseBody)
json.EmitCompact = False
Debug.Print json.Emit()
Debug.Print "Success."

' A sample JSON response:
' (See the parsing code below...)
' Use this online tool to generate parsing code from sample JSON: 
' Generate Parsing Code from JSON

' 
' {
'   "id": "5cc606a1e2441a8a8fe3dc48",
'   "name": "Football",
'   "desc": "",
'   "descData": null,
'   "closed": false,
'   "idOrganization": null,
'   "pinned": false,
'   "url": "https://trello.com/b/eadpS1Pe/football",
'   "shortUrl": "https://trello.com/b/eadpS1Pe",
'   "prefs": {
'     "permissionLevel": "private",
'     "voting": "disabled",
'     "comments": "members",
'     "invitations": "members",
'     "selfJoin": true,
'     "cardCovers": true,
'     "cardAging": "regular",
'     "calendarFeedEnabled": false,
'     "background": "blue",
'     "backgroundImage": null,
'     "backgroundImageScaled": null,
'     "backgroundTile": false,
'     "backgroundBrightness": "dark",
'     "backgroundColor": "#0079BF",
'     "backgroundBottomColor": "#0079BF",
'     "backgroundTopColor": "#0079BF",
'     "canBePublic": true,
'     "canBeEnterprise": true,
'     "canBeOrg": true,
'     "canBePrivate": true,
'     "canInvite": true
'   },
'   "labelNames": {
'     "green": "",
'     "yellow": "",
'     "orange": "",
'     "red": "",
'     "purple": "",
'     "blue": "",
'     "sky": "",
'     "lime": "",
'     "pink": "",
'     "black": ""
'   },
'   "limits": {}
' }

id = json.StringOf("id")
name = json.StringOf("name")
desc = json.StringOf("desc")
descData = json.StringOf("descData")
closed = json.BoolOf("closed")
idOrganization = json.StringOf("idOrganization")
pinned = json.BoolOf("pinned")
url = json.StringOf("url")
shortUrl = json.StringOf("shortUrl")
prefsPermissionLevel = json.StringOf("prefs.permissionLevel")
prefsVoting = json.StringOf("prefs.voting")
prefsComments = json.StringOf("prefs.comments")
prefsInvitations = json.StringOf("prefs.invitations")
prefsSelfJoin = json.BoolOf("prefs.selfJoin")
prefsCardCovers = json.BoolOf("prefs.cardCovers")
prefsCardAging = json.StringOf("prefs.cardAging")
prefsCalendarFeedEnabled = json.BoolOf("prefs.calendarFeedEnabled")
prefsBackground = json.StringOf("prefs.background")
prefsBackgroundImage = json.StringOf("prefs.backgroundImage")
prefsBackgroundImageScaled = json.StringOf("prefs.backgroundImageScaled")
prefsBackgroundTile = json.BoolOf("prefs.backgroundTile")
prefsBackgroundBrightness = json.StringOf("prefs.backgroundBrightness")
prefsBackgroundColor = json.StringOf("prefs.backgroundColor")
prefsBackgroundBottomColor = json.StringOf("prefs.backgroundBottomColor")
prefsBackgroundTopColor = json.StringOf("prefs.backgroundTopColor")
prefsCanBePublic = json.BoolOf("prefs.canBePublic")
prefsCanBeEnterprise = json.BoolOf("prefs.canBeEnterprise")
prefsCanBeOrg = json.BoolOf("prefs.canBeOrg")
prefsCanBePrivate = json.BoolOf("prefs.canBePrivate")
prefsCanInvite = json.BoolOf("prefs.canInvite")
labelNamesGreen = json.StringOf("labelNames.green")
labelNamesYellow = json.StringOf("labelNames.yellow")
labelNamesOrange = json.StringOf("labelNames.orange")
labelNamesRed = json.StringOf("labelNames.red")
labelNamesPurple = json.StringOf("labelNames.purple")
labelNamesBlue = json.StringOf("labelNames.blue")
labelNamesSky = json.StringOf("labelNames.sky")
labelNamesLime = json.StringOf("labelNames.lime")
labelNamesPink = json.StringOf("labelNames.pink")
labelNamesBlack = json.StringOf("labelNames.black")