Question

提交表单时同时发送一封邮件

使用自定义标记库，在提交用户表单时，同时发送一封邮件，怎么实现？

Answer 1

需要服务器支持Jmail组件收到提交后,调用sendmail需要设置里面的基本设置<%
function sendmail(mail_address,title,body) '发送邮件模块 Set msg=Server.CreateObject("JMail.Message")
msg.silent=true
msg.Logging=true
msg.Charset="gb2312"
msg.ContentType="text/html"
msg.MailServerUserName='写邮箱地址 例test@126.com msg.MailServerPassword='邮箱密码
msg.From= '写test@126.com
msg.FromName='发送人的姓名 msg.Subject=title
msg.Body=body
str=split(mail_address,"|")
if ubound(str)>0 then
for i=0 to ubound(str)
msg.AddRecipient(str(i))
msg.Send '+smtp服务器 例126的 smtp.126.com
If Err.number <> 0 then
response.write "<font color='#ff0000'>"&str(i)&":邮件发送失败"& Err.Description&"</font><br>"
else
response.write "<font color='66ff66'>"&str(i)&":邮件发送成功""</font><br>"
end if
next
else
msg.AddRecipient(mail_address)
msg.Send '+smtp服务器 例126的 smtp.126.com

If Err.number <> 0 then
response.write "<script>alert('邮件发送失败"& Err.Description&"')</script>"
else
response.write "<script>alert('邮件发送成功')</script>"
end if
end if
msg.close
set msg=nothing
end function
%>