Envio mails

tema enviado por Ieshu ben Iosef en ASP.NET
tema iniciado el 01/04/2008

Tengo el siguiente codigo para enviar mails

Public Function Envio_Mail(ByVal Para As String, ByVal Asunto As String, ByVal Mensaje As String, ByVal TipoEmail As Boolean)

Dim correo As New MailMessage()

Dim smtp As New SmtpClient

correo.From = New MailAddress(Constantes.Email_Sistema, Constantes.Email_Nombre)

correo.To.Add(Para.ToString)

correo.Subject = Asunto.ToString

correo.Body = Mensaje.ToString

correo.IsBodyHtml = TipoEmail

correo.Priority = MailPriority.Normal

smtp.Host = Constantes.Email_Host

If Constantes.Email_Domain = "" Then

smtp.Credentials = New NetworkCredential(Constantes.Email_User, Constantes.Email_Pwd)

Else

smtp.Credentials = New NetworkCredential(Constantes.Email_User, Constantes.Email_Pwd, Constantes.Email_Domain)

End If

smtp.EnableSsl = False

'smtp.UseDefaultCredentials = False

'smtp.DeliveryMethod = SmtpDeliveryMethod.Network

Try

smtp.Send(correo)

Return Constantes.Email_MsgExito

Catch ex As Exception

Return "ERROR: " & ex.Message

End Try

End Function

Este codigo me funciona solo para enviar mails a traves del servidor propio que tengo, es decir solo puedo mandar a los que tienen la misma extension de correo @tekno.com.pe , si es de yahoo, hotmail, gmail, u otro no lo envia, quisiera saber cual es problema, alguna ayuda por favor.