Store multiple Email messages and send when user hits Save button

Solution 2

So that I could store it in viewstate, I ended up going with a datatable. Then I can easily add rows to it and then after the user saves, I can send all the emails at once. This works pretty well. Here is the partial code where I was stumbling.

Thank you Dino !

Imports System.Data.SqlClient
Imports System.Data
 
Partial Class test
    Inherits System.Web.UI.Page
 
    Dim dtEmailStore As DataTable
 
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
        If ViewState("_dtEmailStore") IsNot Nothing Then
            dtEmailStore = CType(ViewState("_dtEmailStore"), DataTable)
        Else
            'The Datatable isn't in view state, so we need to set it up from scratch.
            Dim colRowNum As DataColumn = New DataColumn("colRowNum", System.Type.GetType("System.Int32"))
            colRowNum.AutoIncrement = True 'Auto increment column
            colRowNum.Unique = True
 
            dtEmailStore = New DataTable
            Dim colTo As DataColumn = New DataColumn("colTo", Type.GetType("System.String"))
            Dim colCC As DataColumn = New DataColumn("colCC", Type.GetType("System.String"))
            Dim colBody As DataColumn = New DataColumn("colBody", Type.GetType("System.String"))
 
            'add the columns to our new table
            dtEmailStore.Columns.Add(colRowNum)
            dtEmailStore.Columns.Add(colTo)
            dtEmailStore.Columns.Add(colCC)
            dtEmailStore.Columns.Add(colBody)
        End If
 
    End Sub
 
    Protected Sub btnInsert_Click(sender As Object, e As System.EventArgs)
 
        'insert these 2 rows into the datatable
        Dim dr As DataRow
 
        dr = dtEmailStore.NewRow() 'new row
        dr("colTo") = "PersonTo@Rubble.com"
        dr("colCC") = "PersonCC@Rubble.com"
        dr("colBody") = "Testing body"
        dtEmailStore.Rows.Add(dr) 'add the new row to the table

        dr = dtEmailStore.NewRow() 'new row
        dr("colTo") = "ttttt@Rubble.com"
        dr("colCC") = "ccccccc@Rubble.com"
        dr("colBody") = "Testing again body"
        dtEmailStore.Rows.Add(dr) 'add the new row to the table

        'store the datatable in viewstate - so that it will persist across post backs.
        ViewState("_dtEmailStore") = dtEmailStore
 
        Call Read()
    End Sub
 
    Protected Sub btnRead_Click(sender As Object, e As System.EventArgs)
        Call Read()
    End Sub
 
    Sub Read()
        Response.Write(System.DateTime.Now & "<br />")
 
        'loop thru the datatable
        For Each dr As DataRow In dtEmailStore.Rows
            Response.Write(dr.Item("colRowNum") & "    " & dr.Item("colTo") & "    " & dr.Item("colCC") & "    " & dr.Item("colBody") & "<br>")
        Next
 
    End Sub
 
End Class
</br>

Permalink

Posted 10 Dec '12 - 5:34

Paul Bukowski542

Solution 1

You could create an email class with all properties (To,From,Body so on)

Then create a list of your email class with all the emails

Then loop through you list sending the emails

Permalink

Posted 7 Dec '12 - 12:20

DinoRondelly4.9K

Comments

DinoRondelly - 7 Dec '12 - 18:30

You should store the list in either the SessionState or ViewState

Paul Bukowski - 8 Dec '12 - 9:08

Dino - by chance do you happen to have an example to help me better understand what you mean around the list of email class ? I think you might be on to something there with storing it in viewstate. Though I don't really follow how to put the list together to begin with. Thanks, Paul

DinoRondelly - 8 Dec '12 - 13:14

Depending how you set up your email class you would do something like this Declare your email object Dim ret as New myEmail() Declare your list of email objects Dim myEmailList as New List(of myEmail) Add your values to your emial object ret.emailTo = textboxEmailTo.Text ret.emailFrom = textboxEmailFrom.Text ..and so on Add your email object to your list of email objects myEmailList.Add(ret) then just do a foreach loop on your list pulling the values back out sending the email For each email in MyEmailList Dim message As New MailMessage() Dim smtpClient As New SmtpClient() message.From = email.emailFrom message.To.Add(email.emailTo) and so Next The codes not perfect youll have to play with it but this should point you in the right direction

0	OriginalGriff	218
1	Ron Beyer	215
2	Aarti Meswania	190
3	Rohan Leuva	178
4	Mahesh Bailwal	160

0	Sergey Alexandrovich Kryukov	8,553
1	OriginalGriff	6,899
2	CPallini	3,648
3	Rohan Leuva	2,963
4	Maciej Los	2,308

Store multiple Email messages and send when user hits Save button

2 solutions

Solution 2

Solution 1

Add your solution here

Preview 0

		9,882,945 members (69,127 online) Visit CodeProject.TV Discuss CodeProject.TV Sign in Email Password Forgot your password? Sign in using

Interested
Ignored

Store multiple Email messages and send when user hits Save button

2 solutions

Solution 2

Solution 1

Add your solution here

Preview 0

Existing Members

...or Join us