Torna al Thread
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