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
| Dim client As New System.Net.Mail.SmtpClient
Dim message As New System.Net.Mail.MailMessage
Dim b, c As String
For Each item In List1.Items
b = List1.Items.IndexOf(item)
'MsgBox(Mid(List2.Items.Item(b).ToString, 9, 30))
For Each item1 In List2.Items
c = List2.Items.IndexOf(item1)
If b = c Then
'MsgBox("index égaux")
client.UseDefaultCredentials = False
client.Host = "host"
client.Port = 25
client.EnableSsl = False
message.From = New System.Net.Mail.MailAddress("", "")
message.To.Add(Mid(List2.Items.Item(c).ToString, 9, 30))
For i = 0 To List1.Items.Count - 1
Dim item2 As New System.Net.Mail.Attachment(List1.Items.Item(b).ToString)
message.Attachments.Add(item2)
message.Subject = "QoS Report"
message.Body = "QoS Report"
Next
End If
Next
client.Send(message)
Next |
