Error '80040211'

[rockyl]

Utilizzando lo script del mailing-list, quando vado ad inviare i messaggi mi da questo errore; error '80040211'.

[Roby_72]

Quale script?

Roby

[rockyl]

Originariamente inviato da Roby_72
Quale script?

Roby

Questo
<!--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" -->
<!--n.b.: non è necessario includere il file adovbs.inc
dopo avere invocato la ADODB library-->


<%
'Invio messaggi con CDOSYS strFrom = Request.Form("From")
strSubject = Request.Form("subject")
strBody = Request.Form("body") Set objRec = Server.CreateObject ("ADODB.Recordset")
objRec.Open "mailing_List", objConn, adOpenKeyset, _
adLockReadOnly, adCmdTable
Response.Write("<center><h3>Invio messaggi in corso</h3></center>")
While Not objRec.EOF
invioA = objRec("email")
invioDa =’ "xxxx@xxx.yy"
'* 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.xxxx.yy
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoBasic
Flds(cdoSendUserName) = xxxxxxx
Flds(cdoSendPassword) = yyyyyyy
Flds.Update
With iMsg
Set .Configuration = iConf
.To = invioA
.From = strfrom
.Sender = invioDa
.Subject = strsubject
.textBody = "Testo del messaggio: " & vbCrLf & strbody & ""
.Send
End WithSet iMsg = nothing
Set iConf = nothing
'conferma invio
Response.Write "Messaggio inviato a " & objRec("EMail") & "!
"
'prossimo record
objRec.MoveNext
WEND
objRec.close
set objRec = nothing
objConn.close
set objConn = nothing
Response.Write("<center><h3>Messaggi inviati!</h3><center>")
%>

[fabiosh75]

Allora l'include se usi Win2003 deve essere virtual e comunque non puoi fare un "misto".

Questo lo hai settato con il tuo server smtp?
Flds(cdoSMTPServer) = smtp.xxxx.yy


Questo "End WithSet iMsg = nothing "
lo scrivi così giusto?

End With
Set iMsg = nothing

Per le configurazioni prova ad usare questo codice

'* creo gli oggetti cdosys sul server e li gestisco
Dim iMsg, iConf, Flds

'Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione 
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

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

Ovviamente adattando il tutto ai parametri del tuo hosting

Ciao
Fabio

[rockyl]

Ok, Grazie. Ti farò sapere.

[alv21]

io avevo lo stesso problema.. grazie fabiosh adesso funziona benissimo!

[cito17]

Io ho le stesso problema, ho provato a fare le variazioni ma mi da sempre lo stesso errore

CDO.Message.1 error '80040213'

The transport failed to connect to the server.

/formcdosys.asp, line 59


Il dominio è stato attivato da una settimana quindi penso che sia su Win2003

ecco il codice che uso

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

	'* voce da modificare con il proprio indirizzo email
	
invioA =  "postmaster@mio dominio.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 =  "postmaster@mio dominio.com"

'------------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("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
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('grazie.asp');
</script>

Che poi è quello di ARUBA

Ciaoe Grazie