发送邮件的问题
我用这段代码发送邮件,但是收不到邮件,不知是什么问题,请指教 。。
sub send_email()
dim objcdomail
senderEmail="wangbintiankong@163.com"
recipient=request.cookies("email")
subject="yyy"
body1="dfdfdfdf"
strcc="wangbintiankong&163.net"
set objcdomail=server.createobject("cdonts.newmail")
objcdomail.from=senderEmail
objcdomail.to=recipient
objcdomail.subject=subject
objcdomail.body=body1
objcdomail.Cc=srcCc
objcdomail.Importance=1
objcdomail.send
set objcdomail=Nothing
End sub