Kod do wysyłania emaila przez konto gmail

Potrzebuję prostego, sprawdzonego kodu vb.net do wysyłania przez SMTP wiadomości przez konto gmail.

Próbowałem różnych przykładowych kodów i ustawień podpowiadanych przez wujka gugla, ale być może problem leży też w konfiguracji po stronie samego konta. Wystarczy dok w stylu

Dim SmtpServer As New SmtpClient("smtp.gmail.com", 465)

SmtpServer.EnableSsl = True

SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "password")

Dim mail As New MailMessage("[email protected]", "[email protected]", "Test", "Test Body")

SmtpServer.Send(mail)

połączony z testowym kontem + informacja co ew. w ustawieniach konta gmail trzeba zmienić aby działało poprawnie.

Potrzebuję to na wczoraj bo mam już dość własnych testów :-)