<%
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(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "用户名" '以上服务器的用户名
.Item(cdoSendPassword) = "密码" '密码
.Update
End With
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
'.Bcc = Trim(Request.Form("m_user")) '改成接收者的邮件地址
.To = Trim(Request.Form("m_user")) '改成接收者的邮件地址
.From = "发件人的地址(要和上面的邮件系统相同)" '改成发送人的邮件地址
.Subject = Trim(Request.Form("m_zhuzi")) '标题
'.TextBody = Trim(Request.Form("m_neirong")) '文本正文
.HtmlBody = "<html><body>qifei</body></html>" 'html正文
'.AddAttachment "C:/Scripts/Output.txt"'邮件附件
.Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
%>
分享到:
相关推荐
我一注册用户就出现这个~请问这是是哪里出问题拉CDO.Message.1 错误 ‘80040220’ “SendUsing”配置值无效。 /inc-freehost-function/FreeHostFunctionMain.asp,行 637 答:您服务器上没有装iis的smtp,如果你不...
二、在ASP.NET利用本机的SMTP虚拟服务器的SMTP来发送邮件 首先说一下SMTP配置。 (1)右键点击“SMTP虚拟服务器”选择“属性”->在“常规”选项卡中设置“IP地址(P)”,我设置的是192.168.1.100。 (2)选择...
第19~23章是关于ASP与BackOffice类应用软件的结合问题,如Microsoft Message Queue Server、Collaborative Data Objects、Microsoft Exchange和Active Directory等等。第24~27章是在企业环境中使用ASP的安全性、性能...
第19~23章是关于ASP与BackOffice类应用软件的结合问题,如Microsoft Message Queue Server、Collaborative Data Objects、Microsoft Exchange和Active Directory等等。第24~27章是在企业环境中使用ASP的安全性、性能...
设置是否显示:流量信息、报价单、发货单、赠品、优惠券、管理进入链接等2)邮件发送系统:支持Jmail、ObjCdoMail、Aspemail、Cdo.Message组件 管理员可选择组件和设置SMTP发件信息3)后台管理账户维护功能,管理员...
2)邮件发送系统:支持Jmail、ObjCdoMail、Aspemail、Cdo.Message组件 管理员可选择组件和设置SMTP发件信息 3)后台管理账户维护功能,管理员分为总管理员、订单管理员、产品管理员 管理员后台可设置添加、...
13)管理员发货后系统自动发送邮件提醒客户,具体邮件内容由管理员后台设置 14)后台可以分配专门的订单管理员,权限仅限于订单管理 15)管理员可设置是否允许未登录用户下单,未用户下单获得积分 16)发货单功能:...
13)管理员发货后系统自动发送邮件提醒客户,具体邮件内容由管理员后台设置 14)后台可以分配专门的订单管理员,权限仅限于订单管理 15)管理员可设置是否允许未登录用户下单,未注册用户下单获得积分 16)发货单...
13)管理员发货后系统自动发送邮件提醒客户,具体邮件内容由管理员后台设置 14)后台可以分配专门的订单管理员,权限仅限于订单管理 15)管理员可设置是否允许未登录用户下单,未注册用户下单获得积分 16)发货单...
1 , WinLocaleConvert.zip This program shows the international settings of the country you select such as Format Currency, Date Format, Day Name, Month Name...<END><br>2 , netstuff.zip This ...
13)管理员发货后系统自动发送邮件提醒客户,具体邮件内容由管理员后台设置 14)后台可以分配专门的订单管理员,权限仅限于订单管理 15)管理员可设置是否允许未登录用户下单,未注册用户下单获得积分 16)发货单...