How do i resolve this issue with my Google smtp client not sending mails?

I have been going through some posts on different forums that look similar to the issues I have and I have modified my code but it is still not working. My code is pasted for your perusal below:
Dim ss As SmtpClient = New SmtpClient("smtp.gmail.com", 587) 'Dim ss As SmtpClient = New SmtpClient("smtp.gmail.com",465 ) 'Dim ss As SmtpClient = New SmtpClient("smtp.gmail.com", 25) ss.Timeout = 10000 ss.DeliveryMethod = SmtpDeliveryMethod.Network ss.UseDefaultCredentials = False ss.EnableSsl = True ss.UseDefaultCredentials = False ss.Credentials = New NetworkCredential("name@gmail.com", "name@123") Dim subject As String = "Approval request&n ...