关于CDO.Message发送邮件可否支持HTML内容
请问一下大大们
我的代码如下，我希望我发送的邮件可以支持HTML内容，应该怎么改呢？
<%
Const cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort=2
Const cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic=1
Const cdoSendUserName="http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword="http://schemas.microsoft.com/cdo/configuration/sendpassword"
Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.126.com" '改成可用的外部邮件服务器域名
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "XXXXXX" '以上服务器的用户名
.Item(cdoSendPassword) = "XXXXXX" '密码
.Update
End With
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
.To = "XXX@126.com" '改成接收者的邮件地址
.From = "XXX@126.com" '改成发送人的邮件地址
.Subject = "XXXXXX" '标题
.TextBody = "XXXXXXXXXX" '正文
.Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
%>
问题点数：0、回复次数：3Top
1 楼zhangfeng1133（）回复于 2005-06-02 06:38:32 得分 0
我记得,支持html要在代码设置的啊Top
2 楼asp1110（）回复于 2005-06-02 07:47:12 得分 0
100MB asp和 asp.net空间 50/1年
我看到了一个网站 100MB asp和 asp.net空间 现在促销，
同学们可以做一个简单的个人网站用来找工作 ，
支持 asp.net 一年才50元！不要错过哦！！！
速度非常快，一般公司企业 足够用了！
http://www.hi876.com
希望能对大家有帮助Top
3 楼aegean72（72）回复于 2005-06-02 17:35:10 得分 0
我已经解决了
.TextBody = "XXXXXXXXXX"改为.HTMLBody = "XXXXXXXXXX"Top
