Email con CDOSYS

[aboldrini]

Ciao a tutti, mi sono appena iscritto. Ho guardato in giro su molte guide, ma ancora non riesco a mandare mail con ASP usando CDOSYS.
Posto il codice, se qualcuno riesce a darmi una dritta...

<%@ Language=VBScript %>

<%
'============ Linkbruttocane su specifiche MSDN ================
'* assicurarsi di non inserire javascript che potrebbero dare errori nel client
'* di posta dei vostri utenti
'=====qui non modificare================
Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDOSYS.Message")
set iConf = CreateObject("CDOSYS.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update

With iMsg

Set .Configuration = iConf

'*===== modifica CreateMHTMLBody From To e subject
'cambiare la pagina dopo aver provato a riceverla, vedasi codice utilizzabile nella pagina stessa
'per essere sicuri di non inviare codice non leggibile dal client di posta

'.CreateMHTMLBody "http://vademecum.aruba.it/main/sicurezza_via_mail.htm"

'mettere la propria mail e separare eventuali destinatari con virgola
.To = "aboldrini@email.it"

'mettere una mail valida come mittente
.From = "aboldrini@email.it"

.Subject = "test messaggio html via cdosys, uso template"
.Send
End With
set iMsg=nothing


%>
<title>cdosys invio pagina html template</title>
pagina html inviata


Preso pari pari e modificato con indirizzo e mail appropriato.

Ma dov'è l'errore?

mi da:
Impossibile visualizzare la pagina
Si è verificato un problema a livello della pagina che si desidera visualizzare che ne impedisce la visualizzazione.

--------------------------------------------------------------------------------

Please try the following:

Fare clic sul pulsante Aggiorna o riprovare più tardi.

Aprire la 127.0.0.1 home page e cercare i collegamenti alle informazioni desiderate.
HTTP 500.100 - Errore interno del server - errore ASP
Internet Information Services

--------------------------------------------------------------------------------

Informazioni tecniche (per il personale del supporto tecnico)

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01AD)
Il componente ActiveX non può creare l'oggetto: 'CDOSYS.Message'
/mail2.asp, line 11


Tipo di browser:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022)

Pagina:
GET /mail2.asp

Ora:
lunedì 7 aprile 2008, 23.43.23


Informazioni aggiuntive:
Supporto Microsoft


******** Qualcuno sa aiutarmi?!?!? ************

[Valeriodev]

<%@ Language=VBScript %>

<%
 response.Expires=0
Dim iMsg
Dim iConf
Dim Flds

paginaOK="emailinviatacorrettamente.html"
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    '         
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
    '         
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update

With iMsg

Set .Configuration = iConf

.CreateMHTMLBody "http://vademecum.aruba.it/start/mysql/main.asp"
.To = "aboldrini@email.it"
.From = "aboldrini@email.it"
.Subject = "Ti è arrivata una email da aboldrini@email.it!"
.Send
End With
response.redirect(paginaOK)
%>

Prova con questo se sei su aruba dovrebbe andare ciao!