Vb.net не отправляю электронную почту

---

В рамках системы заказов, которую я создаю, у меня будет опция забытого пароля, которая позволяет пользователю выбрать новый пароль. Программа отправляет им по электронной почте случайно сгенерированный 6-значный код, который пользователь затем должен ввести. Однако письмо не отправляется. Я использовал код, который более или менее идентичен коду, который я использовал в более ранней программе, которая работала правильно.

Что я уже пробовал:

Это код до сих пор:

Try
                    Dim array(6) As String
                    Dim rn As New Random
                    Dim digitCode As Integer
                    Randomize()
                    For count = 1 To 6
                        'array(count) = "1"
                        array(count) = rn.Next(0, 9)
                    Next
                    digitCode = array(1) + array(2) + array(3) + array(4) + array(5) + array(6)
                    sixDigitCode = digitCode

                    Dim email As New MailMessage
                    Dim SMTP As New SmtpClient("smtp.gmail.com")
                    email.Subject = "Forgot Password"
                    email.From = New MailAddress("Ordering system prototype")
                    SMTP.Credentials = New System.Net.NetworkCredential("myemailaddress@gmail.com", "mypassword")
                    email.To.Add(EmailAddress)
                    email.Body = SixDigitCode
                    SMTP.EnableSsl = True
                    SMTP.Port = "587"
                    SMTP.Send(email)
                    TabControlForgotPassword.SelectedIndex = 2
                    MsgBox("A six digit code has been sent to" + EmailAddress)

                Catch ex As Exception
                    MsgBox("Could not send email. Contact your Adminiatrator.")
                End Try

Я думал, что это может быть связано с тем, что Google обновляет свой SMTP-номер? Но я проверил и могу подтвердить, что 587-это все еще правильный номер. Есть ли что-то, что я сделал неправильно?

---