Correo electrónico con ficheros adjuntos

WebProgramacion > Recursos sobre informática y tecnología > Programacion > VB.NET > Correo electrónico con ficheros adjuntos
Autor: Dámaso Velázquez Álvarez

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)

Podría interesarte...

Envío de correo electrónico
Breve descripción para realizar envíos de correo electrónico desde un programa hecho en visual basic.net 2005
Enviar correo electrónico autentificandose
Envío de correo electrónico a través de System.Net.SmtpClient cuando necesitamos autentificarnos