• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 88
  • Last Modified:

How do I send an email in ASP.NET?

Is this right?

Imports System.Data
Imports System.Data.SqlClient
Imports System.Net.Mail

Partial Class Submit

    Inherits System.Web.UI.Page
    Dim objdt As System.Data.DataTable
    Dim objdr As System.Data.DataRow
    Dim ds As New DataSet

    Protected Sub submit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        Dim strConnection As String = "Data Source=mssql102.manage.myhosting.com;Initial Catalog=db1150602_group3;Integrated Security=False;User ID=u1150602_drnicholsongroup3;Password=w6p?K9x!,l;Connect Timeout=15;Encrypt=False;Packet Size=4096"
        Dim objconnection As New SqlConnection(strConnection)
        Dim mysqlDataAdapter As New SqlDataAdapter("select * From Faculty", objconnection)

        Dim myDataRow As DataRow
        Dim mydatarowscommandbuilder As New SqlCommandBuilder(mysqlDataAdapter)

        mysqlDataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
        mysqlDataAdapter.Fill(ds, "Faculty")
        myDataRow = ds.Tables("Faculty").NewRow()
        myDataRow("Work Title") = txtWorkTitle.Text
        myDataRow("Co-Authors") = txtCoAuthor.Text
        myDataRow("Additional Info") = txtAddInfo.Text

        mysqlDataAdapter.Update(ds, "Faculty")

        txtWorkTitle.Text = ""
        txtCoAuthor.Text = ""
        txtCoAuthor2.Text = ""
        txtCoAuthor3.Text = ""
        txtCoAuthor4.Text = ""
        txtCoAuthor5.Text = ""
        txtAddInfo.Text = ""

            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("username@rowan.edu", "password")
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.gmail.com"
            e_mail = New MailMessage()
            e_mail.From = New MailAddress("username@rowan.edu")
            e_mail.Subject = "Email Sending"
            e_mail.IsBodyHtml = False
            e_mail.Body = DropDownList1.DataTextField
            e_mail.Body = txtWorkTitle.Text
            e_mail.Body = txtCoAuthor.Text
            e_mail.Body = txtCoAuthor2.Text
            e_mail.Body = txtCoAuthor3.Text
            e_mail.Body = txtCoAuthor4.Text
            e_mail.Body = txtCoAuthor5.Text
            e_mail.Body = txtAddInfo.Text
            MsgBox("Mail Sent")
        Catch error_t As Exception
        End Try

    End Sub

    Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles btnAdd.Click

        If (txtCoAuthor2.Visible = False) Then

            txtCoAuthor2.Visible = True

        End If

        If (txtCoAuthor3.Visible = False) Then

            txtCoAuthor2.Visible = True
            txtCoAuthor3.Visible = True
        End If

        If (txtCoAuthor4.Visible = False) Then

            txtCoAuthor2.Visible = True
            txtCoAuthor3.Visible = True
            txtCoAuthor4.Visible = True

        End If

        If (txtCoAuthor5.Visible = False) Then

            txtCoAuthor2.Visible = True
            txtCoAuthor3.Visible = True
            txtCoAuthor4.Visible = True
            txtCoAuthor5.Visible = True

        End If

    End Sub

End Class

Open in new window

  • 2
2 Solutions
Robberbaron (robr)Commented:
mostly correct.

but the email .Body is a single string propoerty so you have to build it up..

        string msgbody = ""
        msgbody += 

msgbody +=  = DropDownList1.DataTextField & vbCrLf
            msgbody +=  = txtWorkTitle.Text & vbCrLf
            msgbody +=  = txtCoAuthor.Text & vbCrLf
            msgbody +=  = txtCoAuthor2.Text & vbCrLf
            msgbody +=  = txtCoAuthor3.Text & vbCrLf
            msgbody +=  = txtCoAuthor4.Text & vbCrLf
            msgbody +=  = txtCoAuthor5.Text & vbCrLf
            msgbody +=  = txtAddInfo.Text & vbCrLf
          e_mail.Body  = msgBody

Open in new window

i also use message.To.Add(new MailAddress(toAddress));  but probably not needed.
Robberbaron (robr)Commented:
if you tried my code , you would have found all the errors...

delete line 3.

line 5 should be
msgbody += DropDownList1.DataTextField & vbCrLf

Open in new window

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now