大家帮我看看这段代码,提示发邮件成功,但总发不出去?

[gslrq]

Function SendMail(MailBody,MailTo,Subject)
set jmail = server.CreateObject ("jmail.message") '创建对象
jmail.Silent = true '一般不用改
jmail.Charset = "gb2312" '信件的语言编码
jmail.ContentType = "text/html" '信件的格式html或纯文本
jmail.From = "[e-mail]" '发信人邮箱,填写你自己的吧
jmail.Subject = Subject '信件主题
jmail.AddRecipient MailTo '收信人地址
jmail.Body = MailBody '信件正文
jmail.MailServerUserName = "[e-mail]" '服务器登陆用户名(您的邮件地址)
jmail.MailServerPassWord = "1234" '服务器登陆密码(您的邮件密码)
jmail.Send("smpt.21cn.com") '服务器地址
jmail.Close
set jmail = nothing
End Function
===========================================================
'发送邮件
'on error resume next

'Dim MailBody,MailTo,Subject
MailBody ="注册信息如下"
Subject = "注册确认信"
sendmail MailBody,Mail,subject

if err then
M=M & "邮件发送失败！"
else
M=M & "邮件发送成功！"
end if

[life360]

Set jmail = CreateObject("JMail.Message")
sendto="[e-mail]" //接收人
jmail.Logging = True
jmail.silent = True
jmail.Charset = "gb2312"
jmail.AddRecipient sendto
jmail.From = "[e-mail]" //发送人
jmail.FromName = "名字"
jmail.Subject = "标题"
jmail.Body = "test"
jmail.MailServerUserName = "[e-mail]"//发送人
jmail.MailServerPassWord = "密码"
MailSMTP = "mail.xxxxx.com"

If jmail.Send(MailSMTP) Then
response.write "发送成功"
End if

[gslrq]

提示发送失败~
是什么原因呀~

[look4sword]

MailTo都没有，不信你能发送好。

[gslrq]

这里有呀
jmail.AddRecipient MailTo '收信人地址

============================
大家帮我改改,小弟谢谢了~

[mars_net]

把你邮箱留给我,我给你发一个我已经实现的程序,也是使用Jmail组件,


*************************************************************
非洲的企鹅为了生存学习了程序

[gslrq]

[e-mail]
[e-mail]

[whidon]

Set jmail = Server.CreateObject("JMail.Message")
jmail.sendto="[e-mail]" //接收人
jmail.From = "xxxx" //发送人

错了