用CDONTS发的邮件,为什么不能发到SINA等邮箱?

hubert1214 2003-09-18 01:46:21
试过SINA,MSN,我公司的邮箱,163等,现在只有MSN的没有问题!为什么?
...全文
442 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
wanghui0380 2003-09-19
  • 打赏
  • 举报
回复
to jycjyc(jycjyc)
我在六台装w2k机子上测试都可以通过
  • 打赏
  • 举报
回复
to wanghui0380(放歌):
改成cdo后都可以发送成功吗?
lang11zi 2003-09-18
  • 打赏
  • 举报
回复
u[p
wanghui0380 2003-09-18
  • 打赏
  • 举报
回复
CDONTS这个组件不支持身份验证,所以我换用支持身份验证的cdo组件(该组件是w2k自带的组件,无需另装)

当然也有人用jmail组件,该组件的好处是方便,简单
  • 打赏
  • 举报
回复
问题是在CDONTS吗,还是别的?有人知道吗?
fireboys 2003-09-18
  • 打赏
  • 举报
回复
是拒收啦。。。
xingdongfang 2003-09-18
  • 打赏
  • 举报
回复
存在不存在SMTP认证啊?你的发件箱是不是以的域名是不是新浪的,
你改为其他的邮箱试试.
wanghui0380 2003-09-18
  • 打赏
  • 举报
回复
现在sina邮件需要身份验证,可以用下面的方法解决
<%
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 = "F4@meteorgardon.com" '改成接收者的邮件地址
.From = "hooke@sony.com" '改成发送人的邮件地址
.Subject = "SMTP Relay Test" '标题
.TextBody = "SMTP Relay Test Sent @ " & Now() '正文
.Send
End With

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

fffddd 2003-09-18
  • 打赏
  • 举报
回复
有,换齐齐邮件组件就可以了.
hubert1214 2003-09-18
  • 打赏
  • 举报
回复
难道没有什么办法解决一下吗!
杨小杨 2003-09-18
  • 打赏
  • 举报
回复
据说sina的邮箱拒收这种邮件

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧