用户注册成功后如何触发邮件系统自动发送一封欢迎邮件！

huawenlong2010 2010-06-03 09:40:20

...全文

1636 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

helloword222 2010-06-05

打赏
举报

JMail.AddRecipient MailtoAddressMailtoName 这行代码怎么挤了两个变量呢？
Flag=JMail.Send(MailServer) 这里的MailServer该用什么？
谢谢！

huawenlong2010 2010-06-04

打赏
举报

你看看我这段代码行不行啊！我反正是OK啊！
<%
Function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom)
'函数参数说明（收件人地址,收件人姓名(可选),主题,邮件内容,发件人姓名(可选),发件人地址）
'on error resume next
Dim JMail,MailServer,Flag
Set JMail=Server.CreateObject("JMail.Message")
If err Then
SendMail = False
err.clear
Exit Function
End if
JMail.Charset="gb2312" '邮件编码
JMail.silent=True
JMail.ContentType = "text/html" '邮件正文格式
MailServer = "smtp.163.com" '用来发送邮件的SMTP服务器
JMail.MailServerUserName = "123456@163.com" '登录用户名
JMail.MailServerPassWord = "123456" '登录密码
JMail.MailDomain = "163.com" '域名（如果用"name@domain.com"这样的用户名登录时，请指明domain.com），可选
JMail.AddRecipient MailtoAddressMailtoName '收信人邮箱和收信人名称
JMail.Subject = Subject '主题
JMail.AppendHTML(MailBody)
JMail.FromName = FromName '发信人姓名
JMail.From = MailFrom '发信人Email
JMail.Priority = 3 '邮件等级，1为加急，3为普通，5为低级
Flag=JMail.Send(MailServer)
If Flag Then
SendMail=True
Else
SendMail=False
End If
JMail.Close
Set JMail=nothing
End Function
%>
Call SendMail("123456@163.com","江苏反倒萨克","注册成功确认","发射点发","反对撒发的防守打法的撒","5645321@163.com")

关于调用的这断你自己根据自己的实际情况设置吧！

yaliha2000 2010-06-03

打赏
举报

樓上的是正確的喔！

不過IIS的服務器上面要裝置

JMAIL控件

amu1433 2010-06-03

打赏
举报

<%
if 注册失败 then
response.redirect err.asp(错误页面)
else
rs.update
conn.close
call mail()(注意这** 这个就是注册成功后发送邮件给注册人)
end if
%>

'邮件函数
<%
sub mail()
dim mailbody,Jmail
mailbody="欢迎您,"&username&"! 恭喜您成为<a target=_blank href="&web&">"&title&"</a>的尊敬会员！ 您的登陆帐号："&username&" 您的登陆密码："&password&" 登陆地址为：<a target=_blank href="&web&">"&web&"</a> ["&title&"]打造"&city&"最大的二手信息发布平台"
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset ="gb2312"
Jmail.Silent =true
JMail.ContentType = "text/html"
Jmail.Priority = 3
Jmail.MailServerUserName = mailname
Jmail.MailServerPassword = mailpass
Jmail.From = mailform
Jmail.FromName =""&title&"管理员"
Jmail.Subject ="恭喜你注册成功，请查收登陆帐号！"
Jmail.AddRecipient ""&email&""
Jmail.Body = mailbody
Jmail.Send(mailsmtp)
Set Jmail=nothing
end sub
set rs=nothing
set rs1=nothing
%>