Mail Da Form Su Spazio Aruba

**abbath** · 15-01-2007, 11:42

Ciao a tutti ragazzi...
Ho un form che spedisce mail inserito su uno spazio ARUBA con supporto ASP.
Purtroppo l'oggetto che uso io... il CDONTS mi genera un errore relativo al fatto che l'oggetto non può essere creato...
Magari qualcuno di voi ha già affrotnato lo stesso problema mio...

**Roby_72** · 15-01-2007, 11:48

Praticamente tutti...

Leggi il vademecum di Aruba, devi usare l'oggetto CDOSYS.

Roby

**abbath** · 15-01-2007, 12:47

Questa è la pagina modificata...

Ma mi dà errore alla riga...
Set iMsg = CreateObject("CDO.Message")

Dicendo che...
ADODB.Fields error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/contatti2.asp, line 23

<%
nome = request.form("nominativo")
email = request.form("mail")
telefono = request.form("telefono")
titolo = request.form("titolo")
testo = request.form("testo")
testo = replace(testo,chr(13),"
")

corpoMessaggio = "Nome e Cognome: " & nome & "
"
corpoMessaggio = corpoMessaggio & "E-Mail: " & email & "
"
corpoMessaggio = corpoMessaggio & "Telefono: " & telefono & "
"
corpoMessaggio = corpoMessaggio & "Oggetto: " & titolo & "
"
corpoMessaggio = corpoMessaggio & "Testo:

" & testo

'* 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.almiracing.com"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = "info@almiracing.com"
.From = email
.Sender = invioDa
.Subject = "Contatto dal sito www.almiracing.com"
.TextBody = corpoMessaggio
.Send
End With
%>
<script>
document.location.replace('contatti3.asp');
</script>

**Roby_72** · 15-01-2007, 12:49

E la riga 23 quale sarebbe?

Roby

**abbath** · 15-01-2007, 12:58

Lo avevo già riportato sopra....

Set iMsg = CreateObject("CDO.Message")

**Roby_72** · 15-01-2007, 13:38

Quello è lo script di Aruba?

Roby

**alexba64** · 15-01-2007, 13:53

Prova un po cosi:

codice:



<%

Dim Mail, mittente, detinatario, oggetto, testo

mittente="info@almiracing.com"
destinatario="info@almiracing.com"
oggetto="Prova invio"
testo="Prova"

set Mail = server.CreateObject("CDO.Message")
With Mail 
.From = mittente
.To = destinatario
.Subject = oggetto
.htmlBody = testo
.Send 
end With 
set Mail=nothing
response.write("Messaggio inviato")
%>

**abbath** · 15-01-2007, 14:09

Risolto... grazie lo stesso

**aledg** · 02-05-2007, 11:31

scusa abbath come hai risolto perchè mi da lo stesso errore... linea 23

**canna** · 02-05-2007, 14:28

a me da questo errore perchè uso il vecchio metodo

Microsoft JScript runtime error '800a01ad'

Automation server can't create object

/shop/inoltraordine.asp, line 107

vi sposto la mia pagina è possibile modificarla senza ricreare tutto visto che me l'ha fatta un amico e non ci capisco un tubo ?

<%
Response.Expires = 0;

// Funzioni di utilità nel recupero e nella validazione del modulo
function mostraErrore(messaggio) {
Response.Write('<html>\n');
Response.Write('<head>\n');
Response.Write(' <title>Preventivo della spesa</title>\n');
Response.Write('</head>\n');
Response.Write('<body bgcolor="#FFFFFF">\n');
Response.Write(' <div align="center">\n');
Response.Write('

</p>\n');
Response.Write('

' + messaggio + '</p>\n');
Response.Write(' </div>\n');
Response.Write('</body>\n');
Response.Write('</html>\n');
Response.End;
}

function recupera(nomeCampo,messaggioErrore) {
temp = String(Request.Form(nomeCampo));
if (temp=="" || temp=="undefined") mostraErrore(messaggioErrore);
return temp;
}

// Il modulo viene recuperato e validato attraverso
// le due funzioni appena predisposte.
// Tutti i dati vengono riposti e formattati in
// un'unica variabile.
dati = "Cognome: " + recupera("cognome","COGNOME NON VALIDO TORNA INDIETRO E COMPILA DI NUOVO IL MODULO") + "\n" +
"CF. PI.: " + recupera("cf","CODICE FISCALE O PARTITA IVA NON VALIDO TORNA INDIETRO E COMPILA DI NUOVO IL MODULO") + "\n" +
"Indirizzo: " + recupera("indirizzo","INDIRIZZO NON VALIDO TORNA INDIETRO E COMPILA DI NUOVO IL MODULO") + " " +
"Num. Civ.: " + recupera("n","NUMERO CIVICO NON VALIDO TORNA INDIETRO E COMPILA DI NUOVO IL MODULO") + "\n" +
"Cap: " + recupera("cap","CAP NON VALIDO TORNA INDIETRO E COMPILA DI NUOVO IL MODULO") + " " +
"Città: " + recupera("citta","CITTA' NON VALIDA TORNA INDIETRO E COMPILA DI NUOVO IL MODULO") + " (" +
"Provincia: " + recupera("provincia","PROVINCIA NON VALIDA TORNA INDIETRO E COMPILA DI NUOVO IL MODULO") + ")\n\n" +
"Telefono: " + recupera("telefono","TELEFONO NON VALIDO TORNA INDIETRO E COMPILA DI NUOVO IL MODULO") + "\n" +
"Spedizione: " + recupera("spedizione","SPEDIZIONE NON VALIDA TORNA INDIETRO E COMPILA DI NUOVO IL MODULO") + "\n" +
"E mail: " + recupera("mail","EMAIL NON VALIDO TORNA INDIETRO E COMPILA DI NUOVO IL MODULO") + "\n"

cognome = recupera("cognome");
cf = recupera("cf");
indirizzo = recupera("indirizzo");
n = recupera("n");
cap = recupera("cap");
citta = recupera("citta");
provincia = recupera("provincia");
telefono = recupera("telefono");
email = recupera("mail");

// Si passa al recupero degli articoli contenuti nel carrello
mioCarrello = recuperaArticoli();
if (mioCarrello.length==0) Response.Redirect("carrello.asp");
totale = 0;
ordine = "";

order="";
// Viene calcolato nuovamente il preventivo
openConnection(Server.MapPath("articoli.mdb"));
for (i=0;i<mioCarrello.length;i++) {
ris = conn.Execute("SELECT * FROM articoli WHERE codice = '" + mioCarrello[i].codice + "'");

parziale2 = mioCarrello[i].quantita * ris("euro");
totale += parziale2;

var euro = parziale2;
ordine += "GIOCO: " + ris("codice") + "\n";
ordine += "QUANTITA': " + mioCarrello[i].quantita + "\n";
ordine += "PREZZO EURO: " + ris("euro") + "\n";
ordine += "TOTALE EURO: " + parziale2 + "\n\n";

order += "GIOCO: " + ris("codice")+ "

" + "QUANTITA': " + mioCarrello[i].quantita +"

"+"PREZZO EURO: " + ris("euro")+"

" + "
";
ris.Close();
}
ordine += "TOTALE FATTURA EURO: " + euro;
// La connessione viene chiusa, il database ora non serve più
conn.Close();
// Il carrello viene svuotato
svuotaCarrello();

// Viene generato il corpo dell'e mail
d = new Date();
corpo = "";
corpo += "ORDINE INOLTRATO IN DATA: " + d.toString() + "\n\n";
corpo += "DATI DEL CLIENTE: \n\n";
corpo += dati;
corpo += "\n";
corpo += "DETTAGLIO DELL'ORDINE: \n\n";
corpo += ordine;

data = d.toString() + "\n\n";
risultato = euro

// Attraverso CDONTS la mail viene infine
// generata e spedita
objMail = new ActiveXObject("CDONTS.NewMail");
objMail.From = "luca.picuti@fastwebnet.it";
objMail.To = "luca.picuti@fastwebnet.it";
objMail.Subject = ":::CNN2000.IT::: ORDINE PRODOTTI";
objMail.Body = corpo;
objMail.Importance = 1;
objMail.Send();

%>

Discussione: Mail Da Form Su Spazio Aruba

Strumenti discussione

Ricerca discussione

Visualizza

Mail Da Form Su Spazio Aruba

come hai risolto?

Permessi di invio