salve a tutti, ho bisogno di una mano per un form email che deve esplicare la funazione segnala errori.
quindi un utente che naviga sul mio sito e scopre un errore sulla pagina pino.asp, clicca sul link segnala errore, compila il form (con 2 campi oggeetto e desscrizione)
e lo invia alla mia email.
dopo qualche capriola ho messo insieme il codice qui sotto. funziona tutto.
solo chemi serva la funzione HTTP_REFER.
qualcuno puo suggerermi il codice d'aggungere???
grazie!!
AUGURI!!!!!!
<%
' Crea l'oggetto CDOSYS
Set objMail = Server.CreateObject("CDO.Message")
Set objMailConfig = Server.CreateObject ("CDO.Configuration")
' Proprietà di invio
with objMailConfig
' SMTP mail server
.Fields("http://schemas.microsoft.com/cdo/con...ion/smtpserver") = "commercialevirtuale.com"
' Autenticate
.Fields("http://schemas.microsoft.com/cdo/con...tpAuthenticate") = cdoBasic
' User
.Fields("http://schemas.microsoft.com/cdo/con...n/SendUserName") = "XXXXX@XXX.COM"
' PW
.Fields("http://schemas.microsoft.com/cdo/con...n/SendPassword") = "XXXX"
' SMTP port
.Fields("http://schemas.microsoft.com/cdo/con...smtpserverport") = 25
' CDO port
.Fields("http://schemas.microsoft.com/cdo/con...tion/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/con...nectiontimeout") = 60
.Fields.Update
end with
' Configurazione CDOSYS
Set objMail.Configuration = objMailConfig
with objMail
objMail.From="XXX@YYYYY.COM"
objMail.To="AAAAA@AAA.AA"
objMail.Subject=request.form("oggetto")
objMail.HTMLBody =request.form("descrizione")
' Invia l'email
.Send
end with
Set objMail = Nothing
Set objMailConfig = Nothing
response.redirect("successo.html")
%>
Rispondi quotando
