asp 用Jmail发邮件？？？

[rongcong]

JMail.ServerAddress=？？

JMail.MailServerUserName = ？？
JMail.MailServerPassWord = ？？
JMail.MailDomain = ？？

这项就该怎么设计才能在线发邮件呢？在线等。在此先谢谢了！

[simon8181]

up

[southidc]

function send_jmail(j_sendname,j_Subject,j_HTMLBody,j_name,j_email)
on error resume next
dim Jmail
Set Jmail=server.createobject("Jmail.Message")

Jmail.Charset="gb2312"
Jmail.Priority=3 '优先级
Jmail.MailServerUserName=MailServerUserName '这里换成您的SMTP验证帐号
Jmail.MailServerPassword=MailServerPassWord '这里填写您的SMTP认证密码
Jmail.From=j_email '发信人邮件地址
Jmail.FromName=j_name '发信人姓名
Jmail.Subject=j_Subject '信件主题
Jmail.AddRecipient j_sendname '收信人地址
'Jmail.Body=j_HTMLBody 'TXT Mailbody参数是信件正文
JMail.HTMLBody=j_HTMLBody 'HTML信件正文
Jmail.Send(MailServer) '发信的邮件服务器
Set Jmail=nothing
send_jmail=true
if err then
SendMail= "<br><li>没有安装JMail组件</li>"
err.clear
send_jmail=false
end if
end function