'Invio mail
dim MailFrom as String = e.cDoPage("FILTER")("COD_PERSONA").Value & "@intranet.xxx.it"
dim MailTo as String = e.cDoPage("FILTER")("I_AUTORIZZATORE").Value & "@intranet.xxx.it"
dim Subject as string = "Richiesta autorizzazione " & StringTipoRichiesta & " " & e.cDoPage("FILTER").Title
Dim Body as string = ""
Body=Body & "Nr. richiesta: " & seq.tostring & Vbcrlf
Body=Body & "Motivazione: " & Vbcrlf & e.cDoSection("MOTIVO").Value & Vbcrlf
Body=Body & "Dal : " & e.cDoSection("DATA_INIZIO").Value & Vbcrlf
Body=Body & "Al : " & e.cDoSection("DATA_FINE").Value & Vbcrlf
Dim i As Integer = e.cDoConnect.SendMail(MailFrom, MailTo, MailFrom, "", Subject, False, Body)
DoMsgbox("Mail Inviata!")