如何利用JMAIL实现用户注册后自动往他注册时用的邮箱发封邮件欢迎他？
现在有一个用户注册系统，希望能利用JMAIL来实现注册后自动往用户注册时提交的邮箱里发一封欢迎的邮件，邮件的主题是：某某某（注册帐号），欢迎你！
内容是：你的帐号是某某某，密码是某某某（注册时提交的密码，已经被MD5加密，这里需要还原成提交时的密码不是加密后的一长串字符）。
现在是不是要在系统里设置JMAIL的相关参数，发送邮件的邮件帐号是163的免费邮箱，这样能行吗？该如何设置呢？

------解决方案--------------------
可以的,呵呵,不过刚注册的不行,要注册了一段时间的,用JMAIL发邮件,企业邮箱跟126,163的都差不多的,可以发哦
<%@LANGUAGE= "VBSCRIPT " CODEPAGE= "936 "%>
<%
Function goMail(Name, Email, Title, Content)
mailserver = "smtp.126.com "
mailserverloginname = "muxrwcs@126.com "
mailserverloginpass = "muxrwcs "
'=============== 发 信 ================
dim JMail
Set JMail = Server.CreateObject( "Jmail.message ")
JMail.ContentType = "text/html "
'JMail.ContentTransferEncoding = "gb3212 "
JMail.Encoding = "gb3212 "
JMail.Charset = "gb3212 "
Jmail.Priority = 1
JMail.ISOEncodeHeaders = false
JMail.Silent = true
JMail.Logging = true
JMail.FromName = Name
JMail.from = mailserverloginname

JMail.AddRecipient Email
JMail.Subject = Title
Jmail.Body = JMail.Body & Content

JMail.MailServerUserName = mailserverloginname
JMail.MailServerPassWord = mailserverloginpass
sendok = JMail.Send(mailserver)
If sendok Then
msg = "已经成功发送了邮件！ "
Else
msg = "发送邮件失败，可能是您填写了错误的邮件地址。 <br/> " & _
"如果您确信没有写错邮件地址，则可能是发信程序出了 <br/> " & _
"故障，请与管理员联系 "
End If
goMail = msg
End Function

Response.Write goMail( "王辰 ", "muxrwc@126.com ", "测试信息 ", "此信息为测试信息 ")
%>
这是一个网友提供的
------解决方案--------------------
自己调用吧。

function sendmail(smtp,sendto,from,user,pwd,subject,body) '括号里面分别是：发送邮件服务器，邮件接收人，发送人，登录邮箱的用户名，登录邮箱的密码，邮件主题，邮件内容
Set jmail = Server.CreateObject( "JMAIL.Message ") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
jmail.logging = true '启用邮件日志
jmail.Charset = "GB2312 " '邮件的文字编码为国标
jmail.ContentType = "text/html " '邮件的格式为HTML格式
jmail.AddRecipient sendto '邮件收件人的地址
jmail.From = from '发件人的E-MAIL地址
jmail.MailServerUserName = user '登录邮件服务器所需的用户名
jmail.MailServerPassword = pwd '登录邮件服务器所需的密码
jmail.Subject = subject '邮件的标题
jmail.Body = body '邮件的内容
jmail.Priority = 3 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
if jmail.send(smtp)=false then '执行邮件发送（通过邮件服务器地址）
response.Write( "发送邮件失败！ ")
jmail.close
response.End
end if
jmail.Close
end function