If DGVDatiMail.Rows.GetRowCount(DataGridViewElementStates.Selected) = 1 Then
            If ValidaEmail(IndMailTextBox.Text) Then
                Dim indselez As Integer = DGVDatiMail.CurrentRow.Index
                Dim miaMail As New MailMessage With {
                .From = New MailAddress(CBMailMittente.SelectedItem, "xxxxx"),
                .Priority = MailPriority.High,
                .Subject = DGVDatiMail.Rows(indselez).Cells(1).Value,
                .Body = DGVDatiMail.Rows(indselez).Cells(2).Value,
                .BodyEncoding = System.Text.Encoding.UTF8
                }
                miaMail.To.Add(New MailAddress(IndMailTextBox.Text))
                miaMail.Bcc.Add(New MailAddress(“mail@tiscali.it”, “xxxxx”))
              
                If AllegatoCheckBox.Checked Then
                    miaMail.Attachments.Add(New Attachment(Application.StartupPath & "\Licenze\Licenza-" & NomeApp & ".cri"))
                End If
                Dim smtpHost As String = Nothing
                Dim nomeut As String = Nothing
                Dim passw As String = Nothing
                Dim portaS As String = Nothing
                Dim SicConn As Boolean = False

                Select Case CBMailMittente.SelectedIndex
                    Case = 0
                        smtpHost = "out.alice.it"
                        nomeut = "mail@alice.it"
                        passw = "xxxxxxx"
                        portaS = "587"
                        SicConn = False
                    Case = 1
                        smtpHost = "smtp.gmail.com"
                        nomeut = "mail@gmail.com"
                        passw = "yyyyyyyy"
                        portaS = "587"
                        SicConn = True
                    Case Else
                        smtpHost = "smtp.tiscali.it"
                        nomeut = "mail@tiscali.it"
                        passw = "zzzzzzz"
                        portaS = "465"
                        SicConn = True
                End Select

                Dim Smtp As New SmtpClient With {
                    .Host = smtpHost,
                    .UseDefaultCredentials = False,
                    .EnableSsl = SicConn,
                    .Credentials = New Net.NetworkCredential(nomeut, passw),
                    .Port = portaS,
                    .Timeout = 100000
                    }

                Try
                    Smtp.Send(miaMail)
                    MsgBox("Email correttamente inviata", MsgBoxStyle.Information)
                    miaMail.Dispose()
                    CBMailMittente.Enabled = False
                    'AggiungeButton.Enabled = False
                    'AggiornaButton.Enabled = False

                Catch ex As Exception
                    MsgBox("Email non inviata" & ex.Message, MsgBoxStyle.Exclamation)
                End Try
                If My.Computer.FileSystem.FileExists(NomeFile) Then
                    My.Computer.FileSystem.DeleteFile(NomeFile, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
                End If
            Else
                MessageBox.Show("Inserire un indirizzo e-mail valido", "Attenzione", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End If
        End If