1Dim mail As  New MailMessage()
 2      mail.To         = mailTo.Text
 3      mail.From       = "gghouse@163.com"
 4      mail.Subject    = mailSubject.Text
 5      mail.BodyFormat = MailFormat.Text 
 6      mail.Body       = mailBody.Text
 7   mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") 
 8   mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "xxx@163.com") 
 9   mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "xxx的密码")
10
11      On Error Resume Next
12SmtpMail.SmtpServer = "smtp.163.com"
13SmtpMail.Send( mail )
14
15

之前有做过邮件发送的，不过下面第7行开始的东西对我来说还是新知识