<%@ Page Language="VB" %>
Sub Button1_Click(sender As Object, e As EventArgs)
Label1.Text = SendMail("Feedback form", TextBox1.Text, TextBox2.Text)
End Sub
Function SendMail(Subject As String, FromAddress As String, Message As String) As String
' Build a MailMessage
Dim mailMessage As System.Web.Mail.MailMessage = New System.Web.Mail.MailMessage
mailMessage.From = "someone@example.com"
mailMessage.To = "someone@example.com"
mailMessage.Subject = "Sending an e-mail from a web page"
mailMessage.BodyFormat = System.Web.Mail.MailFormat.Text
' TODO: Set the mailMessage.Body property
mailMessage.Body = Message
System.Web.Mail.SmtpMail.SmtpServer = "localhost"
System.Web.Mail.SmtpMail.Send(mailMessage)
SendMail = "Your message was sent to " & mailMessage.To
End Function
Your email address:
Your message: