Tuesday 21 May 2013

Send Bulk Emails using C# VB.NET in ASP.NET


Send Bulk Emails using C# VB.NET in ASP.NET


I have been asked zillion times that How to Send Bulk Emails using C# or VB.NET in ASP.NET.

Well, there are hundreds of tutorials all over the internet on sending bulk emails in ASP.NET using C# or VB.NET.

However, I decided to post a basic "how to" for beginners so that they can easily understand the functionality of send bulk emails in ASP.NET.

For this example I will be using Northwind Database.

Step 1:




ASPX Code:

<form id="form1" runat="server">
    <div>
        Recipient(s):<br />
    <asp:TextBox ID="txtRecipient" runat="server" Height="50px" Width="525px"
            TextMode="MultiLine"></asp:TextBox>
        <br />
        <asp:Button ID="btnRecipientFromDB" runat="server"
            onclick="btnRecipientFromDB_Click" Text="Recipient From Database" />
        <br />
        <asp:CheckBoxList ID="chklstRecipientsFromDB" runat="server" Visible="False">
        </asp:CheckBoxList><asp:Button ID="btnAddSelected" runat="server"
            Text="Add Selected" onclick="btnAddSelected_Click" Visible="False" />
       
        <br />
        Subject:<br />
    <asp:TextBox ID="txtSubject" runat="server" Height="18px" Width="522px"></asp:TextBox>
   
        <br />
        <br />
        Email Body:<br />
        <asp:TextBox ID="txtEmailBody" runat="server" Height="290px" Width="520px"
            TextMode="MultiLine"></asp:TextBox>
        <br />
        <asp:Button ID="btnSend" runat="server" onclick="btnSend_Click"
            Text="Send Email" />
   
    </div>
</form>


This is simple form containing 3 TextBoxes

  1. Recipient(s)
  2. Email Subject
  3. Email Body
"Add Recipients from Database" button will show list of already added contacts from database as shown in image below:

Now, user has two options, either they can select multiple users from list and/or they can add recipients email address manually separated by ";"

Code Behind:
C#:

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Data;
using System.Text;
using System.Net.Mail;

namespace TestApplication
{
    public partial class BulkEmail : System.Web.UI.Page
    {
        protected void Page_Load(object sender, EventArgs e)
        {
            if (!IsPostBack)
            {
                chklstRecipientsFromDB.Visible = false;
                btnAddSelected.Visible = false;
            }
        }

        protected void btnSend_Click(object sender, EventArgs e)
        {
            try
            {
                #region Direct Email to db Recipients
                //if you want to send emails directly to recipient from database, use code below
                //DataSet dsClients = GetClientDataSet();
                //if (dsClients.Tables["Users"].Rows.Count > 0)
                //{
                //    foreach (DataRow dr in dsClients.Tables["Users"].Rows)
                //    {
                //        SendEmail(dr["Email"].ToString());
                //    }
                //}
                #endregion

                char[] splitter = { ';' };
                foreach (string emailAdd in txtRecipient.Text.Split(splitter))
                {
                    SendEmail(emailAdd);
                }
            }
            catch (Exception ex)
            {
            }
        }

        protected void btnRecipientFromDB_Click(object sender, EventArgs e)
        {
            try
            {
                DataSet dsClients = GetClientDataSet();

                chklstRecipientsFromDB.DataSource = dsClients.Tables[0];
                chklstRecipientsFromDB.DataTextField = "Email";
                chklstRecipientsFromDB.DataValueField = "Email";
                chklstRecipientsFromDB.DataBind();

                chklstRecipientsFromDB.Visible = true;
                btnAddSelected.Visible = true;
                btnRecipientFromDB.Visible = false;
            }
            catch (Exception ex)
            {
            }
            finally
            {
            }
        }
        ///
        ///  Creates and returns a DataSet using Ms Access OleDBConnection and an OleDBDataAdapter
        ///
        ///
        /// A DataSet from Ms Access using an OleDBConnection and an OleDBDataAdapter
        ///
        private System.Data.DataSet GetClientDataSet()
        {

            //retrieve the connection string from the ConnectionString Key in Web.Config
            //string connectionString = System.Configuration.ConfigurationSettings.AppSettings["ConnectionString"];
            string connectionString = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Talha\Documents\Database2.accdb;Persist Security Info=False;";

            //create a new OleDB connection
            System.Data.OleDb.OleDbConnection conn = newSystem.Data.OleDb.OleDbConnection(connectionString);

            //pass the Select statement and connection information to the initializxation constructor for the OleDBDataAdapter
            System.Data.OleDb.OleDbDataAdapter myDataAdapter = newSystem.Data.OleDb.OleDbDataAdapter("SELECT Email FROM Employees", conn);

            //Create a new dataset with a table : CLIENTS
            System.Data.DataSet myDataSet = new System.Data.DataSet("Users");

            //Fill the dataset and table with the data retrieved by the select command
            myDataAdapter.Fill(myDataSet, "Users");

            //return the new dataset created
            return myDataSet;
        }
        private void SendEmail(string EmailAddress)
        {
            //Send Email Functionality here
            MailMessage mail = new MailMessage();
            mail.To.Add(EmailAddress);
            mail.From = new MailAddress("admin@codeshode.com");
            mail.Subject = txtSubject.Text;
            mail.Body = txtEmailBody.Text;

            mail.IsBodyHtml = true;
            SmtpClient smtp = new SmtpClient();
            smtp.Host = "smtp.gmail.com"//Or Your SMTP Server Address
            smtp.Credentials = new System.Net.NetworkCredential("YourUserName@gmail.com","YourGmailPassword");//Or your Smtp Email ID and Password
            smtp.EnableSsl = true;
            smtp.Send(mail);
        }

        protected void btnAddSelected_Click(object sender, EventArgs e)
        {
            StringBuilder strRecipientEmails = new StringBuilder();
            foreach (ListItem chk in chklstRecipientsFromDB.Items)
            {
                if (chk.Selected)
                {
                    strRecipientEmails.Append(chk.Value);
                    strRecipientEmails.Append(";");
                }
            }
            txtRecipient.Text = strRecipientEmails.ToString();
            chklstRecipientsFromDB.Visible = false;
            btnAddSelected.Visible = false;
        }
    }
}


VB.NET:

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Text
Imports System.Net.Mail

Partial Public Class BulkEmail
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(sender As Object, e As EventArgs)
        If Not IsPostBack Then
            chklstRecipientsFromDB.Visible = False
            btnAddSelected.Visible = False
        End If
    End Sub

    Protected Sub btnSend_Click(sender As Object, e As EventArgs)
        Try
            '#Region "Direct Email to db Recipients"
            'if you want to send emails directly to recipient from database, use code below
            'DataSet dsClients = GetClientDataSet();
            'if (dsClients.Tables["Users"].Rows.Count > 0)
            '{
            '    foreach (DataRow dr in dsClients.Tables["Users"].Rows)
            '    {
            '        SendEmail(dr["Email"].ToString());
            '    }
            '}
            '#End Region

            Dim splitter As Char() = {";"c}
            For Each emailAdd As String In txtRecipient.Text.Split(splitter)
                SendEmail(emailAdd)
            Next
        Catch ex As Exception
        End Try
    End Sub

    Protected Sub btnRecipientFromDB_Click(sender As Object, e As EventArgs)
        Try
            Dim dsClients As DataSet = GetClientDataSet()

            chklstRecipientsFromDB.DataSource = dsClients.Tables(0)
            chklstRecipientsFromDB.DataTextField = "Email"
            chklstRecipientsFromDB.DataValueField = "Email"
            chklstRecipientsFromDB.DataBind()

            chklstRecipientsFromDB.Visible = True
            btnAddSelected.Visible = True
        Catch ex As Exception
        Finally
        End Try
    End Sub
    '''
    '''  Creates and returns a DataSet using Ms Access OleDBConnection and an OleDBDataAdapter
    '''
    '''
    ''' A DataSet from Ms Access using an OleDBConnection and an OleDBDataAdapter
    '''
    Private Function GetClientDataSet() As System.Data.DataSet

        'retrieve the connection string from the ConnectionString Key in Web.Config
        'string connectionString = System.Configuration.ConfigurationSettings.AppSettings["ConnectionString"];
        Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Talha\Documents\Database2.accdb;Persist Security Info=False;"

        'create a new OleDB connection
        Dim conn As New System.Data.OleDb.OleDbConnection(connectionString)

        'pass the Select statement and connection information to the initializxation constructor for the OleDBDataAdapter
        Dim myDataAdapter As New System.Data.OleDb.OleDbDataAdapter("SELECT Email FROM Employees", conn)

        'Create a new dataset with a table : CLIENTS
        Dim myDataSet As New System.Data.DataSet("Users")

        'Fill the dataset and table with the data retrieved by the select command
        myDataAdapter.Fill(myDataSet, "Users")

        'return the new dataset created
        Return myDataSet
    End Function
    Private Sub SendEmail(EmailAddress As String)
        'Send Email Functionality here
        Dim mail As New MailMessage()
        mail.[To].Add(EmailAddress)
        mail.From = New MailAddress("admin@codeshode.com")
        mail.Subject = txtSubject.Text
        mail.Body = txtEmailBody.Text

        mail.IsBodyHtml = True
        Dim smtp As New SmtpClient()
        smtp.Host = "smtp.gmail.com"
        'Or Your SMTP Server Address
        smtp.Credentials = New System.Net.NetworkCredential("YourUserName@gmail.com","YourGmailPassword")
        'Or your Smtp Email ID and Password
        smtp.EnableSsl = True
        smtp.Send(mail)
    End Sub

    Protected Sub btnAddSelected_Click(sender As Object, e As EventArgs)
        Dim strRecipientEmails As New StringBuilder()
        For Each chk As ListItem In chklstRecipientsFromDB.Items
            If chk.Selected Then
                strRecipientEmails.Append(chk.Value)
                strRecipientEmails.Append(";")
            End If
        Next
        txtRecipient.Text = strRecipientEmails.ToString()
        chklstRecipientsFromDB.Visible = False
        btnAddSelected.Visible = False
    End Sub
End Class



Now you may type Email Subject, Email Body and press "Send Email" to send bulk emails!


Thats It!!

Was that so difficult??

11 comments:

  1. Internet marketing is must in now days. And online business listing sites is one of the best way for marketing.

    Email Marketing Company | Bangalore Website Development Company

    ReplyDelete
  2. Sending bulk email is one of the strategy in Email marketing promotions.
    Magento Experts India | Magento Programmers India

    ReplyDelete
  3. This blog having the great explanation with coding of programming language of Send Bulk Emails using C# VB.NET in ASP.NET.
    Web Design Companies | Web Designing Company Bangalore

    ReplyDelete
  4. Nowadays bulk SMS and Email Marketing is not getting the targeted customers for the business.But we could find our targeting customers through search engine campaigns.
    Website Design Company London | Web Design London

    ReplyDelete
  5. Well, there are hundreds of tutorials all over the internet on sending bulk emails in ASP.NET using C# or VB.NET. Web Design Bangalore

    ReplyDelete
  6. Excellent and amazing post. Worth the time. You can share this post in these multiple social media platforms such as Facebook Twitter with Google+ being the most important medium followed by LinkedIn and Pinterest

    ReplyDelete
  7. Beautiful post I've come across today. Informative. Thanks for sharing this most excellent information. You can share this information on other platforms such as, Wordpress, Blogspot, Tumblr being the most important platform followed by, Bravesites and Medium.

    ReplyDelete
  8. Excellent and amazing post. Worth the time. You can also share these post in different social medias to get a higher ground like Facebook, Twitter with Google Plus followed by LinkedIn and Pinterest

    ReplyDelete
  9. This post refers useful information about internet marketing. Thank you for sharing this awesome post. Worth our time to read. You can also publish this awesome post on other platforms such as, Wordpress, Blogspot with Medium and LiveJournal

    ReplyDelete
  10. Interesting and fantastic post. Thanks for this information and do you know that you can also share these post in different social medias to get a higher ground? Like these sites, Facebook, Twitter followed by LinkedIn and Pinterest

    ReplyDelete
  11. Hi! Thank you for the share this information. This is very useful information for online blog review readers. Keep it up such a nice posting like this.
    Website Design
    SEO Company

    ReplyDelete