Spedire una pagina completa via email

<%

Set xml = Server.CreateObject(“Microsoft.XMLHTTP”)

‘ Oppure, per la versione 3.0 di XMLHTTP, usare:

‘ Set xml = Server.CreateObject(“MSXML2.ServerXMLHTTP”)

‘ Apri la connessione remota

xml.Open “GET”, “http://www.tuosito.ext/tuapagina.ext”, False

‘ Spedisci la richiesta

xml.Send

Dim miaMail

Set miaMail = CreateObject(“CDONTS.NewMail”)

miaMail.From = “[email protected]

miaMail.To = “[email protected]

miaMail.Subject = “Oggetto del messaggio”

miaMail.BodyFormat = 0

miaMail.MailFormat = 0

miaMail.Importance = 0

miaMail.Body = xml.responseText

miaMail.Send

Set miaMail = Nothing

Set xml = Nothing

%>