Discussion :

[gahesaint]

voici mon formulaire
et mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Imports System.Net.Mail
 
Public Class Form1
 
    Private Property Prénom As String
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If TbNOM.Text = "" Or TbPNOM.Text = "" Or CbSEXE.Text = "" Or CbJ.Text = "" Or CbM.Text = "" Or CbAN.Text = "" Or TbEGLIS.Text = "" Or TbTROUP.Text = "" Or CbTITRE.Text = "" Or CbDIST.Text = "" Or CbREG.Text = "" Or CbETAP.Text = "" Or TbMAIL.Text = "" Or TbPAS.Text = "" Or TbCPAS.Text = "" Then
            MsgBox("vous devez remplir toutes les cases")
            Exit Sub
        End If
        If TbPAS.Text <> TbCPAS.Text Then
            MsgBox("les mots de pass ne sont pas conformes")
            Exit Sub
        End If
        Dim Nom = TbNOM.Text
        Dim Prénom = TbPNOM.Text
        Dim sexe = CbSEXE.Text
        Dim jour = CbJ.Text
        Dim mois = CbM.Text
        Dim annee = CbAN.Text
        Dim eglise = TbEGLIS.Text
        Dim Troupe = TbTROUP.Text
        Dim titre = CbTITRE.Text
        Dim etape = CbETAP.Text
        Dim district = CbDIST.Text
        Dim region = CbREG.Text
        Dim mail = TbMAIL.Text
        Dim pass = TbPAS.Text
        Dim cpass = TbCPAS.Text
 
        Dim Message As String = "nom : " & Nom & vbNewLine & " Prénom : " & Prénom & vbNewLine & " sexe : " & vbNewLine & "date de naissance :" & jour & "" & mois & "" & annee & vbNewLine & " mois : " & vbNewLine & " annee : " & vbNewLine & " eglise :" & vbNewLine & " Troupe : " & vbNewLine & " titre : " & vbNewLine & " etape : " & vbNewLine & " district :" & vbNewLine & " region : " & vbNewLine & " mail :" & vbNewLine & " pass : " & vbNewLine & " cpass :" & vbNewLine
        Dim evremonsaint As String
        Dim MyMailMessage As New MailMessage()
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
 
 
 
        MyMailMessage.To.Add("evremondsaint@gmail.com")
        MyMailMessage.Subject = ("nouvelle inscription de" & Nom & "" & Prénom)
        MyMailMessage.Body = (Message)
 
        SMTPServer.port = ("587")
        SMTPServer.Credentials = New System.Net.NetworkCredential("Adresse_Expediteur", "Mot_de_passe_expediteur", "confirmer_le_mot_de_passe")
        SMTPServer.EnableSsl = True
        SMTPServer.Send(evremondsaint@gmail.com) 'envoi
        MsgBox("inscription réussie!")
    End Sub
 
    Private Function evremondsaint() As String
        Throw New NotImplementedException
    End Function
 
End Class