Dim email As New System.Web.Mail.MailMessage
Dim SmtpMail As System.Web.Mail.SmtpMail
email.From = "
[email protected]"
email.Fields("http://schemas.microsoft.com/cdo/configuration/smtsperver") = "MAIL.DRESOFT.COM"
email.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
email.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
email.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
email.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "
[email protected]"
email.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXXXX"
email.Subject = "Confirmación de Registro en Portal de Noticias Web"
email.Body = "Bienvenido al Portal de Noticias Web " & TxtUsuario.Text & Chr(10) & Chr(13) & "Clickea en el siguiente enlace para confirmar el registro."
email.To = TxtCorreo.Text
SmtpMail.SmtpServer = "mail.dresoft.com"
SmtpMail.Send(email)