1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| Protected Sub btnValider_Click(sender As Object, e As System.EventArgs) Handles btnValider.Click
Me.Validate()
If Me.IsValid Then
Dim message As New System.Net.Mail.MailMessage(txtMail.Text, "infos@monsite.fr")
...........
...........
...........
' Envoi du message
Dim smtp As New SmtpClient
Me.pnlConfirmation.Controls.Add(New LiteralControl)
smtp.Host = "localhost"
smtp.Send(message)
Catch ex As Exception
lblMessageErreur.Text = "La page a rencontré une erreur.Vos données n'ont pas été envoyées !"
End Try
End If
Me.pnlMessage.Visible = False
Me.pnlConfirmation.Visible = True
End Sub
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Me.pnlMessage.Visible = True
Me.pnlConfirmation.Visible = False
End Sub |
Partager