Components ASP.Net


            <%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Web.Mail" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>

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



Sending Email Blast





Enter your email address:


    id="txtFromEmail"
    runat="server"
/>


Enter the subject of your message:


    id="txtSubject"
    runat="server"
/>


Enter the text of your message:


    id="txtMessage"
    runat="server"
    textmode="MultiLine"
    rows="5"
/>


    id="butOK"
    text="Send"
    Type="Submit"
    OnClick="SubmitBtn_Click" 
    runat="server"
/>



           
        
EmployeeDatabase.zip( 10 k)