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

[gublin]

Saludos teniendo el código que pongo más abajo en vb2008 pretendo mandar un email pero en algunos ordenadores no funciona. Da error en el SEND y devuelve el error de No se ha podido enviar el correo (o algo parecido)

Código:

Public Sub enviarMail(ByVal asunto As String, ByVal cuerpo As String)
        Try


            Dim message As MailMessage = New MailMessage()
            message.From = New MailAddress("[email protected]")
            message.To.Add(New MailAddress("[email protected]"))
            message.Subject = asunto
            message.Body = cuerpo
            message.IsBodyHtml = False
            Dim client As SmtpClient = New SmtpClient()

            client.Host = "smtp.gmail.com"
            client.Port = 587
            client.EnableSsl = True
            client.UseDefaultCredentials = False
            client.Credentials = New System.Net.NetworkCredential("usuario", "pass")

            Try
                client.Send(message)
            Catch ex As Exception
                Msgbox("Error SEND " & ex.Message)
            End Try


            message.Dispose()


        Catch ex As Exception
            Msgbox("Error " & ex.Message)
        End Try
    End Sub

Alguna idea.... es que estas cosas que pasan en unos si y en otros no... pff no se como buscarlo

gracias

[gublin]

alguna idea?

[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