CDONTS发电子邮件[代码]

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 = "[e-mail]"

from address
cdontsobj.from = "[e-mail]"

cc email addresses seperated by a comma
cdontsobj.cc = "[e-mail],[e-mail]"

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

技术交流　永无止境