- Constant Contact Community
- :
- About NCJTC
turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for
About NCJTC
NCJTC
Occasional Contributor
since
06-19-2014
10-30-2018
10
Posts
4
Kudos
1
Solution
Badges
08-20-2018
04:20 PM
Is there any reason that my contact count for a list when logging in to Constant Contact would not match the count when using the API? In this example, I have a list called "Not Identified." When I use the API, it returns 61,207 contacts. When I login to Constant Contact, I see 63,438. What accounts for the discrepancy?
... View more
09-28-2017
01:00 PM
Thank you for the reply. This would be a very nice add to the API.
... View more
09-28-2017
10:26 AM
Is there a way to update a registration status for an event via the API? For example, I pull a list of active registrations from event 123456789123 into a spreadsheet. I'd like to be able to put a button to cancel someone's registration.
... View more
09-05-2017
01:55 PM
1 Kudo
This requires VBA-JSON (https://github.com/VBA-tools/VBA-JSON). In Excel, open Visual Basic (alt+F11). Select tools -> References and select Microsoft XML, v6.0 Create a new module and paste this. You can customize it as needed. Public Sub GetRegistrations()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim strURL, strRURL, eID As String
eID = {your event ID}
strEURL = "https://api.constantcontact.com/v2/eventspot/events/" & eID & "/registrants?limit=500&api_key={Your API Key}"
Dim objrequest As New MSXML2.XMLHTTP60
With objrequest
.Open "Get", strEURL, False
.setRequestHeader "Authorization", "Bearer " & "{Your Token}"
.send
End With
strPostResponse = objrequest.responseText
Dim eParsed As Dictionary
Set eParsed = JsonConverter.ParseJson(strPostResponse)
For a = 1 To eParsed("results").Count
rID = eParsed("results")(a)("id")
strRURL = "https://api.constantcontact.com/v2/eventspot/events/" & eID & "/registrants/" & rID & "?api_key={Your API Key}"
Dim objrequest2 As New MSXML2.XMLHTTP60
With objrequest2
.Open "Get", strRURL, False
.setRequestHeader "Authorization", "Bearer " & "{Your Token}"
.send
End With
strPostResponse2 = objrequest2.responseText
Dim rParsed As Dictionary
Set rParsed = JsonConverter.ParseJson(strPostResponse2)
Debug.Print JsonConverter.ConvertToJson(rParsed, Whitespace:=2)
For b = 2 To rParsed("sections").Count
Cells(LR + a + 1, 1).Value = eParsed("results")(a)("first_name")
Cells(LR + a + 1, 2).Value = eParsed("results")(a)("last_name")
Cells(LR + a + 1, 3).Value = eParsed("results")(a)("email")
Cells(LR + a + 1, 4).Value = rParsed("sections")(3)("fields")(1)("value") 'these can be updated depending on your requirements
Cells(LR + a + 1, 5).Value = rParsed("sections")(2)("fields")(6)("value")
Cells(LR + a + 1, 6).Value = rParsed("sections")(2)("fields")(7)("value")
Cells(LR + a + 1, 7).Value = rParsed("sections")(3)("fields")(2)("value")
Cells(LR + a + 1, 8).Value = rParsed("sections")(3)("fields")(3)("value")
Cells(LR + a + 1, 9).Value = rParsed("sections")(3)("fields")(6)("value")
Cells(LR + a + 1, 10).Value = rParsed("sections")(3)("fields")(7)("value")
Next
Next
Range("M1").Value = "Last Updated " & Format(Now(), "MM/DD/YYYY")
Application.ScreenUpdating = True
Application.Calculation = xlCalculateAutomatic
End Sub In this particular event, the rParsed sections look like this: rParsed("sections")(1) is Custom1 rParsed("sections")(2) is Personal Information rParsed("sections")(3) is Business Information rParsed("sections")(4) is Custom2 I don't know if that will be true for every event. In my case, I have this running in a spreadsheet -- I call the sub on open, and I added a button to process it on demand.
... View more
08-29-2017
09:32 AM
1 Kudo
Ultimately Jimmy recommended I switch to v2 of the API. This produced the file in JSON, and I was able to pull the information I needed using the code below. This code is dependent on VBA-JSON (https://github.com/VBA-tools/VBA-JSON) and the reference Microsoft XML, v6.0 Sub GetSelfIdentified()
Dim strNext, strCode, strList, strListName As String
Dim LR As Long
Range("A2").Select
ActiveWorkbook.Sheets("ContactLists").Activate
Dim intPageCount As Long
For rr = 3 To 16 'rows where the list IDs are located
strNext = "start"
intPageCount = 1
Do While strNext <> ""
If intPageCount = 1 Then
Cells(rr, 1).Activate
strListName = ActiveCell.Value
Cells(rr, 2).Activate
strList = "/v2/lists/" & ActiveCell.Value & "/contacts?limit=500&api_key={API KEY}"
Else
strList = strNext & "&api_key={API KEY}"
End If
LR = Range("H65000").End(xlUp).Row 'find the bottom row of the column where the email addresses will go
' this could be skipped if the addresses get put into a text file
strPostURL = "https://api.constantcontact.com" & strList
Dim objrequest As New MSXML2.XMLHTTP60
With objrequest
.Open "Get", strPostURL, False
.setRequestHeader "Authorization", "Bearer " & "{token}"
.send
End With
strPostResponse = objrequest.responseText
Dim Parsed As Dictionary
Set Parsed = JsonConverter.ParseJson(strPostResponse)
Debug.Print JsonConverter.ConvertToJson(Parsed, Whitespace:=2)
For a = 1 To Parsed("results").Count 'loops through all of the results
For b = 1 To Parsed("results")(a)("email_addresses").Count 'loops through all of the email_addresses in each result
Cells(LR + a, 8).Value = Parsed("results")(a)("email_addresses")(b)("email_address")
Next
Next
strNext = Parsed("meta")("pagination")("next_link") 'this gets the URL code for the next page
Set objrequest = Nothing
intPageCount = intPageCount + 1
Loop 'Now loop back through and put strNext in the URL
Next 'Keep doing this until strNext <> "next"
'Remove those email addresses from "Not Identified" list
'Be a hero
'Get the girl
'Win the day
End Sub
... View more
08-22-2017
10:30 AM
Thanks in advance!
... View more
08-21-2017
09:48 AM
Using VBA to run loop and get XML files of contacts within specific contact lists following this procedure: Call https://api.constantcontact.com/ws/customers/NCJTCemail/contacts?listid={listid}&api_key={api key} Create XML file with results of this get If a next URL exists, then loop and repeat until there is no next URL The list I am pulling has only 3 contacts (verified when running this in the Test API functionality, JSON file has only 3 entries). Therefore, this should run once, and quit. However, the results file has more than 3 contacts, and none of them are actually on the list. The process runs, and it does not quit. I've attempted this with other lists as well, similar results (ex. list with 500 contacts should produce 10 files of 50 contacts, instead results in 100's of files). What is going on? Sanitized Code below: strPostURL = "https://api.constantcontact.com/ws/customers/NCJTCemail/contacts?listid=[list id]&api_key=[api key]" Dim objrequest As New MSXML2.XMLHTTP60 With objrequest .Open "Get", strPostURL, False .setRequestHeader "Authorization", "Bearer " & {access token} .send End With strpostresponse = objrequest.responseText Dim lngFreeFile As Long lngFreeFile = FreeFile Open "C:\EmailAnalytics\Lists\" & ListName & "_" & intFileCount & ".xml" For Output As #lngFreeFile Print #lngFreeFile, strpostresponse Close #lngFreeFile Dim splitArray splitArray = Split(strpostresponse, """") Dim lineNum As Integer lineNum = 11 Debug.Print splitArray(lineNum) Debug.Print splitArray(lineNum + 2) If splitArray(lineNum + 2) = "next" Then strNext = splitArray(lineNum) Else strNext = "" End If
... View more
01-22-2016
02:54 PM
I would like to see an updated feature on campaign reports as follows. Issue: If I send a single campaign to multiple lists, I have to way to determine which lists were most effective. Workaround: Create a copy of the campaign for each list I am testing. Drawback is that contacts may exist on both lists. This results in receiving the emails multiple times. Recommended solution: In the campaign report, where each list is presented, provide a table which includes the list name, sends, opens, clicks, forwards, bounces, opt-outs, spam reports, and did-not opens. It is understood that these numbers will not reconcile to 100%, as contacts may be present in multiple lists. This solution will provide important data about list effectiveness.
... View more
06-05-2015
11:10 AM
After a year, I have nearly 200 campaigns. I still pull up numbers from previous campaigns. It would be ideal to be able to file these into folders (ie. "Active", "Program Name", or "Complete") in order to aid in sorting and locating information. The current options are too limited to be useful for high frequency campaigns.
... View more
04-17-2015
03:42 PM
2 Kudos
Issue: MS Outlook does not display background images in <table> or <td> tags. This means that text in a graphic is not able to be viewed by our readers unless an option is selected to download images. It also means that to use images, the text must be on the graphic itself.
Resolution:
Using the custom code advanced editor, use VML code similar to the following:
<td background="http://i.imgur.com/YJOX1PC.png" bgcolor="#7bceeb" width="640" height="130" valign="top">
<!--[if gte mso 9]>
<v:rect xmlns:v="urn:schemas-microsoft-com:vml" fill="true" stroke="false" style="width:640px;height:130px;">
<v:fill type="tile" src="http://i.imgur.com/YJOX1PC.png" color="#7bceeb" />
<v:textbox inset="0,0,0,0">
<![endif]-->
<div>
This text appears on top of the image, even in MS Outlook.
</div>
<!--[if gte mso 9]>
</v:textbox>
</v:rect>
<![endif]-->
</td>
Suggestion to Constant Contact: It would be great if this code were able to be used in the template editor or even have a tool button created that automatically inserts this code (WYSIWYG).
Urgency level: This is the next great innovation in email marketing technology.
... View more
- Find more ideas tagged with:
- Outlook
- table background
- VML
