CDO 发邮件疑问,求助!

chaoqunz 2008-03-31 05:28:47
<%
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服务器" '改成可用的外部邮件服务器域名
.Item(cdoSMTPServer) = "smtp.carryquote.com" '改成可用的外部邮件服务器域名
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "kamir.zh" '以上服务器的用户名
.Item(cdoSendPassword) = "123456" '密码
.Update
End With

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

With objMessage
'.To = Trim(Request.Form("m_user")) '改成接收者的邮件地址
.To = "chaoqunz@163.com" '改成接收者的邮件地址
.From = "kamir@carryquote.com" '"发件人的地址(要和上面的邮件系统相同)" '改成发送人的邮件地址
.Subject = "标题" 'Trim(Request.Form("m_zhuzi")) '标题
.TextBody = "正文" 'Trim(Request.Form("m_neirong")) '正文
'.AddAttachment "C:\Scripts\Output.txt"'邮件附件
.Send
End With

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




这样的话,可以受到邮件,如果修改.From 为别的邮箱地址(不是以carryquote.com结尾的),为什么不能受到邮件,如果想完成我的说的功能,该如何修改
...全文
75 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
chaoqunz 2008-03-31
已经解决
From = "<任意一个地址>"就可以了

实践得出:
1.如果.From = "<地址a>",则在收件箱中能收到邮件
2.如果.From = "地址a",
(1):a如果与smtp一致,则在收件箱中能受到邮件
(2):a如果与smtp不一致,则收不到邮件
回复
gingerkang 2008-03-31
.sender="发件箱地址" '此项省略者该值为.from的值;该帐号需要用上面的密码能通过smtp身份验证的帐号
.from="显示的发件人名字"
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-03-31 05:28
社区公告
暂无公告