|
Public NotInheritable Class AboutBox1 Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim Msg As New System.Net.Mail.MailMessage(mittente.Text, _ "ruggiero_altini@hotmail.it", "Commento di Ship Battle", messaggio.Text) Dim Smtp As New System.Net.Mail.SmtpClient(TextBox1.Text) Smtp.Send(Msg) MsgBox("Messaggio inviato con successo", MsgBoxStyle.Information) Catch ex As Exception MsgBox("Invio non riuscito", MsgBoxStyle.Critical) End Try End Sub End Class
|
|
