Send email to all employees in database

<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Web.Mail" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<script runat=server>
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
    Dim TheMailMessage as New MailMessage
    Dim TheMailConnection as SmtpMail
    Dim DBConn as OleDbConnection
    Dim DBCommand As OleDbDataAdapter
    Dim DSPageData as New DataSet
    Dim I as Long
    TheMailMessage.From = txtFromEmail.Text
    TheMailMessage.Subject = txtSubject.Text
    TheMailMessage.Body = txtMessage.Text
    DBConn = New OleDbConnection( _
        "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
        & "DATA SOURCE=" _
        & Server.MapPath("EmployeeDatabase.mdb;"))
    DBCommand = New OleDbDataAdapter _
        ("Select FirstName " _
        & "From Employee", DBConn)
    For I = 0 to DSPageData.Tables("FirstName"). _
        Rows.Count - 1
        TheMailMessage.To = DSPageData.Tables("FirstName"). _
            Rows(I).Item("FirstName") & "@hotmail.com"
        TheMailConnection.Send(TheMailMessage)
    Next
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Sending Email Blast</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
Enter your email address:
<BR>
<asp:textbox
    id="txtFromEmail"
    runat="server"
/>
<BR>
Enter the subject of your message:
<BR>
<asp:textbox
    id="txtSubject"
    runat="server"
/>
<BR>
Enter the text of your message:
<BR>
<asp:textbox
    id="txtMessage"
    runat="server"
    textmode="MultiLine"
    rows="5"
/>
<BR>
<asp:button 
    id="butOK"
    text="Send"
    Type="Submit"
    OnClick="SubmitBtn_Click" 
    runat="server"
/>
</form>
</BODY>
</HTML>

EmployeeDatabase.zip( 10 k)

Related examples in the same category

1.	Simplest Way of Sending Email from Gmail
2.	Send out email in code behind (C#)
3.	Send out an Email
4.	Send email with attached file
5.	Send email out through asp:form
6.	Send email with html form message
7.	Email message in a html format
8.	Email form with cc and bcc
9.	Email with priority
10.	Send email function
11.	Email with pictures
12.	Email with attachment
13.	Send email with more than one attachments
14.	Send out an email in case of page error
15.	Send an email

Send email to all employees in database : Email « Components « ASP.Net

Related examples in the same category