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 |
