Hola, a mi también esta que me vuelve loco, pq es aun peor, no me saca ningun error, todo se ejecuta bien pero no llega nada, mi código es este:
Dim correo As New System.Net.Mail.MailMessage, Nombre As String = UCase(TxtNombre.Text & " " & TxtApellido.Text)
Dim Msg As String
Try
Msg = "<b>Mensaje desde la página Web - Biblioconsultas</b><br><br><br><br><b>" & Nombre & "</b><br><br>E-mail:</b> " & TxtEmail.Text & "<br><br>" & rblR.SelectedItem.Text & "<br><br><b>Titulo:</b> " & TxtTitLibro.Text & "<br><br><b>Autor: </b>" & TxtAutor.Text & "<br><br><b>Tema: </b>" & TxtTema.Text
correo.From = New System.Net.Mail.MailAddress(TxtEmail.Text, Nombre)
correo.To.Add("
[email protected]")
correo.Subject = "Mensaje desde la página Web - Biblioconsultas"
correo.Body = Msg
correo.IsBodyHtml = True
correo.Priority = System.Net.Mail.MailPriority.Normal
Dim smtp As New System.Net.Mail.SmtpClient
smtp.Host = "servidorint.elinstituto.edu.co"
smtp.Port = 25
smtp.Credentials = New System.Net.NetworkCredential("usario", "clave")
smtp.Send(correo)
LblMsg.Text = "El mensaje se ha enviado exitosamente"
Catch ex As Exception
LblMsg.Text = ex.Message
End Try
si alguien me puede colaborar...si fuera problema de firewall me sacaría error? o debo confirmar que el puerto 25 no este bloqueado?