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

%>

I Video di HTML.it

Creare apps Android di qualità

Alfredo Morresi di Google indica alcuni accorgimenti per migliorare la progettazione delle applicazioni