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.
kullandığım kodlar aşağıdadır
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
-
- Destek
-
Özel Arama