[VB2008] Enviar correo, en algunos ordenadores no funciona.

[CokeToro]

Prueba Con lo Siguiente:

Código:

 Dim miCorreo As New System.Net.Mail.MailMessage
        miCorreo.IsBodyHtml = False
        miCorreo.From = New System.Net.Mail.MailAddress("mail desde donde se envía")
        miCorreo.To.Add("Mail del destinatario")
        miCorreo.Subject = "Asunto" '
        miCorreo.Body = "Cuerpo del mensaje"
        miCorreo.Priority = System.Net.Mail.MailPriority.Normal 'Prioridad
        Dim smtp As New System.Net.Mail.SmtpClient
        smtp.Host = "smtp.gmail.com"
        'para las credenciales debo pasarle la cuenta y la clave desde donde se envía
        smtp.Credentials = New System.Net.NetworkCredential("Cuenta de Correo", "Contraseña")
        Try
            smtp.Send(miCorreo)
            MsgBox("Mensaje enviado.", MsgBoxStyle.OkOnly, "Correo")
        Catch ex As Exception
            MsgBox("ERROR: ", MsgBoxStyle.OkOnly, "Error!")
        End Try