CDOSYS di Weppos

[Enrique_Rojas]

Faccio riferimento a questo script (autore Weppos):
http://www.weppos.com/asp/script_sho...ipt=665&cat=19

per segnalare che con le modifiche indicate nelle istruzioni la pagina non invia alcuna email e restituisce:

CDO.Message.1 error '80040213'
The transport failed to connect to the server.
/email.asp, line 38
objMail.Send() line 38

Sono in hosting con aruba e su windows server 2003, quindi CDOSYS; può essere una limitazione all'utilizzo dello script di weppos?
ciao e grazie

[weppos]

Posta il codice che hai inserito.
Non riguarda alcuna limitazione, molto proabilmente un errore nel copia/incolla...

Se sei su Aruba puoi seguire le informazioni del loro vademecum.
http://vademecum.aruba.it/start/2003/info.htm

[Enrique_Rojas]

Grazie, la pagina è salvata come email.asp ed ecco il code modificato nelle parti in rosso:

<%

'Controlla invio
If Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then
     

Dim objMail, objConfig
'Crea l'oggetto email
Set objMail = CreateObject("CDO.Message")
'Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject ("CDO.Configuration")
	
'Imposta le configurazioni
With objConfig
		 
'Server SMTP di uscita
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.quihomessoilnomedelmiosito .com"
'Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
		 
.Fields.Update
End With
	
'Assegna le configurazioni
Set objMail.Configuration = objConfig
	
'Assegna all'oggetto le proprietà necessarie
objMail.From = "miaemail@miosito.com " 'Mittente
objMail.To = Request.Form("email") 'Destinatario
objMail.Subject = Request.Form("oggetto") 'Oggetto
objMail.HTMLBody = Request.Form("messaggio") 'Messaggio
     
'Invia l'email
objMail.Send()
             
Set objMail = Nothing
     
Response.Write("Email inviata correttamente all'indirizzo " & Request.Form("email"))

Else

%>
<form name="formail" method="post" action="email.asp?invia=true">
<table align="center" cellpadding="3" cellspacing="1">
<tr>
<td>Email</td>
<td><input type="text" name="email" size="20" /></td>
</tr>
<tr>
<td>Oggetto</td>
<td><input type="text" name="oggetto" size="20" /></td>
</tr>
<tr>
<td>Messaggio</td>
<td><textarea name="messaggio" rows="1" cols="20"></textarea></td>
</tr>
<tr>
<td colspan="2"> <input type="submit" value="invia" name="submit" /> </td>
</tr>
</table>
</form>
<%

End If

%>

[weppos]

Per sicurezza dato che sei su Aruba usa la configurazione descritta sul link che ti ho passato.

Potrebbero averla personalizzata.

[Enrique_Rojas]

Originariamente inviato da weppos
Per sicurezza dato che sei su Aruba usa la configurazione descritta sul link che ti ho passato.

Potrebbero averla personalizzata.

Grazie, adesso va è stato sufficiente inserire:

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

al posto di questo:

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.miosito.com" 

'Porta SMTP 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

'Porta CDO 
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'Timeout 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

forse sarebbe il caso di inserire una noticina sul tuo utilissimo articolo, per dare maggiori indicazioni a noi inesperti? più d'uno dei forummisti sta su aruba...