About DonorManagement

We have a working bulk upload process using the api and a csv file. We recently tried adding two custom fields to the process and our uploads will not process when those two custom fields are included.   The two custom fields were added using the new contact mangement UI, so they have been named D_ID and P_ID   We named the fields CustomField1 and CustomField2 in the process after trying the process using the above custom names, the process fails with CustomField1 and/or D_ID.   I read your post that was something like ours but it dodn't indicate if anything worked or not.   How should we be naming the fields?   Thank you, ... View more

Is there a limit to the number of email addresses we can upload to a list through the API?   When we upload email addresses to a list it take a while for the new email addresses to show in our CT account, is this normal? The number shown is correct but the new email addresses don't show unless we logout and log back in.   Any help is very appreciated.   Thank you, ... View more

Our integration has been in place for a longtime, however to day we receive this error when trying to access any of our integration. Can you please provide assistence? " The remote server returned an error: (403) Forbidden. ... View more

Trying to add a new contact list, just a list name. didn't find details on this in docs. We get a Media not supported error when trying this code. Can you offer help?   Public Shared Sub AddNewContactList(ByVal sListName As String) 'Setup your variables Dim ctu As String = GetCTU() Dim ctp As String = GetCTP() Dim sUri As String = "https://api.constantcontact.com/ws/customers/" & ctu & "/activities" Dim sListUri As String = sListName Dim sAPIKey As String = "CONSTANT_CONTACT_API_KEY" Try 'Setup an HttpWebRequest to send the data Dim address As New Uri(sUri) Dim request As HttpWebRequest = TryCast(WebRequest.Create(address), HttpWebRequest) request.Credentials = New NetworkCredential((sAPIKey & "%" & ctu), ctp) request.Method = "POST" request.ContentType = "application/vnd.ctct+xml" 'Build an encoded string of the data to pass to Constant Contact Dim data As New StringBuilder() 'data.Append("activityType=" + HttpUtility.UrlEncode("SV_ADD", Encoding.UTF8)) data.Append("&data=" + HttpUtility.UrlEncode(("OptInDefault,Name" & Chr(10)), Encoding.UTF8)) data.Append(HttpUtility.UrlEncode(("true," & sListName), Encoding.UTF8)) 'data.Append("&lists=" + HttpUtility.UrlEncode(sListUri)) 'The "guts" of the code to execute the request and return a response Dim byteData As Byte() = UTF8Encoding.UTF8.GetBytes(data.ToString()) Dim st As String = String.Empty request.ContentLength = byteData.Length Using postStream As Stream = request.GetRequestStream() postStream.Write(byteData, 0, byteData.Length) End Using Using response As HttpWebResponse = TryCast(request.GetResponse(), HttpWebResponse) Dim reader As New StreamReader(response.GetResponseStream()) st = reader.ReadToEnd() End Using Catch ex As Exception HttpContext.Current.Response.Write(ex.Message) End Try End Sub   ... View more

Can anyone see why I would receive a 400 Bad Request:   I'm trying to upload multiple contacts My file is setup properly Email, FirstName, LastName, CompanyName     PublicSharedSub UploadMultipleContacts(ByVal sSelectedList AsString)         'A SUCCESSFUL UPLOAD RETURNS A STATUS OF 201 FROM THE RESPONSE VARIABLE.   'Setup your variables      Dim ctu AsString = CTU()         Dim ctp AsString = CTP()         Dim sUri AsString = "https://api.constantcontact.com/ws/customers/" & ctu & "/activities"         ' complete uri for list selected, including list id.       Dim sListUri AsString = sSelectedList   Dim sAPIKey AsString = "??????"   'yep, too lazy to add in an open file dialog. put directory of CSV here 'Dumps CSV into a string      Dim filename AsString = "UploadData.csv"       Dim fullpath AsString = System.IO.Path.Combine(HttpContext.Current.Server.MapPath("~/Constant_Contact"), filename)     Dim CSVFile AsString = System.IO.File.ReadAllText(fullpath) Try            'Setup an HttpWebRequest to send the data           Dim address AsNewUri(sUri) Dim request AsHttpWebRequest = TryCast(WebRequest.Create(address), HttpWebRequest)             request.Credentials = NewNetworkCredential((sAPIKey & "%" & ctu), ctp)             request.Method = "POST"             request.ContentType = "multipart/form-data" 'Build an encoded string of the data to pass to Constant Contact Dim data AsNewStringBuilder()             data.Append( "activityType=" + HttpUtility.UrlEncode("ADD_CONTACTS", Encoding.UTF8)) 'Encodes raw string into URLEncoded format             data.Append( "&file=" + HttpUtility.UrlEncode(CSVFile))             data.Append( "&lists=" + HttpUtility.UrlEncode(sListUri))             'The "guts" of the code to execute the request and return a response            'The response (returned as 'strResponse') will be XML.  You can parse this for status messages if you like, or just ignore it.             Dim byteData AsByte() = UTF8Encoding.UTF8.GetBytes(data.ToString())             Dim st AsString = String.Empty             request.ContentLength = byteData.Length             Using postStream AsStream = request.GetRequestStream()                 postStream.Write(byteData, 0, byteData.Length)             EndUsing             Using response AsHttpWebResponse = TryCast(request.GetResponse(), HttpWebResponse)                 Dim reader AsNewStreamReader(response.GetResponseStream())                 st = reader.ReadToEnd()             EndUsing        Catch ex AsException             HttpContext.Current.Response.Write(ex.Message)         EndTry    EndSub ... View more