error '80040211'

[silvietta1978]

Ecco il mio codice, che mi da l'errore: error '80040211'

<%
DIM iMsg, Flds, iConf

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "mail.attiva.biz"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous
Flds.Update

danome=Session("snome") & " " & Session("scognome")
damail=Session("semail")
dachi=chr(34) & danome & chr(34) & damail

anome="CPM gestioni termiche"
amail="silvia@sesiweb.com"
achi=chr(34) & anome & chr(34) & amail

With iMsg
Set .Configuration = iConf
.To = achi
.From = dachi
.Sender= "silvia@sesiweb.com"
.Subject = "Contatto dal dominio "
.TextBody = "dimmi che funzioni!!!"
%>

Qualcuno mi sa dare un aiutino, non riesco a trovare niente.
Grazie
silvia

[rixx]

in che riga?

[silvietta1978]

nella riga

.Send


mi sono accorta ora che ti ho postato male il codice, mancano le ultime due righe

...
.TextBody = "dimmi che funzioni!!!"
.Send
End With


%>

[waxlrose]

anche a me da lo stesso errore con fastweb:

error '80040211'
/1prova.asp, line 27

la linea 27 è ".Send"

potrebbe dipendere dal server di fastweb: smtp.fastwebnet.it

con aruba non mi da problemi

<!--
METADATA
TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library"
-->
<%
Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "<enter_mail.server_here>"
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUsername) = "<enter_username_here>"
.Item(cdoSendPassword) = "<enter_password_here>"
.Update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = "from@me.com"
.To = "to@me.com"
.Subject = "Sample CDO Message"
.TextBody = "This is a test for CDO.message"
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>