Thursday, 5 December 2013

Mailchimp Subscribe form in ASP.NET, VB, C#

Add DLL
 MailChimp.dll
PerceptiveMCAPI.dll
Add References both dll

using PerceptiveMCAPI.Types;
using PerceptiveMCAPI;
using PerceptiveMCAPI.Methods;
using MailChimp;
using MailChimp.Helper;
using PerceptiveMCAPI.Types.Internal;
using MailChimp.Lists;




 ApiKey = objSettingVal.ToString();//Enter MailChaimp ApiKey
              
                    
                      
                            ListId = objSettingVal1.ToString();//EnterLit Id
                
                        if (objSettingVal1 != null && Convert.ToString(objSettingVal1) != "" && objSettingVal != null && Convert.ToString(objSettingVal) != "")
                        {
                            string Newurl = "http:" + "//" + HttpContext.Current.Request.Url.Host + "/";
                            string Url = Newurl + txtClientPortal.Text.ToString().Trim();
                            Subscriber OBJSUB = new Subscriber();
                            OBJSUB.URL = Url; OBJSUB.COLLEGNAME = txtBusinessName.Text.ToString().Trim();
                            if (Directory.Exists(fileLocation))
                            {
                                if (fileimage.HasFile)
                                {
                                    string fileName = Path.GetFileName(fileimage.PostedFile.FileName);
                                    string LeftPartUrlis="https://d2q0qd5iz04n9u.cloudfront.net/_ssl/proxy.php/";
                                    string MiddleUrl = "http:" + "//" + HttpContext.Current.Request.Url.Host + "/";


                                    string LastUrl="DesktopModules/Redbarn-ManageClient/images/";
                                    string FullUrl=LeftPartUrlis + MiddleUrl + LastUrl;
                                    OBJSUB.CollegeLogo = FullUrl + fileName.ToString();
                                }
                                else {
                                    OBJSUB.CollegeLogo = "NA";
                                }
                            }
                           
                            OBJSUB.Address = txtAddress.Text.Trim().ToString(); OBJSUB.EMAIL = txtEmail.Text.Trim().ToString(); OBJSUB.ZipCode = txtZip.Text.ToString(); OBJSUB.CollegeSeries = txtCollegeSeries.Text.ToString();
                            Dictionary<string, object> dictionary = new Dictionary<string, object>();
                            dictionary.Add("URL", OBJSUB.URL);
                            dictionary.Add("COLLEGNAME", OBJSUB.COLLEGNAME);
                            dictionary.Add("Address", OBJSUB.Address);
                            dictionary.Add("EMAIL", OBJSUB.EMAIL);
                            dictionary.Add("ZIPCODE", OBJSUB.ZipCode);
                            dictionary.Add("COLLEGESER", OBJSUB.CollegeSeries);
                            dictionary.Add("LOGO", OBJSUB.CollegeLogo);
                            // dictionary.Add("URL", OBJSUB.URL);
                            //SubscriberList.Add(new Subscriber { URL = txtClientPortal.Text.ToString().Trim(), COLLEGNAME = txtBusinessName.Text.ToString().Trim(), Address = txtAddress.Text.Trim().ToString(), EMAIL = txtEmail.Text.Trim().ToString() });
                            EmailParameter obj1 = new EmailParameter();


                            listSubscribe cmd = new listSubscribe();
                            listSubscribeParms newlistSubscribeParms = new listSubscribeParms
                            {
                                apikey =ApiKey,
                                id =ListId,
                                email_address = txtEmail.Text.Trim().ToString(),
                                merge_vars = dictionary,

                                double_optin = false,
                                email_type = EnumValues.emailType.html,
                                replace_interests = true,
                                send_welcome = true,
                                update_existing = true
                            };
                            listSubscribeInput newlistSubscribeInput = new listSubscribeInput(newlistSubscribeParms);
                            var subscribeSuccess = cmd.Execute(newlistSubscribeInput);
                        }

No comments:

Post a Comment