MailChimp.NET icon indicating copy to clipboard operation
MailChimp.NET copied to clipboard

System.Runtime.Serialization.SerializationException

Open serena-alfapi opened this issue 9 years ago • 2 comments

Hi,

when I try to create a campaign, I receive this error:

Type definitions should start with a '{', expecting serialized type 'ApiError', got string starting with: <HTML><HEAD>

Access Denied

Site hosted on smarterasp.net.

Please, Help me! thank you for all kind of support!

serena-alfapi avatar Dec 14 '16 09:12 serena-alfapi

Hmmm ... can you do any operations with Mailchimp? What operations appear to work -- which don't?

danesparza avatar Dec 14 '16 17:12 danesparza

Thank's for reply. Yes I can do everything. It's possible to create and send a campaing using mailchimp site.

This is the code I use to send using vb.net:

Imports MailChimp (using Nuget MailChimp.NET)

Public Shared Function AUTOMATIC_MAILCHIMP_SEND(ByVal _url As String, ByVal _oggetto As String, ByVal listId As String, ByVal _d As String) As String Dim _esito As String Dim apiKey As String = "XXXXXXXXX" Dim mc As MailChimpManager = New MailChimpManager(apiKey) Dim messaggio As New MailChimp.Campaigns.CampaignCreateContent Dim _d2() As String Dim _destinatari As New List(Of String)

_d2 = Split(_d, ";") For _i = 0 To _d2.Count - 1 _destinatari.Add(_d2(_i)) Next

messaggio.Url = _url (the url where I saved newsletter.htm in the same server) Dim options As New MailChimp.Campaigns.CampaignCreateOptions With options .ListId = listId .Subject = _oggetto .FromEmail = "[email protected]" .FromName = "XXXXX" End With Dim campagna As New MailChimp.Campaigns.Campaign campagna = mc.CreateCampaign("regular", options, messaggio) Dim campagnaid As String = campagna.Id Dim result As New MailChimp.Campaigns.CampaignActionResult

============================= ERROR HERE =============================

result = mc.SendCampaignTest(campagnaid, _destinatari)

===================================================================

Select Case result.Complete.ToString Case "True" _esito = "ok"

Case Else _esito = "KO" End Select

Return _esito End Function

thank's

serena-alfapi avatar Dec 15 '16 08:12 serena-alfapi