Invio email con Cdonts

Per inviare una semplice email di testo con Cdonts.

Questo script utilizza Cdonts, una dll installata sul server per inviare emails:

'creo l'oggetto
   Set objMail= Server.CreateObject("CDONTS.NewMail")
'oggetto dell'email
   objMail.Subject = "oggetto mia email"
'indirizzo email valido
   objMail.From  = "daindirizzo@sito.it"
'indirizzo al quale mandare l'email
   objMail.To = "aindirizzo@sito.it"
'indirizzo email da inviare per conoscenza
   objMail.cc = "indirizzocc@sito.it"
'indirizzo email da inviare per conoscenza nascosta
   objMail.bcc = "indirizzobcc@sito.it"
'corpo dell'email
   objMail.Body = "Prova invio email: " & chr(13) & "Prova testo"

'invio dell'email, il testo tra parentesi apparirà al posto dell'email scritta sul from, si può anche omettere.
   objMail.Send ("Mail")
   Set objMail= Nothing

incidenti, lamborghini, foto, natura, shumacher, freeware, risorse per webmaster, macchine sportive, sorpassi, free, automobili, scarica, animali, maradona, van basten, chat, script, calcio, pele, scripts