在提交表单到数据库的同时发将表单内容发邮件到一固定地址,有哪位大侠实现过?望给出示例,感激涕零~
---------------------------------------------------------------
1<form>
2...
3
4</form>
....
1
2dim objCDOMail
3Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
4objCDOMail.From ="[email protected]"
5objCDOMail.To [email protected] '接收人的邮箱(将表单内容发邮件到一固定地址)
6objCDOMail.Subject ="邮件发送测试"
7body=request.Form("cont") '获取表单内容
8objCDOMail.Body =body
9objCDOMail.BodyFormat=1 '设置为HTML格式
10objCDOMail.Send
11Set objCDOMail = Nothing
---------------------------------------------------------------
在存入数据库前加上以上的代码,
所有存入数据库的值再赋给Mail.Body 就是发送邮件的内容了!