请教如何使用CDO发邮件到需要认证的SMTP服务器？

[asp_sunglow]

现在对于大部分INTERNET上的邮件服务器好象都需要SMTP认证了，使用CDONTS一般都收不到邮件。前不久看到一篇帖子介绍通过CDO远程调用微软服务器的SMTP设置，来进行邮件发送，找了好久没找到，望哪位大虾能指点一二，或有更好的解决办法也一并指出。谢谢~

[luluso]

up.我也想知道.期代中...................

[Cooly]

SMTP身份认证指的是通过目标SMTP服务器进行发信时需要验证访问者的身份。
而使用CDONTS发信只需要将本机设为SMTP服务器就可以了。

[julyclyde]

CDO可以，但是CDONTS不行
msdn里有资料可以看

[wanghui0380]

<%
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) = "sony.com" '改成可用的外部邮件服务器域名
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "hooke" '以上服务器的用户名
.Item(cdoSendPassword) = "mypassword" '密码
.Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig

With objMessage
.To = "[e-mail]" '改成接收者的邮件地址
.From = "[e-mail]" '改成发送人的邮件地址
.Subject = "SMTP Relay Test" '标题
.TextBody = "SMTP Relay Test Sent @ " & Now() '正文
.Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
%>