CDONTS.DLL发送邮件代码.成功测试通过
来源:互联网 发布:windows终端 编辑:程序博客网 时间:2024/05/01 13:11
EmailTitle="New Gold Store Order Information From WWW.GAMESAVOR.COM!("&now()&")"
EmailContent="WOW Gold Store Order Infomation:"&vbcrlf&vbcrlf
EmailFrom="gamesavor@126.com"
EmailTo="gamesavor@hotmail.com"
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.126.com" '改成可用的外部邮件服务器域名
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "gamesavor" '以上服务器的用户名
.Item(cdoSendPassword) = "123456" '密码
.Update
End With
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
.To = EmailTo '改成接收者的邮件地址
.From =EmailFrom'改成发送人的邮件地址
.Subject = EmailTitle'标题
.TextBody = EmailContent'正文
'.AddAttachment "C:/Scripts/Output.txt"'邮件附件
.Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
- CDONTS.DLL发送邮件代码.成功测试通过
- 用CDONTS发送邮件
- 用CDONTS发送邮件
- 用CDONTS发送邮件
- 使用CDONTS发送邮件
- About--CDONTS发送邮件(转)
- 使用CDONTS发送HTML邮件
- QTP 使用 CDONTS 发送邮件
- 利用CDONTS发送邮件的ASP函数
- NewMail 对象(CDONTS 库)发送邮件
- 利用CDONTS组件来发送邮件
- NewMail 对象(CDONTS 库)发送邮件
- 用asp.net发送邮件,测试成功
- 用asp.net发送邮件,测试成功
- 发送邮件(MFC dll)-测试中使用
- asp.net中发送邮件(测试通过)
- jmail.message 实现发送邮件(测试通过)
- ASP发送邮件函数(Jmail,cdonts,aspemail,WebEasymail)
- 常用的Window Dos命令
- 古人幽默
- 30岁前你应该准备好什么?
- 关于google的JAVA面试题我的解法
- 理解类与对象的概念
- CDONTS.DLL发送邮件代码.成功测试通过
- 人的一生,到底在追求什么?
- BREW回调技术分析
- 任务栏右下角usb图标不见了怎么办
- Windows 系统环境变量(好用)
- 关于体力活
- Ruby on Rails上了老牌技术杂志Dr.Dobb's Journal的专题
- BREW接口的继承和多态
- 注册自定义URL协议