如何用asp.net发邮件?

我的运行环境是Win2000Server+ VS.net2003现在已经能做到简单地发邮件,遇到的问题有如下问题:
1.要求验证
2.要求收件收到邮件的内容是网页形式,也就是说一打开邮件,看到是一个网页我部分代码如下:
Imports System.Web.Mail
Sub SubmitBtn_click(ByVal Sender As Object, ByVal E As EventArgs)
   Dim TheMailMessage As New MailMessage
   Dim TheMailConnection As SmtpMail
   Dim TheMessage As String
   TheMessage = "<%Response.Buffer = true %>" _
              & "<HTML> <body>" _
              & " <%Response.Redirect ('http://XXXX/mgreport/Dashboard.aspx?userid='&userid&'&proid=900') %>" _  'XXXX为邮件服务器名                       
                & " <%Response.Flush() %>" _
                & "</body></HTML> "                TheMailMessage.From = "From_mail"
                TheMailMessage.To = "To_mail"
                TheMailMessage.Subject = "Html email"
                TheMailMessage.Body = TheMessage
                TheMailMessage.BodyFormat = MailFormat.Html
                TheMailConnection.Send(TheMailMessage)
 End Sub以上代码可以正常发邮件,但用户看不到网页;若加上邮件验证的代码: Dim TheMailMessage As New MailMessage
   Dim TheMailConnection As SmtpMail
   Dim TheMessage As String
   TheMessage = "<%Response.Buffer = true %>" _
              & "<HTML> <body>" _
              & " <%Response.Redirect ('http://XXXX/mgreport/Dashboard.aspx?userid='&userid&'&proid=900') %>" _  'XXXX为邮件服务器名                       
                & " <%Response.Flush() %>" _
                & "</body></HTML> "                TheMailMessage.From = "From_mail"
                TheMailMessage.To = "To_mail"
                TheMailMessage.Subject = "Html email"
                TheMailMessage.Body = TheMessage
                TheMailMessage.BodyFormat = MailFormat.Html
                TheMailMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
                TheMailMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "myusername")
                TheMailMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "mypassword")
                TheMailConnection.SmtpServer = "http://XXXX" 'XXXX为邮件服务器名 
                TheMailConnection.Send(TheMailMessage)
 End Sub
现在代码运行结果是出现错误为:无法存取'CDO.Message'物件我不是很理解:
TheMailMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
                TheMailMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "myusername")
                TheMailMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "mypassword")                TheMailConnection.SmtpServer = "http://XXXX" 'XXXX为邮件服务器名 把上面的代码"http://schemas.microsoft.com"换成我们公司的邮件服务器XXXX,还是出现同样的问题,无法存取CDO.Message物件
TheMailMessage.Fields.Add("http://XXXX/cdo/configuration/smtpauthenticate", "1")
TheMailMessage.Fields.Add("http://XXXX/cdo/configuration/sendusername", "myusername")
TheMailMessage.Fields.Add("http://XXXX/cdo/configuration/sendpassword", "mypassword")
其中myusername,mypassword为From_mail的用户名和密码
请各位大侠帮帮忙,好着急呀!!!