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