搞不定啊，你实现了没有啊：关于注册成功发邮件的问题，马上就结贴！！！

[cnhxjtoa]

网上注册用户成功后，立即给注册用户发一封电子邮件，如何实现啊
至少要有主题、内容、及个人签名，就象Foxmail那样

[银狐被占用]

找个JMail组件

[zbh326]

刚好我今天下午也弄这个，调试成功了，就把代码给你把，不清楚QQ找我：38632284

'========================================利用Jmail发送邮件
body="尊敬的用户,您好<br><br>  恭喜您在本站注册了个人会员。"

Dim JMail,email
Set JMail=Server.CreateObject("JMail.Message")

email= TO_email '接收者的Email,给该个人用户发送
JMail.From= "[e-mail]" ' 发送者地址
JMail.FromName="发送者姓名" ' 发送者姓名
JMail.Subject="您的注册信息" ' 邮件主题

JMail.MailServerUserName="[e-mail]" ' 身份验证的用户名
JMail.MailServerPassword="[e-mail]密码" ' 身份验证的密码

JMail.Priority=3 ' 设置优先级，从1到5
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Logging=true '启用使用日志

JMail.AddRecipient(email)

JMail.HTMLBody="<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312;Content-transfer-encoding=base64'></head><body>"+body+"</body></html>"
JMail.Body=body

On error resume next
JMail.Send("smtp.163.com ")
if err.number<>0 then
response.write err.description
end if

JMail.Close()
Set JMail= Nothing
'==================================利用Jmail发送邮件完毕

[cnhxjtoa]

好兄弟先谢谢了，我试试！

[cnhxjtoa]

Set JMail=Server.CreateObject("JMail.Message")
看来我得先安装这个组件

[cnhxjtoa]

呵呵，可以了！