Problema invio email su una gmail.

[Misterxxx]

Io uso questo e funziona anche con gmail (ho sostituito le stringhe con il relativo contenuto):

Try            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("miamail@gmail.com", "miapassword")
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.gmail.com"


            e_mail = New MailMessage()
            e_mail.From = New MailAddress("miamail@gmail.com", mittente)
            e_mail.To.Add(maildestinatario)
            e_mail.CC.Add(maildestinatarioCC)
            e_mail.Subject = "Oggetto"
            e_mail.IsBodyHtml = False
            e_mail.Body = "corpomail"
            e_mail.Attachments.Add(New Attachment(path allegato))
            Smtp_Server.Send(e_mail)
            MsgBox("Ordine inviato", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Invia ORDINE")
        Catch error_t As Exception
        End Try