CLR: .Net / Mono / Boo / Otros CLR > ASP .NET
Enviar Correo En Asp.net 2.0
(1/1)
ErWillem:
Buenas amigos, tengo un problemita con un codigo y no tengo ni idea de cual puede ser el problema...
La cuestion es esta. Tengo una pagina donde necesito:
* Validar usuario. Pienso hacerlo de la manera habitual de las paginas, enviando un correo de confirmacion.
* En caso de olvidar la contraseña enviar un correo con los datos correspondientes.
Ahora, cuando lo tenia hecho en formato asp.net 1.1 podia enviar los correos sin ningun problema, pero ahora que hemos pasado a 2.0 he conseguido varios codigos diferentes y siempre me dan error, colocaré la última versión que tengo de la funcion de envio que tengo de prueba, a ver si alguno me podría ayudar en algo porque no veo cual puede ser el problema :( esta hecho en visualbasic .net 2005:
--- Código: Text --- Public Function EnviarEmail(ByRef destino As String, ByVal IPHost as String) As Boolean Dim correo As New Mail.MailMessage("servicio@xxx.com", destino) correo.Subject = "Recuperar datos de usuario." correo.Body = "<html><body>Prueba</body></html>" correo.IsBodyHtml = True correo.Priority = System.Net.Mail.MailPriority.Normal Dim smtp As New System.Net.Mail.SmtpClient(IPHost) Try smtp.Send(correo) Return True Catch ex As Exception destino = "ERROR: " & ex.Message Return False End Try End Function
Y ex.Message siempre devuelve "Error al enviar el correo."
Espero puedan ayudarme pronto, es urgente :unsure:
none123:
Yo siempre uso esto y anda; es ASP.NET 2 asi que deberia funcionar bien...
--- Código: Text ---Dim mail As New System.Net.Mail.MailMessage mail.From = New System.Net.Mail.MailAddress(txtFrom.Text)mail.To.Add(txtTo.Text)mail.Subject = txtSubject.Textmail.Body = txtBody.Textmail.IsBodyHtml = Truemail.Priority = System.Net.Mail.MailPriority.Normal Dim smtp As New System.Net.Mail.SmtpClientsmtp.Host = "mail.tuserver.com"'smtp.Credentials = New System.Net.NetworkCredential("usuario", "password") Try smtp.Send(mail) txtBody.Text = "Mensaje enviado..."Catch ex As Exception txtBody.Text = "Error al enviar el correo" & vbCrLf & ex.MessageEnd Try
Navegación
Ir a la versión completa