页面上cdo发邮件的问题（续）？帮忙看一下啊

Question

'以下是完整的代码Dim email As New System.Web.Mail.MailMessage
email.To = "[email protected]"
email.From = "[email protected]"
email.Body = "MessageText"
email.Subject = "SubjectText"
email.BodyFormat = Web.Mail.MailFormat.Textemail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")'--------------------------------------------------
'将以下三行中中的,第2个参数,设为你的smtp相应值,即可
'--------------------------------------------------
email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", "smtp.163.net")
email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "smtpuser")
email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "password")System.Web.Mail.SmtpMail.Send(email)