Ciao
ho scaricato un "Form mail" ma dopo averlo provato mi dice invio email non riuscito.
Ho cambiato l'email all'interno con la mia ma niente.
Leggedo un commento nel codice dice che su alcuni provider potrebbe non andare.
Come faccio a sapere se va sul mio server?
Se pensate che esistono script migliori di Flash e Asp vi prego di postarmeli.
Sotto c'è il codice asp dello script:
------------------------------------------------------------------------------------
<%@ Language=VBScript %>
<%
' dichiaro alcuni variabili
Dim iMsg
Dim iConf
Dim Flds
Dim strTosend
Dim strNome
Dim strCognome
Dim strIndirizzo
Dim strEmail
Dim strNote
Dim strMessage
Dim strOggetto
' strTosend è la variabile che memorizza l’email del destinatario (es. email del nostro cliente)
strTosend="pepigno1975@yahoo.it"
' l’oggetto del nostra email
strOggetto="Invio informazioni"
' recupero il nome dell’utente con Request(nome_proprietà_oggettoflash)
strNome=Request("nome")
' recuperp il cognome
strCognome= Request("cognome")
' recupero l’email
strEmail= Request("email")
' recupero l’indirizzo
strIndirizzo=Request("indirizzo")
' recupero il messaggio note
strNote= Request("note")
' vado a comporre il messaggio che il destinatario riceverà nella sua casella email
' vbcrlf è il carattere speciale che aggiunge un ritorno a capo
strMessage="Nome: "&strNome&vbcrlf
strMessage=strMessage&"Cognome: "&strCognome&vbcrlf
strMessage=strMessage&"Email: "&strEmail&vbcrlf
strMessage=strMessage&"Messaggio: "&strNote&vbcrlf
' creo gli oggetti necessari per l’invio dell’email
' queste righe possono cambiare in relazione al provider
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
With iMsg
Set .Configuration = iConf
.To = strTosend
.From = strEmail
.Subject = strOggetto
.TextBody=strMessage
.Send
End With
' alla fine del send recuperiamo la variabile err.number che identifica un numero di errore
' se esiste un numero di errore vuol dire che err.numer è true quindi c’è stato un errore altrimenti ‘error risulterebbe false
if err.number then
Response.Write "error=true"
else
Response.Write "error=false"
end if
%>
------------------------------------------------------------------------------------
Rispondi quotando