|
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
|
|