Be the first user to complete this post Login To Mark Completed

0

Add to List Add To List..(Max 5) Close Save

VBA-Excel: Login To Already Opened GMAIL In An Internet Explorer (IE)

To Login To Already Opened GMAIL In An Internet Explorer (IE) using Microsoft Excel,

Steps:

• Create the object of Shell Application
• Get all the windows using shellobject.Windows
• Navigate all the windows
• check if window is Internet Explorer
• if window is IE then check if it is Gmail browser and store the object
• Get the Page object of Gmail window.
• Iden­tify the objects on the Page using “GetElementById”
• Set the Authen­ti­ca­tion details in the Gmail login page
• Iden­tify the Sign In But­ton using “GetEle­ment­ById” and Click on it
  

Create the object of Shell Application

Set objShell = CreateObject("Shell.Application")

Get all the windows using shellobject.Windows

Set objAllWindows = objShell.Windows

Navigate all the windows

For Each ow In objAllWindows

check if window is Internet Explorer

If (InStr(1, ow, "Internet Explorer", vbTextCompare)) Then

if window is IE then check if it is Gmail browser and store the object

If (InStr(1, ow.locationURL, "mail.google.com", vbTextCompare)) Then

Set objGMAIL = ow

End If

Get the Page object of Gmail window.

Set objPage = objGMAIL.Document

Iden­tify the objects on the Page using “GetElementById”

Set NameEd­itB = objPage.getElementByID(“Email”)

Set the Authen­ti­ca­tion details in the Gmail login page

NameEditB.Value = strUserName

Iden­tify the Sign In But­ton using “GetEle­ment­ById” and Click on it

Set SignIn = objPage.getElementByID(“signIn”)   

        SignIn.Click

Complete Code:

Sub login()

    Set objShell = CreateObject("Shell.Application")
    Set objAllWindows = objShell.Windows

    For Each ow In objAllWindows
        'MsgBox ow
        If (InStr(1, ow, "Internet Explorer", vbTextCompare)) Then
            'MsgBox ow.Hwnd & "  " & ow & "   " & ow.locationURL
            If (InStr(1, ow.locationURL, "mail.google.com", vbTextCompare)) Then
                Set objGMAIL = ow
            End If
        End If
    Next

    If objGMAIL Is Nothing Then
    Else
        Set objPage = objGMAIL.Document
        Set NameEditB = objPage.getElementByID("Email")
        NameEditB.Value = "xxxxx"
        Set PWDEditB = objPage.getElementByID("Passwd")
        PWDEditB.Value = "yyyyyy"
        Set SignIn = objPage.getElementByID("signIn")
        'SignIn.Click    Uncomment it when you put valid gmail credentails
    End If

End Sub

---

---

Also Read:

1. VBA-Excel: Get ALL The Opened Internet Explorer (IE) using Microsoft Excel
2. VBA-Excel: Working with Bookmarks- Insert text After Bookmark
3. Excel-VBA : Prevent Adding New Worksheet
4. Excel-VBA : Change Passwords for all the WorkSheets in one shot
5. VBA-Excel: Add Table and fill data to the Word document

---