<% ' 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 ' richiedo autenticazione .Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' username e password .Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "5x1000@policlinico.mi.it" .Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Qwertyuiop1!" .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.policlinico.mi.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.update End With ' Assegna le configurazioni Set objMail.Configuration = objConfig ' Assegna all'oggetto le proprietÓ necessarie objMail.From = "5x1000@policlinico.mi.it" ' Mittente objMail.To = Request.Form("mail") ' Destinatario objMail.Bcc = "5x1000@policlinico.mi.it" 'objMail.ReplyTo = Request.Form("mail") ' Mittente objMail.Subject = "5x1000 al Policlinico di Milano" ' Oggetto objMail.HTMLBody = ("Gentile " & Request.Form("nome") & "
grazie di cuore per la tua scelta di destinare il 5x1000 al Policlinico di Milano.

Nel tuo modello per la dichiarazione dei redditi (modello CU, modello 730, modello Unico) troverai uno spazio dedicato alla "SCELTA PER LA DESTINAZIONE DEL CINQUE PER MILLE DELL'IRPEF".

Per destinare il tuo 5x1000 inserisci il codice fiscale 04724150968 in questo spazio e firma.

La casella corretta è FINANZIAMENTO DELLA RICERCA SANITARIA.

Con questo gesto, che non ti costa nulla, contribuirai a sostenere i nostri ricercatori impegnati a combattere malattie gravi, spesso rare, e che ad oggi non hanno ancora una terapia efficace. Dando una speranza in più ai pazienti di tutte le eta della vita, dagli adulti agli anziani, fino ai bambini e addirittura ai feti, a cui possiamo dare la possibilita di nascere sani.
Grazie per essere al nostro fianco in questa sfida a favore della ricerca, dei pazienti e della salute di tutti.
Policlinico di Milano. ") ' Messaggio ' Invia l'email objMail.Send() Set objMail = Nothing Response.Write("
Grazie di cuore per la tua scelta di destinare il 5x1000 al Policlinico di Milano
Una copia Ŕ stata inviata all'indirizzo e-mail fornito
") %> <% else %>
  Chi siamo |  Lavora con noi |  Ricerca e Formazione |  Arte e Beni culturali |  Media Relation
Blog Fondazione   Canale youtube twitter
Loading

5x1000

5x1000 2017
INSERISCI I TUOI DATI E RICEVI IL PROMEMORIA VIA MAIL
Nome
Cognome
E-mail

 
 
<% end if %>