emailing newsletter from XML recipient list   

Thanks in advance for for any clues: I have a website I'm building
using MS-Visual Web Developer Express (Asp.Net/VB.net). I'm tooling
it
to collect names and emails to send out our newsletter. I have
successfully setup an XML file with some sample names and emails. I
populated this through a well functioning .aspx page that writes to
the XML file and I have set up another .aspx page from which I can
view the collected persons. what I need is a way to send our
newsletter (which for the time being will be just some text in the
email body (but I'd like to do more). So I need to parse through the
XML list and send an email to each recipient. Any clues?

Here's my code for users entering their names and email addresses:


<script runat="server">
    Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            Using ds As New DataSet()
                ds.ReadXml(Server.MapPath("emailList.xml"))
                txtNewEvent.DataBind()
                txtDate.DataBind()
            End Using
        End If
    End Sub


    Private Sub btnSubmit_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnSubmit.Click
        Using ds As New DataSet()
            ds.ReadXml(Server.MapPath("emailList.xml"))
            Dim dr As DataRow = ds.Tables(0).NewRow()
            dr("emailAddress") = txtNewEvent.Text
            dr("name") = txtDate.Text
            ds.Tables(0).Rows.Add(dr)
            ds.WriteXml(Server.MapPath("emailList.xml"))
        End Using
    End Sub
</script>


Here's my code for viewing the list of emails:


<script runat="server">
    Private Function MakeDataView() as DataView
        Dim myDataSet As New DataSet()
        myDataSet.ReadXml(Server.MapPath("emailList.xml"))
        Dim view As DataView = New DataView(myDataSet.Tables(0))
        view.AllowDelete = False
        view.AllowEdit = False
        view.AllowNew = False
        view.Sort = "Name ASC"
        Return view
    End Function


    Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        Dim view as DataView = MakeDataView()
        dgEmail.DataSource = view
        dgEmail.AllowSorting = True
        dgEmail.DataBind()
    End Sub
</script>


Thanks!!!

date: Wed, 13 Feb 2008 21:55:24 -0800 (PST)   author:   slinky