服务器上CDO.Message这个组件问题

13560422100

服务器上CDO.Message这个组件问题，邮件发送不了，求高手解！！！
服务器上CDO.Message这个组件问题，邮件发送不了，求高手解！！！
服务器上CDO.Message这个组件问题，邮件发送不了，求高手解！！！

add.c

什么错误信息？

13560422100

原帖由 13560422100 于 2010-12-6 04:11 PM 发表
服务器上CDO.Message这个组件问题，邮件发送不了，求高手解！！！
服务器上CDO.Message这个组件问题，邮件发送不了，求高手解！！！
服务器上CDO.Message这个组件问题，邮件发送不了，求高手解！！！ ...

提示这个错误

13560422100

原帖由 add.c 于 2010-12-6 04:19 PM 发表
什么错误信息？

.


错误信息

13560422100

http://bbs.idcspy.com/viewthread.php?tid=153962&pid=732686&page=1&extra=page%3D1###

add.c

把你的代码贴出来看看，
提示不能连接到服务器

13560422100

错误代码提示：
CDO.Message.1 ERROR "80040213"
The transport failed to connect to the server

13560422100

原帖由 add.c 于 2010-12-6 04:42 PM 发表
把你的代码贴出来看看，
提示不能连接到服务器

回复 7# 的帖子
错误代码提示：
CDO.Message.1 ERROR "80040213"
The transport failed to connect to the server

add.c

这个是示例代码

1. <%
   
2. sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing"
   
3. smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver"
   
4. 
   
5. 
   
6. ' Set the mail server configuration
   
7. Set objConfig=CreateObject("CDO.Configuration")
   
8. objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort
   
9. objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net"
   
10. objConfig.Fields.Update
    
11. 
    
12. 
    
13. ' Create and send the mail
    
14. Set objMail=CreateObject("CDO.Message")
    
15. ' Use the config object created above
    
16. Set objMail.Configuration=objConfig
    
17. objMail.From="sender@coolexample.com"
    
18. objMail.ReplyTo="sender@coolexample.com"
    
19. objMail.To="recipient@coolexample.com"
    
20. objMail.Subject="subject"
    
21. objMail.TextBody="body"
    
22. objMail.Send
    
23. %>

复制代码

13560422100

Set objMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject ("CDO.Configuration")
objConfig.Fields(" http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objConfig.Fields(" http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objConfig.Fields(" http://schemas.microsoft.com/cdo/configuration/smtpserver") = E_Server
objConfig.Fields(" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objConfig.Fields(" http://schemas.microsoft.com/cdo/configuration/sendusername") = E_ServerUser
objConfig.Fields(" http://schemas.microsoft.com/cdo/configuration/sendpassword") = E_ServerPass
objConfig.Fields(" http://schemas.microsoft.com/cdo/configuration/languagecode") = "0x0804"
objConfig.Fields.Update()
Set objMail.Configuration = objConfig
objMail.Subject = topic
objMail.From = E_SendManMail
objMail.To = email
objMail.HTMLBody = mailbody
objMail.Send
Set objMail = Nothing