non ci credo... non funziona ancora... ho fatto letteralmente copia incolla e mi da ancora un messaggio di errore relativo a quella riga... sono troppo demoralizzato...
posto il codice, magari qualcuno capisce cosa cavolo succede
codice:
<%
Dim objMail, objConfig
' 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") = "mail.attiva.biz"
' 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 = "mp@XXX.com" ' Mittente
objMail.To = "massimo@XXX.com" ' Destinatario
objMail.Subject = "Richiesta contatto dal sito XXX" ' Oggetto
objMail.TextBody = "Messaggio inviato da: Nome" & inputNome & ", Cognome" & inputCognome & ", Funzione" & inputFunzione & ", Società" & inputSocietà & ", Indirizzo" & inputIndirizzo & ", Telefono" & inputTelefono & ", E-mail" & inputEmail & ", Testo" & inputTesto &""
' Invia l'email
objMail.Send()
Set objMail = Nothing
Response.Write("Email inviata correttamente " &_
"all'indirizzo as")
%>
Rispondi quotando
