Supongamos que tenemos un objeto de la clase ListBox
con la ruta de cada uno de los ficheros que queremos añadir.
La rutina sería la siguiente:
Dim smtp As SmtpClient
smtp = New SmtpClient("servidor_de_correo_saliente")
Dim mensaje As MailMessage
Dim adjuntos As System.Collections.ArrayList
adjuntos = New System.Collections.ArrayList()
Dim i As Integer
For i = 0 To lstFicheros.Items.Count - 1
adjuntos.Add(New Attachment(lstFicheros.Items(i).ToString()))
Next
mensaje.BodyEncoding = System.Text.Encoding.GetEncoding(1252)
mensaje.Subject = "Asunto"
mensaje.IsBodyHtml = True
If lstFicheros.Items.Count > 0 Then
Dim j As Integer
For j = 0 To lstFicheros.Items.Count - 1
mensaje.Attachments.Add(CType(adjuntos.Item(j), Attachment))
Next
End If
smtp.Send(mensaje)