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.