invio mail in locale con cdosys

[bejelit]

ho winxp sp1, iis 5.1, la dll cdosys c'è, mi da questo errore:

CDO.Message.1 (0x80040213)
Il trasporto non è riuscito a connettersi al server.


come mai?
questo è lo script

Dim objMail, objConfig
Set objMail = createObject("CDO.Message")
Set objConfig = Server.createObject ("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "out.aliceposta.it"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With

Set objMail.Configuration = objConfig

objMail.From = "mia@email.it"
objMail.To = Request.Form("email")
objMail.Subject = "Richiesta prenotazione dal sito"
objMail.TextBody = "corpo dell'email"

objMail.Send()

Set objMail = Nothing
%>

[viki1967]

Hai provato così ?

Dim objMail, objConfig 
Set objMail = createObject("CDO.Message") 
Set objConfig = Server.createObject ("CDO.Configuration") 

Set objMail.Configuration = objConfig 

objMail.From = "mia@email.it" 
objMail.To = Request.Form("email") 
objMail.Subject = "Richiesta prenotazione dal sito" 
objMail.TextBody = "corpo dell'email" 

objMail.Send() 

Set objMail = Nothing