Protected Sub Wizard1_FinishButtonClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.WizardNavigationEventArgs) Handles Wizard1.FinishButtonClick
''send message from visitor to you
SendMail("Bid.Letting@dot.state.mn.us", txtEmail.Text)
''send message from you to visitor
SendMail(txtEmail.Text, "Bid.Letting@dot.state.mn.us")
End Sub
Private Sub SendMail(ByVal toEmail as string, ByVal fromEmail as string)
Dim objEmail As New MailMessage
objEmail.To.Add(toEmail)
objEmail.From = New MailAddress(fromEmail)
Dim sMsg As String
sMsg = "Feedback has been sent to you." & vbCrLf & "The results are as follows:" & vbCrLf
sMsg += "Email Address : " & txtEmail.Text & vbCrLf
sMsg += "Contact Person Name : " & txtName.Text & vbCrLf
sMsg += "Contact Person's Comments : " & txtSummary.Text & vbCrLf
sMsg += "Contact Person's Suggestions : " & txtSuggestions.Text & vbCrLf
objEmail.Subject = "You have Feedback"
objEmail.Body = sMsg
objEmail.IsBodyHtml = False
Dim SmtpMail As New SmtpClient()
SmtpMail.Send(objEmail)
End Sub