formmail con server 2003

**forte78** · 29-10-2005, 16:23

questo il codice

codice:


<% 

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

Dim objMail, objConfig , sBody

' Crea l'oggetto email 
Set objMail = Server.createObject("CDO.Message") 

' Dimensiona l'oggetto configurazione 
Set objConfig = Server.createObject ("CDO.Configuration") 

' Imposta le configurazioni 
With objConfig 

' Server SMTP di uscita 
' ATTENZIONE! Usare il proprio indirizzo di server email! 
' E' FONDAMENTALE per l'invio della email 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it" 

' 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 = Request.Form("email") ' Mittente 
objMail.To =  "info@elquartiere.com" ' Destinatario 
objMail.Subject = Request.Form("oggetto") ' Oggetto 
sBody = "NOME: " & Request.Form("nome") & VBCrLf
sBody = sBody & "COGNOME: " & Request.Form("cognome") & VBCrLf
sBody = sBody & "RICHIESTA: " & Request.Form("richiesta") & VBCrLf

' Invia l'email 
objMail.Send() 
objMail.HTMLBody = sBody


Set objMail = Nothing 

Response.Write("Email inviata correttamente ") 

else %>

Nessun messaggio di errore ma mi arriva l'email senza testo quando ho inserito i parametri regolarmente

cosa c'è ke nn va ?????

**forte78** · 29-10-2005, 17:03

mi fate sapere per questa mia ultima discussione

vi ringrazio.....

**michele.santoro** · 29-10-2005, 17:43

Prova a dare un'occhiata a questo penso sia proprio il tuo caso.

**forte78** · 29-10-2005, 17:54

è un buon script

è il mio caso

grazie.

**michele.santoro** · 29-10-2005, 18:18

Prego

**forte78** · 02-11-2005, 13:00

ciao t indico il messaggio ke mi da

Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object: 'CreateObject'

/formresult.asp, line 3

questa è la riga

Set MiaMail = CreateObject("CDO.Message")

ma cos'è deve lavorare per forza con cdo perche neanche cn cdonts funziona

vi mostro il codice per intero

<%
Dim MiaMail, strIp
Set MiaMail = CreateObject("CDO.Message")
strIp = Request.ServerVariables("REMOTE_ADDR")

MiaMail.From = request.form("nome")
MiaMail.From = request.form("cognome")
MiaMail.From = request.form("richiesta")
MiaMail.From = request.form("email")
MiaMail.To = "info@xx.it"
MiaMail.Subject = "FORM"
MiaMail.TextBody = request.form("richiesta")& vbCrlf &_
vbCrlf &_
("Questa e-mail è stata inviata il: ") & Now() & vbCrlf &_
("da: ") & ("Nome e Cognome: ") & request.form("nome") & " " &request.form("cognome") & vbCrlf &_
("Richiesta: ") & request.form("richiesta") & vbCrlf &_
("l'indirizzo IP è: ") & strIp & vbCrlf
'("data ed ora di invio: ") & ("Now()") & vbCrlf
MiaMail.Send()
Set MiaMail = Nothing
%>

<html>
<head>
<title>inviata</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF">
<p align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000080">Caro utente
<%Response.Write(request.Form ("nome"))%> <%Response.Write(request.Form ("cognome"))%> (hai lasciato questo indirizzo mail: <%Response.Write(request.Form ("email"))%>

Grazie per aver scritto questo messaggio sarai al più presto contattato.

</font></p>
<div align="center">
<center>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td>
<div align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000080"></font></div>
</td>
</tr>
</table>
</center>
</div>
<p align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000080">Torna a trovarci!
</font></p>

<font color="#000080"> back</font> </p>
</body>
</html>

**forte78** · 02-11-2005, 14:12

potreste darmi un aiuto ???

**michele.santoro** · 02-11-2005, 19:54

Originariamente inviato da forte78
potreste darmi un aiuto ???

Quel messaggio di errore

(Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object: 'CreateObject'

/formresult.asp, line 3)

sta a significare che il server in uso non supporta l'invio di messaggi mediante il componente cdonts o cdosys. Potrebbe essere una limitazione che il provider ha imposto (per es. se il sito si trova su spazio web gratuito) oppure per semplice scelta del provider stesso (per es. perché mette a disposizione altri componente come Aspemail o simili) o ancora perché utilizza windows server 2003 che ha integrato il nuovo cdosys (ma in questo caso lo script postato doveva funzionare perché usa CDOSYS).
Forse è meglio se contatti il provider per chiedere maggiori informazioni.

**forte78** · 02-11-2005, 20:09

lo sapevo

gia ho riferito la cosa all'azienda proprietaria del sito web.....

grazie.

Discussione: formmail con server 2003

Strumenti discussione

Ricerca discussione

Visualizza

formmail con server 2003

Permessi di invio