用Jmail实现ASP程序自动发送邮件

今天弄了大半天，老是收不到邮件，原来是参数设错了。完整源码如下：

<%
mailserver="172.16.1.130" 'smtp服务器地址
mailname="bany@banysky.com" '发信邮箱
mailpassword="bany" '发信邮箱密码
UserMail="bany@banysky.com"
dim msg
CLStr=Chr(13) & Chr(10)
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = mailname
msg.MailServerPassword = mailpassword
msg.From = mailname
msg.FromName = mailname
msg.AddRecipient (UserMail) 'usermail为对方邮箱
msg.Subject = "您在“"&sitename&"”注册成功"
msg.Body = UserName&"，您好！"&CLStr&CLStr
msg.Body = msg.Body&"恭喜您注册会员成功，会员ID："&userid&"，登陆密码："&user_password&CLStr&CLStr
msg.Body = msg.Body&sitename&"("&siteurl&")欢迎您多多光临！谢谢！"&CLStr
msg.Send (mailserver)
msg.close
set msg = nothing
%>

配置会员注册系统，可以实现邮件激活，有兴趣的可以试下；