Sub ButClick(sender as Object, e as EventArgs)
If Page.isValid Then
Dim MailObj as MailMessage = New MailMessage
SmtpMail.SmtpServer="127.0.0.1"
MailObj.From="Yeatskang@163.com"
MailObj.To="Yeatskang@sina.com"
MailObj.Subject="content"
MailObj.Body="content"
MailObj.BodyFormat=MailFormat.Text
SmtpMail.Send(MailObj)
End Sub