Take your career to the next level with convenient certification training. Start your 7-day Free Trial
Experts Exchange Solution brought to you by
"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.
strURL = "https://www.google.com/accounts/ServiceLogin?service=mail&passive=true&rm=false&continue=https%3A%2F%2Fmail.google.com%2Fmail%2F%3Fnsr%3D1%26ui%3Dhtml%26zy%3Dl<mpl=default<mplcache=2"
strLoginName = "abcdefg"
intTimeOut = 10
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
If Err Then
MsgBox "Error with IE object!"
boolTimedOut = False
Do While objIE.Busy
Application.Wait DateAdd("s", 10, Now)
i = i + 1
If i > CInt(intTimeOut * 10) Then
boolTimedOut = True
MsgBox "Timeout expired waiting for IE object to stop loading!"
objIE.document.getElementById("Email").Value = strLoginName
Dim str As String
str = objIE.document.getElementById("Email").Value
MsgBox "str = [" & str & "]"
Open in new window
Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment