problemi con CDOSYS

[zipppo75]

Ciao a tutti,

Passando ad un nuovo gestore di spazio Hosting con server win2003 sto incontrando un problema per l'invio di email attraverso CDOSYS.
Questa è la pagina che ho creato come esempio (invia.asp):

<%
DIM invioA, invioDa

invioA = "email@email.it"

invioDa = "info@email.it"

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
[COLOR=red]
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SUO-SMTP"
Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic 
Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USER" 
Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASS" 
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
Flds("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 
Flds("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
Flds.Update
[/COLOR] 

With iMsg
Set .Configuration = iConf
.To = invioA
.From = invioDa
.Sender = invioDa
.Subject = "Prova invio"
.TextBody = "Prova invio"
.Send
End With
%> 
<script>
document.location.replace('index.htm');
</script> 

Ho sostanzialmente modificato solo la parte di configurazione che riguarda il server SMTP utilizzando le indicazioni fornitemi dal gestore del server.

Mi da: error '80040211'
sulla linea del .Send

Vedete qualche particolare errore? da cosa può dipendere?

Grazie

[arl.ste]

Sbaglio o tu usi Aruba e quindi il suo script? Perchè se così fosse sarebbe semplicissimo settarlo

[zipppo75]

no, lo script che vedi è quello di Aruba, modificato come dicevo nella parte di configurazione del server SMTP

[arl.ste]

Ma tu che server utilizzi? Io Aruba e mi trovo bene. Comunque ecco lo script originale:

<%
'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. * 
'=============================================================

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

'* voce da modificare con il proprio indirizzo email

invioA = "email@email.it"

'* voce da modificare con un indirizzo email che funga da mittente: 
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = "email@info.it"

'------------fine modifiche necessarie------------------

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR") 
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%> 
<script>
document.location.replace('index.htm');
</script>

Non ti devo ricordare che per farlo funzionare questa deve essere una pagina ASP.

Alla riga

Flds(cdoSMTPServer) = "smtp.aruba.it"

devi settare il server SMTP del tuo server. Di default è per Aruba