Correo electrónico con ficheros adjuntos

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)
Quizá te interese...