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)
Autor del artículo
Dámaso Velázquez
Compartir