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
| Dim client As New System.Net.Mail.SmtpClient
Dim message1 As New System.Net.Mail.MailMessage
client.Credentials = New System.Net.NetworkCredential(lireINI2("mails", "mail de connexion"), lireINI2("mails", "mot de passe"))
Dim sr As New IO.StreamReader(".\alertes.txt")
While sr.Peek <> -1
ComboBox7.Items.Add(sr.ReadLine)
End While
Try
client.Port = lireINI2("mails", "port smtp") 'définition du port
client.Host = lireINI2("mails", "host smtp") 'définition du serveur smtp
client.EnableSsl = True
message1.From = New System.Net.Mail.MailAddress(lireINI2("mails", "adresse emettrice"))
If lireINI2("mails", "adresse mail 1") <> "" Then
message1.To.Add(lireINI2("mails", "adresse mail 1"))
End If
If lireINI2("mails", "adresse mail 2") <> "" Then
message1.To.Add(lireINI2("mails", "adresse mail 2"))
End If
If lireINI2("mails", "adresse mail 3") <> "" Then
message1.To.Add(lireINI2("mails", "adresse mail 3"))
End If
If lireINI2("mails", "adresse mail 4") <> "" Then
message1.To.Add(lireINI2("mails", "adresse mail 4"))
End If
If lireINI2("mails", "adresse mail 5") <> "" Then
message1.To.Add(lireINI2("mails", "adresse mail 5"))
End If
Dim item As New System.Net.Mail.Attachment(".\alertes.txt")
message1.Attachments.Add(item) 'ajout de la pièce jointe au message
message1.Subject = "ALERTE EMPRUNT OUTILLAGE"
message1.Body = ComboBox7.Text '"Bonjour, vous avez des alertes emprunt outillage, le fichier joint contient ces alertes"
client.Send(message1) 'envoi du mail
Catch ex As Exception
MsgBox("erreur") 'TODO traiter les erreurs
End Try |
