Discussion :

[Selve]

Bonjour,

J'utilise ce code pour envoyer des messages automatiquement dans ma boite mail :

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
Public Function Envoi_Mail(Sujet As String, Mes As String) As Boolean 'Envoyer infos par mail
        Dim res As Boolean
        If My.Computer.Network.Ping("www.google.com") = True Then
            Dim client As New System.Net.Mail.SmtpClient
            Dim messageMail As New System.Net.Mail.MailMessage
            client.Credentials = New System.Net.NetworkCredential("email", "MDP")
            client.Port = 587 'définition du port 
            client.Host = "smtp.live.com" 'définition du serveur smtp
            client.EnableSsl = True
            messageMail.From = New System.Net.Mail.MailAddress("email-de@outlook.fr")
            messageMail.To.Add("Email_to@hotmail.com")
            messageMail.Subject = Sujet
            messageMail.Body = Mes
            Try
                client.Send(messageMail) 'envoi du mail
                res = True
            Catch ex As Exception
                'MessageBox.Show(ex.ToString)
                res = False
            Finally
                messageMail.Dispose()
            End Try
        End If
        Return res
    End Function

Ca marche mais de temps en temps je reçois ce message :



J'arrive à récuperer ma boite mais j'aimerais ne plus recevoir ce message . Y a t'il un autre solution pour envoyer des messages