Creo que puedes hacerlo así:
Código:
<%set http_obj = createObject("Microsoft.XMLHTTP")
cadena2 = "http://www.paginaquequieresenviar.com"
http_obj.Open "GET",cadena2,false
http_obj.Send()
codigo = Server.HTMLEncode(http_obj.responseText)
%>
Con este pequeño código y mediate Xmlhttp consigues el código fuente html de la pagina introducida en "cadena2" luego en la variable "codigo" tienes el código html.
Una vez tengas esto lo único que tienes que haces, por ejemplo si usas aspemail es:
Código:
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smpt.servidor.es"
Mail.From = "[email protected]"
Mail.FromName = "nombre desde el que se envia" ' Opcional
Mail.AddAddress "[email protected]"
Mail.Subject = "asunto"
Mail.Body = codigo
Mail.IsHTML = True
Mail.Send
Yo creso que esto puede y debe funcionar bien.
Suerte