Loggati a Google con username e password.
In alto a destra seleziona la voce "Gestisci il tuo account Google"
Dal menu di sinistra seleziona "Sicurezza"
Troverai la voce "Accesso a Google" dove devi attivare la voce "Verifica in due passaggi"
Ora, clicca sulla voce "Password per le APP"
Alla voce "Seleziona App" scegli "Altra" e inserisci il nome della tua App (ma comunque puoi inserire quello che vuoi o scegliere tra le voci del menu, non cambia nulla).
Clicca su "Genera"
La password che ti apparirà sarà quella che dovrai utilizzare nella tua app.
Se (ad esempio) il tuo username è e la password che è apparsa è jwusdfrtergmsnhu
il codice per mandare una email potrebbe essere ad esempio:
Private Function MandaGmail(ByVal destinatario As String, ByVal oggetto As String, ByRef testo As String) As Boolean
Dim mail = New MailMessage
mail.From = New MailAddress("sonobello@gmail.com", "Sono Bello")
mail.To.Add(destinatario)
mail.Subject = oggetto
mail.Body = testo
mail.IsBodyHtml = True
Dim smtp = New SmtpClient("smtp.gmail.com")
smtp.UseDefaultCredentials = False
smtp.EnableSsl = True
smtp.DeliveryMethod = SmtpDeliveryMethod.Network
smtp.Port = 587
smtp.Credentials = New Net.NetworkCredential("sonobello@gmail.com", "jwusdfrtergmsnhu")
Try
smtp.Send(mail)
Catch ex As Exception
MessageBox.Show(ex.Message, "ERRORE", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
Return True
End Function