Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim client As New SmtpClient
Dim message As New MailMessage
client.Host = "out.alice.it"
message.From = New MailAddress("

")
message.To.Add("

")
message.Subject = "[AUOTEMAIL]"
message.Body = (Me.TextBox1.Text & ChrW(13) & ChrW(10) & Me.TextBox2.Text)
client.Send(message)
End Sub