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,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VB.NET UWP/WinRT) Constant Contact: Create a ContactCreates a single contact. For more information, see https://v3.developer.constantcontact.com/api_guide/contacts_create.html#cURL2
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New Chilkat.Http Dim success As Boolean ' Implements the following CURL command: ' curl -X POST \ ' https://api.cc.email/v3/contacts \ ' -H 'accept: application/json' \ ' -H 'authorization: Bearer {access_token}' \ ' -H 'cache-control: no-cache' \ ' -H 'content-type: application/json' \ ' -d '{ ' "email_address": { ' "address": "danipper@example.com", ' "permission_to_send": "implicit" ' }, ' "first_name": "David", ' "last_name": "Nipper", ' "job_title": "Musician", ' "company_name": "Acme Corp.", ' "create_source": "Account", ' "birthday_month": 11, ' "birthday_day": 24, ' "anniversary": "2006-11-15", ' "steet_addresses":{ ' "kind":"home", ' "street": "123 Kashmir Valley Road", ' "city": "Chicago", ' "state": "Illinois", ' "country": "United States", ' } ' }' ' Use the following online tool to generate HTTP code from a CURL command ' Convert a cURL Command to HTTP Source Code ' Use this online tool to generate code from sample JSON: ' Generate Code to Create JSON ' The following JSON is sent in the request body. ' { ' "email_address": { ' "address": "danipper@example.com", ' "permission_to_send": "implicit" ' }, ' "first_name": "David", ' "last_name": "Nipper", ' "job_title": "Musician", ' "company_name": "Acme Corp.", ' "create_source": "Account", ' "birthday_month": 11, ' "birthday_day": 24, ' "anniversary": "2006-11-15", ' "steet_addresses": { ' "kind": "home", ' "street": "123 Kashmir Valley Road", ' "city": "Chicago", ' "state": "Illinois", ' "country": "United States" ' } ' } Dim json As New Chilkat.JsonObject json.UpdateString("email_address.address","danipper@example.com") json.UpdateString("email_address.permission_to_send","implicit") json.UpdateString("first_name","David") json.UpdateString("last_name","Nipper") json.UpdateString("job_title","Musician") json.UpdateString("company_name","Acme Corp.") json.UpdateString("create_source","Account") json.UpdateInt("birthday_month",11) json.UpdateInt("birthday_day",24) json.UpdateString("anniversary","2006-11-15") json.UpdateString("steet_addresses.kind","home") json.UpdateString("steet_addresses.street","123 Kashmir Valley Road") json.UpdateString("steet_addresses.city","Chicago") json.UpdateString("steet_addresses.state","Illinois") json.UpdateString("steet_addresses.country","United States") http.SetRequestHeader("content-type","application/json") ' Adds the "Authorization: Bearer ACCESS_TOKEN" header. http.AuthToken = "ACCESS_TOKEN" http.SetRequestHeader("cache-control","no-cache") http.SetRequestHeader("accept","application/json") Dim resp As Chilkat.HttpResponse = Await http.PostJson3Async("https://api.cc.email/v3/contacts","application/json",json) If (http.LastMethodSuccess = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim sbResponseBody As New Chilkat.StringBuilder resp.GetBodySb(sbResponseBody) Dim jResp As New Chilkat.JsonObject jResp.LoadSb(sbResponseBody) jResp.EmitCompact = False Debug.WriteLine("Response Body:") Debug.WriteLine(jResp.Emit()) Dim respStatusCode As Integer = resp.StatusCode Debug.WriteLine("Response Status Code = " & respStatusCode) If (respStatusCode >= 400) Then Debug.WriteLine("Response Header:") Debug.WriteLine(resp.Header) Debug.WriteLine("Failed.") Exit Sub End If ' Sample JSON response: ' (Sample code for parsing the JSON response is shown below) ' { ' "contact_id": "{contact_id}", ' "email_address": { ' "address": "danipper@example.com", ' "permission_to_send": "implicit", ' "created_at": "2018-02-23T13:38:28-05:00", ' "updated_at": "2018-02-23T13:38:28-05:00", ' "opt_in_source": "Account", ' "opt_in_date": "2018-02-23T13:38:28-05:00", ' "confirm_status": "off" ' }, ' "first_name": "David", ' "last_name": "Nipper", ' "job_title": "Musician", ' "company_name": "Acme Corp.", ' "birthday_month": 11, ' "birthday_day": 24, ' "anniversary": "2006-11-15", ' "create_source": "Account", ' "created_at": "2018-02-23T13:38:28-05:00", ' "updated_at": "2018-02-23T13:38:28-05:00" ' } ' Sample code for parsing the JSON response... ' Use the following online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON Dim contact_id As String = jResp.StringOf("contact_id") Dim email_addressAddress As String = jResp.StringOf("email_address.address") Dim email_addressPermission_to_send As String = jResp.StringOf("email_address.permission_to_send") Dim email_addressCreated_at As String = jResp.StringOf("email_address.created_at") Dim email_addressUpdated_at As String = jResp.StringOf("email_address.updated_at") Dim email_addressOpt_in_source As String = jResp.StringOf("email_address.opt_in_source") Dim email_addressOpt_in_date As String = jResp.StringOf("email_address.opt_in_date") Dim email_addressConfirm_status As String = jResp.StringOf("email_address.confirm_status") Dim first_name As String = jResp.StringOf("first_name") Dim last_name As String = jResp.StringOf("last_name") Dim job_title As String = jResp.StringOf("job_title") Dim company_name As String = jResp.StringOf("company_name") Dim birthday_month As Integer = jResp.IntOf("birthday_month") Dim birthday_day As Integer = jResp.IntOf("birthday_day") Dim anniversary As String = jResp.StringOf("anniversary") Dim create_source As String = jResp.StringOf("create_source") Dim created_at As String = jResp.StringOf("created_at") Dim updated_at As String = jResp.StringOf("updated_at") |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.