用system.web.mail如何发送邮件

Question

要求你的机子上装有SMTP服务！！1
  Dim com_time As System.DateTime
            com_time = Session("logo_time")
            Session("logo_time") = System.DateTime.Now
            If System.DateTime.Now.Subtract(com_time).TotalSeconds < 3 Then
                Response.Write("<script languge=javascript> alert('您发信在频繁，请3秒后重试！') ;</script>")
                Exit Sub
            End If
            Dim newmail As Mail.MailMessage = New Mail.MailMessage()
            newmail.To = "[email protected]"  'addressee.Text
            newmail.Cc = t_cc.Text
            newmail.Subject = motif.Text
            newmail.From = sender_h.Text
            newmail.BodyFormat = Mail.MailFormat.Text
            newmail.Body = content.Text
            Mail.SmtpMail.Send(newmail)
            Response.Write("<script languge=javascript> alert('发送成功！非常感谢您的支持。') ;</script>")