<%
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 = "Mail spedita dal modulo contatti del sito serraglia.it" & Chr(13) & Chr(10) & _
" tipo richiesta: " & Request("select1") & Chr(13) & Chr(10) & _
" nominativo: " & Request("NOMINATIVO") & Chr(13) & Chr(10) & _
" indirizzo : " & Request("INDIRIZZO") & Chr(13) & Chr(10) & _
" cap : " & Request("CAP") & Chr(13) & Chr(10) & _
" comune : " & Request("COMUNE") & Chr(13) & Chr(10) & _
" provincia : " & Request("PROVINCIA") & Chr(13) & Chr(10) & _
" e-mail : " & Request("EMAIL") & Chr(13) & Chr(10) & _
" telefono : " & Request("TELEFONO") & Chr(13) & Chr(10) & _
" fax : " & Request("FAX") & Chr(13) & Chr(10) & _
"commenti: " & Chr(13) & Chr(10) & _
Request("COMMENTI") & 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
%>
<%if MailCode <> "" then %>
<% end if
MailCode="" %>
