| 以下为引用的内容: <% 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 就是发送邮件的内容了!