发新话题
打印

请问如何能把表单提交的数据生成一个HTML页面发送到指定的邮箱?

<%  
Set  MailObject  =  Server.CreateObject("CDONTS.NewMail")   
MailObject.From  =  "发信人邮箱"   
MailObject.To  =  "收信人邮箱"   
MailObject.Subject  =  "邮件主题"   
MailObject.Body  =  "邮件内容"    '这些内容你可以用Request.form()接收表单的提交  
MailObject.MailFormat  =  1  '邮件的格式,0是MIME格式,1是文本消息   
MailObject.BodyFormat  =  0  '邮件的正文的格式,0表示HTML格式,1表示普通文本   
MailObject.Importance  =  1  '邮件的重要性,0表示低重要性,1表示普通,2表示高重要   
MailObject.AttachFile  (  "附件绝对路径"  )  
MailObject.Send   
Set  MailObject  =  Nothing   
%>

TOP

发新话题