Como, Enviar mails en .NET Framework 1.1

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

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.