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 |
Partager