cdo组件发邮件

原来用cdonts组件来发邮件，自从服务器用了2003系统以后，发现原来的功能不灵了，页面提示说是创建对象不成功。于是我查了一下IIS的帮助，帮助里面明确的写着在2003系统中，cdonts的组件被删除了，只保留了cdo组件。CDO组件是cdonts的父级组件。但是网上很多地方说是用cdo组件发邮件的例子，其实都是cdonts组件的例子。
下面我来列一下cdo组件的例子
set cdomail=server.CreateObject ("CDO.Message") 这个是关键，创建的是cdo组件，而不是cdonts
'cdomail.MailFormat =0 这些属性在cdonts有，但是cdo中没有
'cdomail.BodyFormat =0
cdomail.From =mail
cdomail.To="jaa@aacom"
'cdomail.Bcc="sdfs@dfsdcom"
cdomail.Subject =product '" request information "
'//////////////////////////body content////////////////////////////
message="name:" & name & "
"
message=message & "company:" & company & "
"
'message=message & "单位地址：" & address & "
"
'message=message & "邮政编码：" & zip & "
"
message=message & "phone:" & phone & "
"
'message=message & "传真：" & fax & "
"
message=message & "request time:" & ordertime & "
"
message=message & "request information:" & info & "
"
'///////////////////////////////////////////////////
cdomail.htmlBody =message '这个也是关键的部分，和原来的body属性不一样
'response.Write product & "
"
'response.Write & "
"
'response.end
cdomail.Send
set cdomail=nothing