Private Sub Invio()

        Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage()

 
        smtpServer.Credentials = New Net.NetworkCredential(My.Settings.Mail.ToString, TextBoxPw.Text)

        'Metti la porta del tuo HOST di posta
        smtpServer.Port = 25

        
        smtpServer.Host = My.Settings.Smtp.ToString

  
        smtpServer.EnableSsl = False

        
        mail = New MailMessage()

        
        mail.From = New MailAddress(My.Settings.Mail.ToString)

        
        mail.To.Add(TextBoxDestinatari.Text)

        
        mail.Subject = TextBoxOggetto.Text

       
        mail.Body = TextBoxCorpo.Text

        smtpServer.Send(mail)


    End Sub