emailing newsletter from XML recipient list


S

slinky

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!!!
 
Ad

Advertisements

Ad

Advertisements

S

slinky

Ooops... my web hosting provider does not support SQLServer and I've
had a dickens of a time installing it and finding workarounds. I have
an Access database running on my site... can that be used to retrieve
XML data? I'm a newbie to sending out bulk emails through VB.net/
ASP.net so I don't know where to start.

I did find this block of code that I may be able to learn something:

<%@ Page Explicit="True" Language="VB" Debug="True" %>
<html>
<body>
<%
Dim EMailFrom As String = "(e-mail address removed)"
Dim EMailTo As String = "(e-mail address removed)"
Dim EMailSubject As String = "Important message!"
Dim EMailBody As String = "Thanks for reading this" & _
"message but I must admit, I lied. There's " & _
"nothing important about this message at all."

Dim MySmtpClient As New _
System.Net.Mail.SmtpClient("localhost")

MySmtpClient.Send(EMailFrom, EMailTo, _
EMailSubject, EMailBody)
%>
</body>
</html>
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top