Discussion :

[jeremyvb11]

Bonsoir à tous,

J'essaye en vain d'envoyer un mail automatique avec l'opérateur Numéricable.
j'ai essayé avec :

'sans SSL
port : 25 ou 587
smtp : smtp.numericable.fr

'avec SSL
port : 25 ou 587
smtp : smtps.numericable.fr


Voici mon code avec ou sans SSL

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
'mail sans SSL
        If CheckBox5.Checked = False Then
 
            Try
                Dim SmtpServer As New SmtpClient()
                Dim mail As New MailMessage()
                SmtpServer.Credentials = New _
                    Net.NetworkCredential("mailxx@gmail.com", lblMDP.Text)
                SmtpServer.Port = lblPort.Text
                SmtpServer.Host = lblserveur.Text
                mail = New MailMessage()
                mail.From = New MailAddress("mailxx@gmail.com")
                mail.To.Add(lblmail.Text)
                mail.Subject = "Mail d'alerte"
                mail.Body = "Test"
                SmtpServer.Send(mail)
            Catch ex As Exception
                MessageBox.Show("Erreur des données saisies ou connexion internet introuvable")
            End Try
 
        End If
 
        'mail avec SSL
        If CheckBox5.Checked = True Then
 
            Try
                Dim SmtpServer As New SmtpClient()
                Dim mail As New MailMessage()
                SmtpServer.Credentials = New _
                    Net.NetworkCredential("mailxx@gmail.com", lblMDP.Text)
                SmtpServer.EnableSsl = True
                SmtpServer.Port = lblPort.Text
                SmtpServer.Host = lblserveur.Text
                mail = New MailMessage()
                mail.From = New MailAddress("mailxx@gmail.com")
                mail.To.Add(lblmail.Text)
                mail.Subject = "Mail d'alerte"
                mail.Body = "Test"
                SmtpServer.Send(mail)
            Catch ex As Exception
                MessageBox.Show("Erreur des données saisies ou connexion internet introuvable")
            End Try
 
        End If

Je botte en touche, est_ce que des personnes aurais déja rencontré ce soucis ??
Vous remerciant par avance pour vos retours

Très cordialement,

[vanquish]

Ca ressemble assez à ce que je fais et qui fonctionne jusqu'ici avec tous les opérateurs.

Quel est le problème exactement ?

Pour la plupart des opérateurs, il faut surtout être connecté au réseau de l'opérateur pour pouvoir utiliser son smtp et en mode non SSL, les Credential ne sont même pas nécessaire.

En mode SSL avant le
smtp.Credentials = ....
je fais un :
smtp.UseDefaultCredentials = false;

Je fixe aussi un smtp.Timeout à quelques secondes.

Je m'étonne de l'adresse courriel fourni dans le Credential.
Un smtp numéricable avec un login gmail ?