Be the first user to complete this post

  • 0
Add to List

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

Login Gmail
Login Gmail



Also Read:

  1. Excel-VBA : Change Passwords for all the WorkSheets in one shot
  2. VBA-Excel: Read XML by Looping through Nodes
  3. VBA-Excel: Maximize, Minimize and Restore Internet Explorer (IE) using Microsoft Excel.
  4. Excel-VBA : Insert Multiple Images from a Folder to Excel Cells
  5. Excel-VBA : Open a MS Word Document using Excel File using Explorer Window.
  6. VBA-Excel: Create or Add Worksheets at the Run time.
  7. VBA-Excel: Writing Text to Word document
  8. VBA-Excel: Add Table and fill data to the Word document