Discussion :

[urbanspike]

Bonjour,

Je cherche à envoyer un mail depuis mon programme vb.net (visual studio 2008). Hors j'ai une erreur avec se code sur client.Send(mm)

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
Private Sub bt_envoi_mail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_envoi_mail.Click
        Dim mm As New Net.Mail.MailMessage("expéditeur", "destinataire")
 
        mm.IsBodyHtml = True
 
        mm.Body = "TEST"
 
        mm.Subject = "Test"
 
        Dim client As New Net.Mail.SmtpClient("mon serveur smtp")
 
        client.Credentials = New Net.NetworkCredential("login", "password")
 
        client.Send(mm)
    End Sub

Echec d'envoie du courrier. j'utilise le serveur smtp de mon entreprise. Quelqu'un a une idée...Merci

Merci

[Redouane]

Bonjour,

Ton code, marche bien chez moi, tt en donnant une adresse expéditeur valide, et une de destinataire valide.
Peut etre que t'as pas specifie le bon serveur SMTP, essaye d'ajouter un try catch, pour voir le probleme exacte:

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
 
 
Try
        Dim mm As New Net.Mail.MailMessage("expéditeur", "destinataire") 
        mm.IsBodyHtml = True 
        mm.Body = "TEST" 
        mm.Subject = "Test"
 
        Dim client As New Net.Mail.SmtpClient("mon serveur smtp") 
        client.Credentials = New Net.NetworkCredential("login", "password") 
        client.Send(mm)
 
Catch ehttp As System.Web.HttpException
            Console.WriteLine("0", ehttp.Message)
            Console.WriteLine("Here is the full error message")
            Console.Write("0", ehttp.ToString())
End Try

[urbanspike]

Bonjour, le code fonctionne effectivement. L'envoie de mon mail était bloqué par l'antivirus (mcafee viruscan enterprise).

Pour corriger le problème, il faut ouvrir la console viruscan, sur protection lors de l'accès, faites un clic droit et propriété.
De là sur la règle "Empêcher les vers à* diffusion massive d'envoyer des messages électroniques", ajouter le nom de votre application dans les exceptions.

Voilà, merci de l'aide