asp使用CDONTS发邮件

<%
Dim MailTo,MailFrom,MailSubject,MailBody
MailTo=Request.Form("MailTo")
MailFrom=Request.Form("MailFrom")
MailSubject=Request.Form("MailSubject")
MailBody=Request.Form("MailBody")

Set mail = Server.CreateObject("CDONTS.NewMail")
mail.TO = MailTo'"abc@xxx.com"
mail.From = MailFrom'"yourmail@xxx.com"
mail.Subject = MailSubject'"主题"
mail.Body = MailBody'"E-Mail内容"
mail.Send
Set mail=Nothing
%>

转载于:https://www.cnblogs.com/crane/archive/2006/02/09/327708.html