Public Class BugReport
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", "Trovato bug in MultySoft Converter PNG to ICO", RichTextBox1.Text)
Dim Smtp As New System.Net.Mail.SmtpClient(TextBox2.Text)
Smtp.Send(Msg)
MsgBox("E-mail inviata correttamente, ma per anti e-mail crossing, non sarà possibile reinviare messaggi di bug report fino al prossimo avvio del programma", MsgBoxStyle.Information)
Button1.Enabled = False
Catch ex As Exception
MsgBox("Errore nell'invio dell'e-mail", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub BugReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackgroundImage = Form1.BackgroundImage
End Sub
End Class