发邮件|数据|数据库|提交表单
<%
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="xxx@hotmail.com"
objCDOMail.To =xxx@hotmail.com '接收人的邮箱(将表单内容发邮件到一固定地址)
objCDOMail.Subject ="邮件发送测试"
body=request.Form("cont") '获取表单内容
objCDOMail.Body =body
objCDOMail.BodyFormat=1 '设置为HTML格式
objCDOMail.Send
Set objCDOMail = Nothing
%>
---------------------------------------------------------------
在存入数据库前加上以上的代码,
所有存入数据库的值再赋给Mail.Body 就是发送邮件的内容了!
时间: 2024-10-31 10:56:16