gmail e web üzerinden bağlanarak mail atma

[chakistes]

Merhaba arkadaşlar Milli Eğitimde portlarda engel olduğu için CDO ile bağlantı yapamadığımızdan web üzerinden gmaile bağlantı yapıp mail göndermek istiyorum fakat e-posta ve şifre ekranında bir türlü yapamadım. bu konuda yardıma ihtiyacım var.
Set evn = CreateObject("internetexplorer.application")
With evn
evn.Visible = True
.navigate "https://mail.google.com/mail"
Application.Wait (Now() + TimeValue("00:00:01"))
SendKeys "{ENTER}"
.identifier.Value = xxxxxxxxx@gmail.com
Application.Wait (Now() + TimeValue("00:00:01"))
SendKeys "{ENTER}"
.Password.Value =00000000
Application.Wait (Now() + TimeValue("00:00:01"))
SendKeys "{ENTER}"
Application.Wait (Now() + TimeValue("00:00:01"))
.navigate "https://mail.google.com/mail/u/0/#inbox?compose=new"

End With