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

[Phil Rob]

Bonjour,

Comme je comprends ton message, tu souhaites envoyer un Form VB par mail à quelqu'un qui devrait pouvoir y encoder ses données de sorte que tu les récupères ensuite.
Vu comme ça, ce n'est pas possible !

Toujours sous réserve d'une bonne compréhension de ma part, ce que tu veux faire peut être réalisé de 2 manières :

Soit tu envoies tes questions directement dactylographiées dans le mail, en demandant au destinataire de bien vouloir indiquer leurs réponses dans un mail en retour.
Exemple : je te fais un mail avec le texte " Quel est ton âge ?, merci de m'envoyer ta réponse par retour." Et si cela te convient tu cliqueras écriras "J'ai cet âge" et tu cliqueras le bouton "Répondre" de ton lecteur de mail.

Soit, tu exposes en ligne d'un site Web, un formulaire auquel quiconque peut répondre et valider (Comit). A ce moment, le programme te stocke les infos sur le serveur du site (par exemple) et tu les consultes quand tu veux.
Dans ce deuxième cas, il ne s'agit plus de VB et de Form, mais plutôt de Asp et de pages Web. Pour Asp, voir : https://dotnet.developpez.com/aspnet/

Mais peut-être quelqu'un te donnera la piste d'une solution plus proche de ta demande ...