怎么把本页当邮件自动发出去（用脚本）!!!

1.如果使用静态的HTML文件，设置邮件格式为HTML,将文件内容作为邮件内容发送
2.使用动态文件（如：ASP,PHP），发送一个URL或创建一个静态文件后发送（同上）

解决方案 »

  1.   

    很简单，假设你使用CDONTS:
    Const CdoBodyFormatHTML = 0 '设置邮件支持HTML
    Const CdoMailFormatMime = 0 '必须的strBody = "<html><body>" & vbCrLf
    strBody = strBody & "<font color=red>Hello</font>" & vbCrLf
    strBody = strBody & "</body></html>" & vbCrLf
    Set objMail = CreateObject("CDONTS.NewMail")
    objMail.From = "[email protected]"
    objMail.To = "[email protected]"
    objMail.Subject = "测试HTML邮件"
    objMail.Body = strBody
    objMail.Send
    Set objMail = Nothing
      
            
      

  2.   

    假设你的HTML文件路径：/email/1.htm
    FilePath=Server.Mappath("/email/1.htm")
    set fso=Server.Createobject("Scripting.FileSystemObject")
    set f=fso.OpenTextFile(FilePath)
    BodyHTML=f.ReadAll
    f.close()
    set f=nothing
    set fso=nothingConst CdoBodyFormatHTML = 0 '设置邮件支持HTML
    Const CdoMailFormatMime = 0 '必须的Set objMail = CreateObject("CDONTS.NewMail")
    objMail.From = "[email protected]"
    objMail.To = "[email protected]"
    objMail.Subject = "测试HTML邮件"
    objMail.Body = BodyHTML '设置Body
    objMail.Send
    Set objMail = Nothing
      
            
      

  3.   

    我来补充一下；具体的发送方法我想就如诺亚方舟所说，由于用户会做选择内容并非网页原来文件解决方法就是用元素的INnerhtml或者innertext属性生成新的文档，在用如上方法发送出去。