Protected Sub SendEmail_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SendEmail.Click '!!!把这个值更新为你的电子邮件地址 Const ToAddress As String = "you@youremail.com" '(1)创建MailMessage实例 Dim mm As New MailMessage(UsersEmail.Text, ToAddress) '(2)属性MailMessage赋值 mm.Subject = Subject.Text mm.Body = Body.Text mm.IsBodyHtml = False '(3)创建SmtpClient对象 Dim smtp As New SmtpClient '(4)发送MailMessage(将使用Web.config设置) smtp.Send(mm) End Sub