Discussion :

[icekev]

Bonjours, je chercher tout partout sur le web et j'ai malheureusement trouver aucun script qui pouvais remplir mon espace vide. Alors , j'ai crée un petit codage. le voici:

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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Smtp As New SmtpClient()
        Dim Message As New MailMessage()
 
        Message.From = New MailAddress("adresse@hotmail.fr")
        Message.To.Add(New MailAddress(textbox1.Text))
        Message.IsBodyHtml = False
        Message.Subject = "Ce message est un test"
        Message.Body = "Message reçut 5/5"
 
        Smtp.Credentials = New System.Net.NetworkCredential("adresse@hotmail.fr", "Mot de passe")
        Smtp.Host = "smtp.live.com"
        Smtp.EnableSsl = True
 
        Try
            Smtp.Send(Message)
            MessageBox.Show("Message envoyé", _
                            "Accomplis !", _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Information)
        Catch ex As SmtpException
            MessageBox.Show("Erreur durant l'envoi :" & Environment.NewLine & _
                            ex.Message, _
                            "Erreur SMTP !", _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Error)
        End Try
    End Sub

--------------------------------------------------------------------------
Par contre , j'ai un problème lorsque je click sur le bouton pour envoyer le message, un message d'erreur survient et me dit :

échec durant l'envoie dur courrier ..

Es-ce que quelqu'un pourrais m'éclaircir le tout ?

[Sankasssss]

Hello,
premièrement, les règles du forum veuilles pour la lisibilité qu'un code soit mit dans les balises code...


Pour ce qui est de ton problème,
vérifie que les port 25 n'est pas bloqué par ton antivirus,
que ton fournisseur est bien sur le port 25, sinon il faut le changé,
si ca fonctionne tjs pas : http://www.systemnetmail.com/
ou repost ici avec plus de détail...

[icekev]

J'ai que 3 chose a te dire xD

1: Merci beaucoup pour l'aide, je ne savais pas que se site existait.

2: Excuse moi pour les balise , je vien de m'inscrire sur ce site hier..

3: pour des raison inconnu j'ai arranger mon code et maintenant ... il devrait envoyée des message parfaitement mais lorsque je me connect a mon compte hotmail , je n'ai rien reçut

Voici mon script

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 smtp As New SmtpClient
        Dim Message As New MailMessage()
 
 
 
        Message.From = New MailAddress(textbox1.text)
        Message.To.Add(New MailAddress("monhotmail@hotmail.fr"))
        Message.IsBodyHtml = False
        Message.Subject = "Ce message est un test"
        Message.Body = "Message reçut 5/5"
 
        Smtp.Credentials = New System.Net.NetworkCredential("monhotmail@hotmail.fr", "mon password")
        Smtp.Host = "smtp.live.com"
        Smtp.EnableSsl = True
        Smtp.Port = 587
 
        Try
            Smtp.Send(Message)
            MessageBox.Show("Message envoyé", _
                            "Accomplis !", _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Information)
        Catch ex As SmtpException
            MessageBox.Show("Erreur durant l'envoi :" & Environment.NewLine & _
                            ex.Message, _
                            "Erreur SMTP !", _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Error)
        End Try

[Luc1an0]

Tu as presque tout bon !

Essayes avec ça en plus de ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim smtpCred as New System.Net.NetworkCredential
smtpCred .UserName = "tonmail@hotmail.com"
smtpCred .Password = "tonpass"
'tu oublie le serveur de connexion pour l'authentification SMTP
smtpCred .Domain = "smtp.live.com"
 
' ça tu l'as mis c'est bon
Smtp.Host = "smtp.live.com"
'ne pas oublier de définir que tu n'utiliseras pas le canal SMTP par défaut
Smtp.UseDefaultCredentials = False
'Et lui passer un nouveau canal paramétré
Smtp.Credentials = SmtpCred

[icekev]

Bonjours merci pour l'aide que tu mas remis mais maintenant une nouvelle erreur apparait lorsque je pèse sur mon boutton.

Voici mon code et l'erreur

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
43
44
45
46
 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim smtp As New SmtpClient("127.0.0.1")
        Dim Message As New MailMessage()
 
 
 
        Message.From = New MailAddress(textbox1.text)
        Message.To.Add(New MailAddress("monhotmail@hotmail.com"))
        Message.IsBodyHtml = False
        Message.Subject = "Ce message est un test"
        Message.Body = "Message reçut 5/5"
 
        smtp.Credentials = New System.Net.NetworkCredential("mon hotmail", "mon pass")
        Smtp.Host = "smtp.live.com"
        smtp.EnableSsl = True
        Smtp.Port = 587
 
        Dim smtpCred As New System.Net.NetworkCredential
        smtpCred.UserName = "mon hotmail@hotmail.com"
        smtpCred.Password = "mon pass"
        'tu oublie le serveur de connexion pour l'authentification SMTP
        smtpCred.Domain = "smtp.live.com"
 
        ' ça tu l'as mis c'est bon
        smtp.Host = "smtp.live.com"
        'ne pas oublier de définir que tu n'utiliseras pas le canal SMTP par défaut
        smtp.UseDefaultCredentials = False
        'Et lui passer un nouveau canal paramétré
        smtp.Credentials = smtpCred
 
        Try
            Smtp.Send(Message)
            MessageBox.Show("Message envoyé", _
                            "Accomplis !", _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Information)
        Catch ex As SmtpException
            MessageBox.Show("Erreur durant l'envoi :" & Environment.NewLine & _
                            ex.Message, _
                            "Erreur SMTP !", _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Error)
        End Try
    End Sub

Ensuite j'entre mon hotmail dans la textbox je click sur le boutton et cette erreur apparait,

Erreur durant l'envoie:

Boites au lettre non disponible. la réponse du serveur était 5.7.3
Requested action aborded; user not authenticated

Alors maintenant je ne comprend plus rien =d

Merci au prochain qui vont m'aider

[Luc1an0]

Est ce que à tout hasard, ça ne viendrait pas de la première ligne ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim smtp As New SmtpClient("127.0.0.1")

Alors à moins que ton PC soit un serveur SMTP, je doute que ça marche !