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
|
dim TableauTo as String()
dim TableauFor as String()
dim TableauSubject as String()
dim TableauMessage as String()
dim TableauIsHtml as Boolean()
dim tabErreur as String()
' Tu rajoutes la liste des messages à envoyer dans chaque tableau le message 1 correspond à l'indice i = 1 dans chaque tableau s'il y'a erreur tu inscrit cette erreur dans le tableau d'erreur à son indice
dim i as Int16 = 0
while i < TableauFor.length - 1
Try
Dim mymail As New MailMessage(TableauFor(i), TableauTo(i))
mymail.Subject = TableauSubject(i)
mymail.IsBodyHtml = TableauIsHtml(i)
mymail.Body = TableauMessage(i)
Dim SmtpMail As New SmtpClient(mvarsmtpserver) SmtpMail.Credentials = New System.Net.NetworkCredential(mvarsmtpserverlogin, mvarsmtpserverpassword)
SmtpMail.Send(mymail)
Catch ex As Exception
tabErreur(i) = ex.Message.ToString()
Finally ' Quoiqu'il arrive tu passes au mail suivant
i = i + 1
End Try
End While |