How to send out mass email

[taree]

Hi all,

I need your help how I could send out mass email form the database.I have a page set up to collect email address and my question to you is how can I send out a mass email when I have an update. I have the email address in my access database.

thank you

 

[jbenson001]

Look into the System.Net.Mail namespace.

 

[taree]

Thank you jbenson001 for your reply. I did try to put together this code. I have two question when I send out a mass email I would like to use bcc that way no one will know who else received email. From is the email from sender and To: what do i put here?

Imports System.Net.Mail
Partial Class emailT
    Inherits System.Web.UI.Page
    Protected Sub SendEmail()

        Dim strEmailsCollectionCount As String() = GetEmailAddresses()
        Dim i As Integer
        Dim strEmailCollections As New StringBuilder()

        For i = 0 To strEmailsCollectionCount.Length - 1
            If i <> 0 Then
                strEmailCollections.Append(";")
            End If

            Dim test As String = strEmailCollections.Append(strEmailsCollectionCount(i)).ToString
        Next
        Dim mail As New MailMessage
        mail.Bcc = strEmailCollections.ToString()

    End Sub

    Protected Function GetEmailAddresses() As String()
        Dim strEmailArray(2) As String

        strEmailArray(0) = "Myemail1@address.com"
        strEmailArray(1) = "Myemail2@address.com"
        strEmailArray(2) = "Myemail3@address.com"

        Return strEmailArray

    End Function

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        SendEmail()
    End Sub
End Class

 

[taree]

changed to this still getting: 'The specified string is not in the form required for an e-mail address. any clue?

mail.Bcc.Add(strEmailCollections.ToString)

 

[taree]

FYI, changed from ; to this , and that did it for me.
got it form here:

http://rstew.blogspot.com/2007/06/specified-string-is-not-in-form.html

 

[jbenson001]

excellent, glad you got it working

 

[taree]

How to do you change the return value to array list.

 Protected Function GetEmailAddresses() As ArrayList

        Dim strTMConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\DataBase\emaillist.mdb") & ";"
        Dim MyTMConn As New OleDbConnection(strTMConn)
        Dim strSQL As String = "SELECT email from tbEmail"
        Dim cmdTM As OleDbCommand = New OleDbCommand
        cmdTM.Connection = MyTMConn
        cmdTM.CommandType = CommandType.Text
        cmdTM.CommandText = strSQL
        Dim adTM As New OleDbDataAdapter(cmdTM)
        Dim bldTM As OleDbCommandBuilder = New OleDbCommandBuilder(adTM)
        Dim dsTM As New DataSet
        adTM.Fill(dsTM, "EmailList")
        Return dsTM


    End Function

 

[jbenson001]

You'll have to loop throught the rows in the datatable and add the values you want to an arraylist