Dim Message As New MailMessage()
        Message.To.Add(New MailAddress(reparto))
        Message.Subject = oggetto
        Message.IsBodyHtml = True
        Message.Body =
                       "<p><h3> " + prodotto + " </h3><br /> " +
                       "Richiesta di assistenza per il seguente motivo: " + descr +
                       " <br /> " +
                       " <br /> " +
                       " <b>Email cliente: " + email + " </b></p>" +
                       image.ToString


        If FileUpload.HasFiles Then
            For Each postedFile As HttpPostedFile In FileUpload.PostedFiles
                Dim data As Attachment = New Attachment(Server.MapPath("~/images/") + postedFile.FileName, MediaTypeNames.Application.Octet)
                Message.Attachments.Add(data)
                'image.Append("<img src=" + """" + (Server.MapPath("~/images/") + postedFile.FileName + """" + "/>"))
            Next
        End If


        Dim client As New SmtpClient()

        Try
            client.Send(Message)
        Catch ex As Exception
            ' ...
        End Try