ENVIO de CORREOS, con .NET Framework 1.1 (Visual Basic 2003)

‘Alternativa si no tenemos configurado SMTP o problemas con el CDO’

crearemos el objeto correo, como mensaje de mail, asignaremos los valores del mismo y sencillamente llamaremos a la función ‘send’. Deberemos substituir todas las variables ‘email_’ con el valor o string adecuado. A saber ‘email_User’ debe contener el usuario de la cuenta que envia el correo electronico, ‘email_Pwd’ su password… etc.

  ‘
  ‘Conformar un mensage de mail
  Dim correo As MailMessage = New MailMessage
  ‘Definir el esquema CDO
  Dim Esquema As String = «http://schemas.microsoft.com/cdo/configuration/«
  ‘Llenar de contenido el mensage
  correo.From = email_From
  correo.To = email_To
  correo.Cc = email_Cc
  correo.Subject = «Motivo del mensaje»
  correo.Body = emailMensa
  ‘Asignar las credendiales
  correo.Fields.Add(Esquema + «smtpauthenticate», «1»)
  correo.Fields.Add(Esquema + «sendusername», email_User)
  correo.Fields.Add(Esquema + «sendpassword», email_Pwd)
  ‘Asignar el nombre del servidor de correo
  SmtpMail.SmtpServer = email_smtp
  Try
       SmtpMail.Send(correo)            ‘Enviar el correo
  Catch ex As Exception
       ‘reportar problemas al eventlog
        Mensaje.Registra(«Alertas», ex.Message, EventLogEntryType.Error, 4)
  End Try