Bonjour à tous,

Je cherche à envoyer un email via un programme VB 10 que je développe sous Microsoft Visual Studio 2010. Je ne sais pas comment faire sachant que mon mail ne doit pas comporter de contenue, seulement un sujet et un destinataire...



J'ai essayé ça mais j'ai un message d'erreur "L'exeption SmtpExeption n'a pas été gérée" :

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
 
        Dim dest As New System.Net.Mail.MailAddress("To Name <*****>")
        Dim exp As New System.Net.Mail.MailAddress("From Name <*****>")
 
        Dim email As New System.Net.Mail.MailMessage
        Dim mailClient As New System.Net.Mail.SmtpClient
 
        mailClient.Host = "*****"
        mailClient.Port = ***
 
        email.To.Add(dest)
        email.From = exp
 
        email.Subject = "OK"
        mailClient.Send(email)
 
        Try
            mailClient.Send(email)
        Catch ex As System.Net.Mail.SmtpException
            MsgBox("Erreur lors de l'envoie")
        End Try