Bonjour

Après avoir fait de l’info il y a quelques années je me remet au vb , mais j’ai besoin d’aide ,votre forum est super, et m’aide beaucoup, longue vie à celui-ci

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

mais lors de l’envoie après clic sur bouton envoie , j’ai une erreur , (le message n’a pu être envoyer)

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


si vous pouvez m’aider

je peux vous envoyer le projet si vous le désirer

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
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