Hello guys,
I am using below script to login to gmail from excel.
If i use below code by changing bold script line with http:// mail.yahoo.com to login for yahoo when window open,its not filling fields of id,password and not hitting the sigh in button.
Whereas if i login through same script written below for gmail then it works excellent.
Kindly assit me how i can resolve it?
I am using below script to login to gmail from excel.
If i use below code by changing bold script line with http:// mail.yahoo.com to login for yahoo when window open,its not filling fields of id,password and not hitting the sigh in button.
Whereas if i login through same script written below for gmail then it works excellent.
Kindly assit me how i can resolve it?
Rich (BB code):
Private Sub LaunchGamil(username As String, password As String)
Const strURL_c As String = "http://mail.gmail.com"
Dim objIE As SHDocVw.InternetExplorer
Dim ieDoc As MSHTML.HTMLDocument
Dim tbxPwdFld As MSHTML.HTMLInputElement
Dim tbxUsrFld As MSHTML.HTMLInputElement
Dim btnSubmit As MSHTML.HTMLInputElement
On Error GoTo Err_Hnd
'Create Internet Explorer Object
Set objIE = New SHDocVw.InternetExplorer
'Navigate the URL
objIE.Navigate strURL_c
'Wait for page to load
Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
'Get document object
Set ieDoc = objIE.Document
'Get username/password fields and submit button.
Set tbxPwdFld = ieDoc.all.Item("Passwd")
Set tbxUsrFld = ieDoc.all.Item("Email")
Set btnSubmit = ieDoc.all.Item("signIn")
'Fill Fields
tbxUsrFld.Value = username
tbxPwdFld.Value = password
'Click submit
btnSubmit.Click
'Wait for transistion page to load
Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
'Wait for main page to load
Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
Err_Hnd: '(Fail gracefully)
objIE.Visible = True
End Sub