Link copiato negli appunti
<%
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 = "mittente@dominio.ext"
miaMail.To = "destinatario@dominio.ext"
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
%>