<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" --> 
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" --> 
<% 
sub invia_email(destinatario, from, sender, oggetto, body, cc) 
DIM iMsg, Flds, iConf 
err.clear 

Set iMsg = CreateObject("CDO.Message") 
Set iConf = CreateObject("CDO.Configuration") 
Set Flds = iConf.Fields 

Flds(cdoSendUsingMethod) = 2 'cdoSendUsingPort 
Flds(cdoSMTPServer) = "smtp.tele2.it" '<-- nome del server o ip 
Flds(cdoSMTPServerPort) = 25 
Flds(cdoSMTPAuthenticate) = 0 'cdoAnonymous 
Flds.Update 

With iMsg 
Set .Configuration = iConf 
.To = destinatario 
.Bcc = cc 
.From = from 
.Sender = sender 
.Subject = oggetto 
.HTMLBody = body 
.Send 

End With 

Set iMsg = nothing 
Set iConf = nothing 
Set Flds = nothing 

end sub
%>

.Send