CDONTS发电子邮件[代码]

作者:网络 来源:佚名 更新时间:2008-01-21 06:42:37 点击:
click here to copy the code to your clipboard (only for ie users)


'declare variables
dim cdontsobj, messagebody

'create the cdonts object
set cdontsobj = server.createobject("cdonts.newmail")

'to address
cdontsobj.to = "[email protected]"

'from address
cdontsobj.from = "[email protected]"

'cc email addresses seperated by a comma
cdontsobj.cc = "[email protected],[email protected]"

'your email message
messagebody = "sending a email using asp was never so easy ! "

'subject of the email message
cdontsobj.subject = "send a email"

'assigning the value of your message to the object
cdontsobj.body = messagebody

'send the email
cdontsobj.send

'set the cdonts object to nothing
set cdontsobj = nothing

技术交流 永无止境 ,欢迎访问网页设计爱好者web开发。