Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for
Search instead for
Did you mean:
Due to an issue with YouTube, inserting videos in your emails is showing an error. Until they are able to resolve this issue, we recommend using a different video hosting service. We will continue to monitor this outage and update you as we have more information.
When removing contacts from a list, the Activity page shows that these contacts were added.
Added 5491 Contacts to Lists should be
Removed 5491 Contacts to Lists.
Keeping an activity record is not helpful if the record is inaccurate. This may lead to confusion, inefficiency and possible corruption of contact lists and should be corrected.
... View more
I am trying to add a new contact from an asp.net form but I am getting "The remote server returned an error: (403) Forbidden." Public Function AddContact(ByVal UserEmailAddress As String, ByVal ContactListNumber As Integer) As String
Dim xml As String
xml = "<?xml version='1.0' encoding='utf-8' ?>" & _
"<entry xmlns='http://www.w3.org/2005/Atom'>" & _
"<title type='text'></title>" & _
"<updated>2008-07-23T14:21:06.407Z</updated>" & _
"<author></author>" & _
"<id>data:,none</id>" & _
"<summary type='text'>Contact</summary>" & _
"<content type='application/vnd.ctct+xml'>" & _
"<Contact xmlns='http://ws.constantcontact.com/ns/1.0/'>" & _
"<EmailAddress>" & UserEmailAddress.ToString() & "</EmailAddress>" & _
"<OptInSource>ACTION_BY_CONTACT</OptInSource>" & _
"<ContactLists>" & _
"<ContactList id='http://api.constantcontact.com/ws/customers/[username]/lists/" & ContactListNumber.ToString() & "'/>" & _
"</ContactLists>" & _
"</Contact>" & _
"</content>" & _
' Set up the request
Dim request As HttpWebRequest
request = WebRequest.Create("https://api.constantcontact.com/ws/customers/[username]/contacts/")
Dim byteData As Byte() = UTF8Encoding.UTF8.GetBytes(xml.ToString())
request.Method = "POST"
request.ContentType = "application/atom+xml"
request.ContentLength = byteData.Length
request.Credentials = New NetworkCredential("[api key]%[username]", "[password]")
' Send the request
Dim postStream As Stream
postStream = request.GetRequestStream()
postStream.Write(byteData, 0, byteData.Length)
Dim response As HttpWebResponse
response = request.GetResponse()
Catch ex As WebException
... View more