< % @Import Namespace="System.Web.Mail" %>
< script language="vb" runat="server">
Sub btnSendFeedback_Click(sender as Object, e as EventArgs)
'Create an instance of the MailMessage class
Dim objMM as New MailMessage()
'Set the properties - send the email to the person who filled out the
'feedback form.
objMM.To = "****************"
objMM.From = "**************"
objMM.Headers.Add("Reply-to", txtEmail.text )
'If you want to CC this email to someone else, uncomment the line below
objMM.Cc = txtEmail.Text
'If you want to BCC this email to someone else, uncomment the line below
'objMM.Bcc = "someone@someaddress.com"
'Send the email in text format
objMM.BodyFormat = MailFormat.Text
'(to send HTML format, change MailFormat.Text to MailFormat.Html)
'Set the priority - options are High, Low, and Normal
objMM.Priority = MailPriority.Normal
'Set the subject
objMM.Subject = "Web mail"
'Set the body
objMM.Body = "At " + DateTime.Now + " An Email was sent from Dr. Gizzi's webspace " & _
"Below you will find the message " & _
"sent by " & txtName.Text & "." & vbCrLf & vbCrLf & _
"---------------------------------------" & vbCrLf & vbCrLf & _
txtMessage.Text & vbCrLf & vbCrLf & "Email address: " + txtEmail.Text
'Specify to use the default Smtp Server
SmtpMail.SmtpServer = "*************"
'Now, to send the message, use the Send method of the SmtpMail class
SmtpMail.Send(objMM)
panelSendEmail.Visible = false
panelMailSent.Visible = True
End Sub
< /script>