A voir également:
- Probleme Avec ASP.NET
- Asp.net download - Télécharger - Divers Web & Internet
- Asp.net 2.0 download - Télécharger - Divers Utilitaires
- Asp.net machine account ✓ - Forum Windows
- ASP.NET 2.0 - Forum Windows
- [ASP.Net] Html.DropDownListFor ✓ - Forum Framework .NET
3 réponses
Dsl Antoine j'ai oublié de mettre le code voici le code du formulaire
Imports System.Web.Mail
Imports System.Text
Partial Class Default2
Inherits System.Web.UI.Page
Sub vider()
Txt_nom.Text = ""
Txt_prenom.Text = ""
Txt_mail.Text = ""
Txt_desc.Text = ""
Txt_message.Text = ""
End Sub
Protected Sub btn_Valider_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Valider.Click
Dim body As String = "De : " + Txt_nom.Text + " " + Txt_prenom.Text + Environment.NewLine + "E-mail : " + Txt_mail.Text + Environment.NewLine + Environment.NewLine + "Message : " + Environment.NewLine + Environment.NewLine + Txt_message.Text
Dim MM As System.Net.Mail.SmtpClient
MM.EnableSsl = True
MM.Host = "smtp.gmail.com"
Dim cred As New System.Net.NetworkCredential("eliteweb.hassan@gmail.com", "motdepasse")
MM.Credentials = cred
MM.Send(Txt_mail.Text, "eliteweb.hassan@gmail.com", Txt_desc.Text, body)
vider()
lb_valider.ForeColor = Drawing.Color.Green
lb_valider.Text = "votre message a été envoyé avec succès"
lb_valider.Visible = True
End Sub
End Class
Imports System.Web.Mail
Imports System.Text
Partial Class Default2
Inherits System.Web.UI.Page
Sub vider()
Txt_nom.Text = ""
Txt_prenom.Text = ""
Txt_mail.Text = ""
Txt_desc.Text = ""
Txt_message.Text = ""
End Sub
Protected Sub btn_Valider_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Valider.Click
Dim body As String = "De : " + Txt_nom.Text + " " + Txt_prenom.Text + Environment.NewLine + "E-mail : " + Txt_mail.Text + Environment.NewLine + Environment.NewLine + "Message : " + Environment.NewLine + Environment.NewLine + Txt_message.Text
Dim MM As System.Net.Mail.SmtpClient
MM.EnableSsl = True
MM.Host = "smtp.gmail.com"
Dim cred As New System.Net.NetworkCredential("eliteweb.hassan@gmail.com", "motdepasse")
MM.Credentials = cred
MM.Send(Txt_mail.Text, "eliteweb.hassan@gmail.com", Txt_desc.Text, body)
vider()
lb_valider.ForeColor = Drawing.Color.Green
lb_valider.Text = "votre message a été envoyé avec succès"
lb_valider.Visible = True
End Sub
End Class
