|
|
 |
|
<%
if Request("Send")="send" then
//'----------------------------------
Dim objMessage, objConfig
//Crea l'oggetto email
Set objMessage = 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.serraglia.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("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")= "info@serraglia.it"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")= "serra"
.Fields.Update
End With
//'-----------------------------------
//'Dim objMessage, objConfig
'Crea gli oggetti per il messaggio e per la configurazione
'Set objMessage = CreateObject("CDO.Message")
'Set objConfig = CreateObject("CDO.Configuration")
'Configurazione server smtp
'objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
'objConfig.Fields(cdoSMTPServer) = "mail.nomecsrl.it"
'objConfig.Fields(cdoSMTPServerPort) = 25
'Aggiornamento configurazione
'objConfig.Fields.Update
Set objMessage.Configuration = objConfig
'crea il messaggio
objMessage.To = "info@serraglia.it"
objMessage.From = "info@serraglia.it"
objMessage.Subject = "Modulo di contatto del sito serraglia.it"
objMessage.TextBody = "Richiesta intervento dal modulo per condomini del sito serraglia.it" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"Dati cliente - Luogo di intervento" & Chr(13) & Chr(10) & _
" nominativo: " & Request("textfield") & Chr(13) & Chr(10) & _
" indirizzo : " & Request("textfield2") & Chr(13) & Chr(10) & _
" comune : " & Request("textfield3") & Chr(13) & Chr(10) & _
" telefono : " & Request("textfield4") & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"Dati amministrazione o soggetto per fattura" & Chr(13) & Chr(10) & _
" nominativo: " & Request("textfield5") & Chr(13) & Chr(10) & _
" indirizzo : " & Request("textfield6") & Chr(13) & Chr(10) & _
" comune : " & Request("textfield7") & Chr(13) & Chr(10) & _
" telefono : " & Request("textfield8") & Chr(13) & Chr(10) & _
" partita iva: " & Request("textfield9") & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"Dati intervento" & Chr(13) & Chr(10) & _
" tipo intervento: " & Request("checkbox1") & Chr(13) & Chr(10) & _
"" & Request("checkbox2") & Chr(44) & _
"" & Request("checkbox3") & Chr(44) & _
"" & Request("checkbox4") & Chr(44) & _
"" & Request("checkbox5") & Chr(44) & _
"" & Request("checkbox6") & Chr(44) & _
"" & Request("checkbox7") & Chr(44) & _
"" & Request("checkbox8") & Chr(44) & _
"" & Request("checkbox9") & Chr(13) & Chr(10) & _
" note : " & Request("textarea") & Chr(13) & Chr(10)
' gestione errori
On Error Resume Next
' Send the CDOSYS Message
objMessage.Send
Set objMessage = Nothing
Set objConfig = Nothing
'visualizza un messaggio di ok in caso di invio senza problemi
'altrimenti visualizza il messaggio di errore
If Err.Number = 0 Then
Response.Write "Il messaggio è stato inviato " Else Response.Write Err.Description & " " Err.Number = 0 End If On Error Goto 0 end if %> Modulo di richiesta intervento a condominio <%if MailCode <> "" then %> <% end if MailCode="" %> |
|
