Studio Pederzoli


RICHIESTE & QUESITI

Il seguente modulo contatti è a disposizione per qualsiasi richiesta o quesito abbiate da sottoporci.
Riceverete una risposta appena possibile.

<% ' Controlla invio if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then 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") = "localhost" ' 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 = Request.Form("email") ' Destinatario objMail.To = "info@studiopederzoli.com" ' Mittente objMail.Subject = "Messaggio di contatto dal sito Studiopederzoli.com" objMail.HTMLBody = "

Nome e cognome: " + Request.Form("nome") + "

Telefono: " + Request.Form("telefono") + "

Email: " + Request.Form("email") + "

Messaggio: " + Request.Form("messaggio") + "

" ' Messaggio ' Invia l'email objMail.Send() Set objMail = Nothing Response.Write("Il messaggio è stato inviato correttamente.") else %>
Nome e cognome
Telefono
Email
Messaggio
<% end if %>

 


Menu

Sede di Mirandola (MO) Via Focherini, 19 - Int. 2
Sede di Bologna Via Scipione dal Ferro, 4
Tel. +39 0535 658916 Fax +39 178 6087078
Cod. Fisc.: PDR LSN 74L48 F240J P. IVA: 02769320363A

Eventi Lo Studio Curriculum Servizi Approfondimenti Contatti Dove Siamo Richieste e Quesiti