Discussion :

[eric-leg]

Bonsoir

Après avoir fiat de l info il y a quelques années je me remet au vb6 , mais j ai beaucoup oublier , et oui

le poid des années est bien la . votre forum est super , et m aide beaucoup , longue vie a celui ci

J ai crée un formulaire de saisie , et le but est d envoyer un compte rendu par mail

mais lors de l envoie apres clic sur bouton envoie , j ai une erreur , (le message n a pu etre envoyer)

et vb m indique la ligne avec : SMTPServer.Send(MyMailMessage) 'Envoi


si vous pouvez m aider

merci d avance

voici le 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
********************************************************************************************
 
Imports System.Net.Mail
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dossier = tbdossier.Text
        Dim tech = tbtech.Text
        Dim nom = tbnom.Text
        Dim prenom = tbprenom.Text
        Dim adresse = tbadresse.Text
        Dim ville = tbville.Text
        Dim cp = tbcp.Text
        Dim tel1 = tbtel1.Text
        Dim tel2 = tbtel2.Text
        Dim type = tbtype.Text
        Dim model = tbmodele.Text
        Dim codeusine = tbcu.Text
        Dim serie = tbserie.Text
        Dim panne = tbpanne.Text
        Dim codeiris = tbiris.Text
        Dim commentaire = tbcommande.Text
        Dim autre = tbautre.Text
        Dim montant = tbmontant.Text
 
 
 
        Dim message As String = "------------"
 
        Dim MyMailMessage As New MailMessage()
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
 
        MyMailMessage.From = New MailAddress("mail@gmail.com")
        MyMailMessage.To.Add("mail@gmail.com")
        MyMailMessage.Subject = ("Objet")
        MyMailMessage.Body = ("Message")
 
        SMTPServer.Port = ("587") 'Port
        SMTPServer.Credentials = New System.Net.NetworkCredential("mail@gmail.com", "sarl")
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage) 'Envoi
    End Sub
End Class

[l_autodidacte]

Bonjour et Bienvenu sur DVP.

Une petite remarque d'abord : D'après les lettres accentuées lues dans le post, le clavier utilisé est français; essayez donc de mettre les apostrophes là où il le faut, et merci de ne pas oublier d'utiliser un français bien lisible pour tous.

Après avoir fait de l'info il y a quelques années je me remets au vb6

Le code que vous avez envoyé ne rentre pas dans le cadre de VB6 mais du VB.Net

[eric-leg]

Merci pour ces informations , je y prêterais attention , hier il etait trés tard , mais ce n'est pas une éscuse.

cdt