问一个关于CDONTS组件的问题!
小弟今天要用到CDONTS做邮件发送系统,但搞了好几次,都无法发送成功!
具体代码如果下:
Dim objMail
Set objMail = CreateObject("CDONTS.Newmail")
objMail.TO = "feiyu027@21cn.com"
objMail.From = "feiyu027@sina.com" '在这里可以选择你要发送去那里的地址
objmail.Subject = "HTML EMAIL!"
objMail.MailFormat = cdoMailFormatMime
objMail.BodyFormat = cdoBodyFormatHTML
Body = "<html><body><p align='center'><b>Hey there!</b></p><p align='center'><b>This is a html doc"
Body = "in your Email!!!!</b></p><p align='center'> </p><p align='center'> </p><p "
Body = "align='center'><i><u>We kick the Llamas Ass!!!!</u></i></p></body></html>"
objMail.Body = Body
objMail.send
set objMail = Nothing
这份代码是测试用的,我怀疑可能是我的smtp虚拟服务器没有设置好,
但我不知道应该怎么设置,请知道的高手告诉我!
我现在发的信都被系统放在Queue文件夹中,这应该是发送信件队列文件!
可就是无法正常收到信