一个简单的email问题：在email中传送网页形式的数据

我想以网页形式把一个页面发送到email中
我可以得到该网页的源代码，但是我将该网页的源代码写成字符串发送过去之后，收到的没有显示出网页的形式，而是把网页的源代码显示出来，
是不是在发送的时候要设置什么东西？

我使用的是cdonts.newmail组件
代码如下：

1   
2set email=server.createobject("cdonts.newmail")   
3email.from="[email protected]"   
4email.to="[email protected]"   
5email.subject="test head"   
6  
7body="

1"   
2email.body=body   
3email.send   
4response.write "send mail success!"   
5

烦请各位高手指点指点！！~~~~~~~~~~~~~```
---------------------------------------------------------------

%
email = Request.form("email")
Dim objNewMail
Set objNewMail = CreateObject("CDONTS.NewMail")

HTML = "

"
HTML = HTML & "

 1&lt;html&gt;"   
 2HTML = HTML &amp;amp; "&lt;head&gt;"   
 3HTML = HTML &amp;amp; "&lt;title&gt;HTML Demo&lt;/title&gt;"   
 4HTML = HTML &amp;amp; "&lt;/head&gt;"   
 5HTML = HTML &amp;amp; "&lt;body bgcolor="#FFFFFF"&gt;"   
 6HTML = HTML &amp;amp; "&lt;strong&gt;HTML DEMO&lt;/strong&gt;"   
 7HTML = HTML &amp;amp; "CDO for NTS allows an easy way to send mail."   
 8HTML = HTML &amp;amp; "This example shows how the content can be an HTML page"   
 9HTML = HTML &amp;amp; "&lt;table border="1" width="150"&gt;&lt;tr&gt;&lt;td&gt;Simple table Example&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;"   
10HTML = HTML &amp;amp; "&lt;font color="#FF0000" size="2"&gt;This should give you an idea...&lt;font&gt;"   
11HTML = HTML &amp;amp; "&lt;/font&gt;&lt;/font&gt;&lt;/body&gt;"   
12HTML = HTML &amp;amp; "&lt;/html&gt;

>"
objNewMail.From = " [email protected] "
objNewMail.To = email
objNewMail.Subject = "Sample HTML Message"
objNewMail.BodyFormat = 0 '注意
objNewMail.MailFormat = 0 '注意
objNewMail.Body = HTML
objNewMail.Send
Set objNewMail = Nothing
%>

---------------------------------------------------------------

应该是objNewMail.BodyFormat＝true,objnewmail.mailformat=true才支持HTML格式的发送吧，我用的是其他的组建发送邮件，是这样设置的，