ENVIAR EMAIL

Public Function envioMAIL(ByVal Para As String, ByVal Asunto As String, ByVal Mensaje As String, ByVal ficheroAdjunto As String) As String

   Dim SMTP As New System.Net.Mail.SmtpClient 'Variable con la que se envia el correo
   Dim CORREO As New System.Net.Mail.MailMessage 'Variable que amlmacena los Attachment
   Dim ADJUNTO As New System.Net.Mail.Attachment(ficheroAdjunto)

   'Configuracion del Mensaje


   CORREO.From = New System.Net.Mail.MailAddress(EMAIL_EMAIL, EMAIL_NOM, System.Text.Encoding.UTF8)
   Dim ParaI As String
   While InStr(Para, ";") <> 0
      If InStr(Para, ";") <> 0 Then
      ParaI = Mid(Para, 1, InStr(Para, ";") - 1)
        CORREO.[To].Add(ParaI)
        CORREO.Subject = Asunto
        CORREO.IsBodyHtml = False
        CORREO.Attachments(0).Name = ficheroAdjunto
        CORREO.Body = Mensaje
        CORREO.Attachments.Add(ADJUNTO)
        Para = Mid(Para, InStr(Para, ";") + 1)
      End If
   End While


   CORREO.[To].Add(Para)
   CORREO.Subject = Asunto
   CORREO.IsBodyHtml = False
   CORREO.Body = Mensaje
   CORREO.Attachments.Add(ADJUNTO)

   'Configuracion del SMTP


   SMTP.Host = EMAIL_SMTP
   SMTP.Port = EMAIL_PORT

   Try
      SMTP.Send(CORREO)
      Return "Envio satisfactorio"
  Catch ex As System.Net.Mail.SmtpException
      Return ex.Message
   End Try
End Function