Intanto manca la terminazione alla riga:
objMail.Subject = "Prova invio
che deve essere
objMail.Subject = "Prova invio"
e poi sei sicuro che sul tuo server sia installato CDONTS e non CDOSYS o altro?
Lo script funziona perfettamente, ergo ...